mingw/share/doc/gettext/examples/hello-guile/hello.scm

   1 #!@GUILE@ -s
   2 !#
   3 ;;; Example for use of GNU gettext.
   4 ;;; This file is in the public domain.
   5
   6 ;;; Source code of the GNU guile program.
   7
   8 (use-modules (ice-9 format))
   9
  10 (catch #t (lambda () (setlocale LC_ALL "")) (lambda args #f))
  11 (textdomain "hello-guile")
  12 (bindtextdomain "hello-guile" "@localedir@")
  13 (define _ gettext)
  14
  15 (display (_ "Hello, world!"))
  16 (newline)
  17 (format #t (_ "This program is running as process number ~D.") (getpid))
  18 (newline)