diff options
| author | Johannes Schindelin <Johannes.Schindelin@gmx.de> | 2007-10-30 11:25:31 +0000 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2007-11-01 00:03:24 -0400 |
| commit | 95a8b67c2642c576f848005e72126fb25d11286c (patch) | |
| tree | b122a798dce348a0da18c4bda46b7934286410c8 /po/po2msg.sh | |
| parent | 9a25ae82dd635957e40e2d29ea5022d25fb6c2b0 (diff) | |
| download | git-95a8b67c2642c576f848005e72126fb25d11286c.tar.gz git-95a8b67c2642c576f848005e72126fb25d11286c.tar.xz | |
po2msg: actually output statistics
The "--statistics" option was ignored so far; no longer. Now we have
a message similar to that of msgfmt. (Untranslated, though ;-)
Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Diffstat (limited to 'po/po2msg.sh')
| -rw-r--r-- | po/po2msg.sh | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/po/po2msg.sh b/po/po2msg.sh index 91d420b4f..c63248e37 100644 --- a/po/po2msg.sh +++ b/po/po2msg.sh @@ -26,11 +26,17 @@ proc u2a {s} { set output_directory "." set lang "dummy" set files [list] +set show_statistics 0 # parse options -for {set i 1} {$i < $argc} {incr i} { +for {set i 0} {$i < $argc} {incr i} { set arg [lindex $argv $i] - if {$arg == "--statistics" || $arg == "--tcl"} { + if {$arg == "--statistics"} { + incr show_statistics + continue + } + if {$arg == "--tcl"} { + # we know continue } if {$arg == "-l"} { @@ -49,12 +55,14 @@ for {set i 1} {$i < $argc} {incr i} { proc flush_msg {} { global msgid msgstr mode lang out fuzzy + global translated_count fuzzy_count not_translated_count if {![info exists msgid] || $mode == ""} { return } set mode "" if {$fuzzy == 1} { + incr fuzzy_count set fuzzy 0 return } @@ -63,15 +71,20 @@ proc flush_msg {} { set prefix "set ::msgcat::header" } else { if {$msgstr == ""} { + incr not_translated_count return } set prefix "::msgcat::mcset $lang \"[u2a $msgid]\"" + incr translated_count } puts $out "$prefix \"[u2a $msgstr]\"" } set fuzzy 0 +set translated_count 0 +set fuzzy_count 0 +set not_translated_count 0 foreach file $files { regsub "^.*/\(\[^/\]*\)\.po$" $file "$output_directory\\1.msg" outfile set in [open $file "r"] @@ -113,3 +126,8 @@ foreach file $files { close $out } +if {$show_statistics} { + puts [concat "$translated_count translated messages, " \ + "$fuzzy_count fuzzy ones, " \ + "$not_translated_count untranslated ones."] +} |