address@hidden@ -s
!#
;;; Example for use of GNU gettext.
;;; This file is in the public domain.

;;; Source code of the GNU guile program.

(use-modules (ice-9 format))

(catch #t (lambda () (setlocale LC_ALL "")) (lambda args #f))
(textdomain "hello-guile")
(bindtextdomain "hello-guile" "@localedir@")
(define _ gettext)

(display (_ "Hello, world!"))
(newline)
(format #t (_ "This program is running as process number ~D.") (getpid))
#;(format #t (_ "This program is not ~D.") (getpid))
(newline)

#!
this toplevel block-comment does seem to confuse ngettext
(_ "this first string should not be extracted")
!#

(define (further-testing-xgettext)
  (_ "let's see: xgettext 1")
  #!
  then for some reason, i'v noticed that xgettext gets confused if
  block-comment is used inside a function, unlike @ toplevel
  (_ "this second string should not be extracted")
  !#
  (_ "let's see: xgettext 2")
  (+ #| (_ "this is third") #| (_ " and fourth") |# (_ " should not either") |# 2))

#|
(_ "this string should not be extracted either")
|#


(display (_ "let's see: xgettext 3"))