diff options
Diffstat (limited to 'gettext-tools/examples/hello-clisp/hello.lisp.in')
-rw-r--r-- | gettext-tools/examples/hello-clisp/hello.lisp.in | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gettext-tools/examples/hello-clisp/hello.lisp.in b/gettext-tools/examples/hello-clisp/hello.lisp.in new file mode 100644 index 0000000..ce278a6 --- /dev/null +++ b/gettext-tools/examples/hello-clisp/hello.lisp.in @@ -0,0 +1,15 @@ +#| Example for use of GNU gettext. + This file is in the public domain. + + Source code of the GNU clisp program. +|# + +(setf (i18n:textdomain) "hello-clisp") +(setf (i18n:textdomaindir "hello-clisp") "@localedir@/") +(defmacro _ (string) `(i18n:gettext ,string)) + +(write-line (_ "Hello, world!")) + +(format t (_ "This program is running as process number ~D.") + (system::program-id)) +(terpri) |