mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-12 16:46:33 -04:00
14 lines
380 B
Tcl
14 lines
380 B
Tcl
#!@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]]
|