2 # Tcl ignores the next line -*- tcl -*- \
3 exec tclsh
"$0" -- "$@"
5 # This is a really stupid program, which serves as an alternative to
6 # msgfmt. It _only_ translates to Tcl mode, does _not_ validate the
7 # input, and does _not_ output any statistics.
11 foreach i
[split $s ""] {
14 # escape '[', '\' and ']'
15 if {$c == 0x5b ||
$c == 0x5d} {
20 append res
\\u
[format
%04.4x
$c]
26 set output_directory
"."
31 for {set i
1} {$i < $argc} {incr i
} {
32 set arg
[lindex
$argv $i]
33 if {$arg == "--statistics" ||
$arg == "--tcl"} {
38 set lang
[lindex
$argv $i]
43 set tmp
[lindex
$argv $i]
44 regsub
"\[^/\]$" $tmp "&/" output_directory
51 global msgid msgstr mode lang out fuzzy
53 if {![info exists msgid
] ||
$mode == ""} {
63 set prefix
"set ::msgcat::header"
65 set prefix
"::msgcat::mcset $lang \"[u2a $msgid]\""
68 puts
$out "$prefix \"[u2a $msgstr]\""
73 regsub
"^.*/\(\[^/\]*\)\.po$" $file "$output_directory\\1.msg" outfile
74 set in [open
$file "r"]
75 fconfigure
$in -encoding utf-8
76 set out
[open
$outfile "w"]
79 while {[gets
$in line
] >= 0} {
80 if {[regexp
"^#" $line]} {
81 if {[regexp
", fuzzy" $line]} {
87 } elseif
{[regexp
"^msgid \"(.*)\"$" $line dummy match
]} {
91 } elseif
{[regexp
"^msgstr \"(.*)\"$" $line dummy match
]} {
94 } elseif
{$line == ""} {
96 } elseif
{[regexp
"^\"(.*)\"$" $line dummy match
]} {
97 if {$mode == "msgid"} {
99 } elseif
{$mode == "msgstr"} {
102 puts stderr
"I do not know what to do: $match"
105 puts stderr
"Cannot handle $line"