Merge branch 'ss/doclinks'
[alt-git.git] / git-gui / po / po2msg.sh
blob1e9f992528153fa62c167db8f8e8c184e7df86bd
1 #!/bin/sh
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.
9 proc u2a {s} {
10 set res ""
11 foreach i [split $s ""] {
12 scan $i %c c
13 if {$c<128} {
14 # escape '[', '\', '$' and ']'
15 if {$c == 0x5b || $c == 0x5d || $c == 0x24} {
16 append res "\\"
18 append res $i
19 } else {
20 append res \\u[format %04.4x $c]
23 return $res
26 set output_directory "."
27 set lang "dummy"
28 set files [list]
29 set show_statistics 0
31 # parse options
32 for {set i 0} {$i < $argc} {incr i} {
33 set arg [lindex $argv $i]
34 if {$arg == "--statistics"} {
35 incr show_statistics
36 continue
38 if {$arg == "--tcl"} {
39 # we know
40 continue
42 if {$arg == "-l"} {
43 incr i
44 set lang [lindex $argv $i]
45 continue
47 if {$arg == "-d"} {
48 incr i
49 set tmp [lindex $argv $i]
50 regsub "\[^/\]$" $tmp "&/" output_directory
51 continue
53 lappend files $arg
56 proc flush_msg {} {
57 global msgid msgstr mode lang out fuzzy
58 global translated_count fuzzy_count not_translated_count
60 if {![info exists msgid] || $mode == ""} {
61 return
63 set mode ""
64 if {$fuzzy == 1} {
65 incr fuzzy_count
66 set fuzzy 0
67 return
70 if {$msgid == ""} {
71 set prefix "set ::msgcat::header"
72 } else {
73 if {$msgstr == ""} {
74 incr not_translated_count
75 return
77 set prefix "::msgcat::mcset $lang \"[u2a $msgid]\""
78 incr translated_count
81 puts $out "$prefix \"[u2a $msgstr]\""
84 set fuzzy 0
85 set translated_count 0
86 set fuzzy_count 0
87 set not_translated_count 0
88 foreach file $files {
89 regsub "^.*/\(\[^/\]*\)\.po$" $file "$output_directory\\1.msg" outfile
90 set in [open $file "r"]
91 fconfigure $in -encoding utf-8
92 set out [open $outfile "w"]
94 set mode ""
95 while {[gets $in line] >= 0} {
96 if {[regexp "^#" $line]} {
97 if {[regexp ", fuzzy" $line]} {
98 set fuzzy 1
99 } else {
100 flush_msg
102 continue
103 } elseif {[regexp "^msgid \"(.*)\"$" $line dummy match]} {
104 flush_msg
105 set msgid $match
106 set mode "msgid"
107 } elseif {[regexp "^msgstr \"(.*)\"$" $line dummy match]} {
108 set msgstr $match
109 set mode "msgstr"
110 } elseif {$line == ""} {
111 flush_msg
112 } elseif {[regexp "^\"(.*)\"$" $line dummy match]} {
113 if {$mode == "msgid"} {
114 append msgid $match
115 } elseif {$mode == "msgstr"} {
116 append msgstr $match
117 } else {
118 puts stderr "I do not know what to do: $match"
120 } else {
121 puts stderr "Cannot handle $line"
124 flush_msg
125 close $in
126 close $out
129 if {$show_statistics} {
130 set str ""
132 append str "$translated_count translated message"
133 if {$translated_count != 1} {
134 append str s
137 if {$fuzzy_count > 1} {
138 append str ", $fuzzy_count fuzzy translation"
139 if {$fuzzy_count != 1} {
140 append str s
143 if {$not_translated_count > 0} {
144 append str ", $not_translated_count untranslated message"
145 if {$not_translated_count != 1} {
146 append str s
150 append str .
151 puts $str