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 8package require msgcat 9::msgcat::mcload [file join "@pkgdatadir@" "msgs"] 10proc _ {s} {return [::msgcat::mc $s]} 11 12puts [_ "Hello, world!"] 13puts [format [_ "This program is running as process number %d."] [pid]] 14