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