hello.tcl   [plain text]

#!@TCLSH@
# Example for use of GNU gettext.
# Copyright (C) 2003 Free Software Foundation, Inc.
# This file is in the public domain.
#
# Source code of the Tcl program.

package require msgcat
::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
proc _ {s} {return [::msgcat::mc $s]}

puts [_ "Hello, world!"]
puts [format [_ "This program is running as process number %d."] [pid]]