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