gnu/dist/gettext/gettext-tools/examples/hello-tcl/hello.tcl

   1 #!@TCLSH@
   2 # Example for use of GNU gettext.
   3 # Copyright (C) 2003 Free Software Foundation, Inc.
   4 # This file is in the public domain.
   5 #
   6 # Source code of the Tcl program.
   7
   8 package require msgcat
   9 ::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
  10 proc _ {s} {return [::msgcat::mc $s]}
  11
  12 puts [_ "Hello, world!"]
  13 puts [format [_ "This program is running as process number %d."] [pid]]