File: hello.tcl

package info (click to toggle)
gettext 0.23.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 168,104 kB
  • sloc: ansic: 532,579; sh: 68,252; perl: 28,011; makefile: 9,068; lisp: 3,184; yacc: 1,055; java: 615; cs: 589; cpp: 397; objc: 343; sed: 79; tcl: 63; xml: 40; pascal: 11; awk: 7; php: 7
file content (12 lines) | stat: -rw-r--r-- 328 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!@TCLSH@
# Example for use of GNU gettext.
# 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]]