gnu/dist/gettext/gettext-tools/examples/hello-guile/hello.scm

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