Blame gettext-tools/examples/hello-tcl/hello.tcl
|
Packit Bot |
06c835 |
#!@TCLSH@
|
|
Packit Bot |
06c835 |
# Example for use of GNU gettext.
|
|
Packit Bot |
06c835 |
# This file is in the public domain.
|
|
Packit Bot |
06c835 |
#
|
|
Packit Bot |
06c835 |
# Source code of the Tcl program.
|
|
Packit Bot |
06c835 |
|
|
Packit Bot |
06c835 |
package require msgcat
|
|
Packit Bot |
06c835 |
::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
|
|
Packit Bot |
06c835 |
proc _ {s} {return [::msgcat::mc $s]}
|
|
Packit Bot |
06c835 |
|
|
Packit Bot |
06c835 |
puts [_ "Hello, world!"]
|
|
Packit Bot |
06c835 |
puts [format [_ "This program is running as process number %d."] [pid]]
|