Home | History | Annotate | Line # | Download | only in hello-librep 
      1  1.1  christos #| Example for use of GNU gettext.
      2  1.1  christos    Copyright (C) 2003 Free Software Foundation, Inc.
      3  1.1  christos    This file is in the public domain.
      4  1.1  christos 
      5  1.1  christos    Source code of the librep program.
      6  1.1  christos |#
      7  1.1  christos 
      8  1.1  christos (require 'rep.i18n.gettext)
      9  1.1  christos 
     10  1.1  christos (textdomain "hello-librep")
     11  1.1  christos (bindtextdomain "hello-librep" "@localedir@")
     12  1.1  christos 
     13  1.1  christos (write standard-output (_ "Hello, world!"))
     14  1.1  christos (write standard-output "\n")
     15  1.1  christos (format standard-output (_ "This program is running as process number %d.")
     16  1.1  christos                         (process-id))
     17  1.1  christos (write standard-output "\n")
     18