undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

po2msg: ignore entries marked with "fuzzy"

Browse Source 
As Christian Stimming pointed out, entries which are "fuzzy" need to
be checked by human translators, and cannot be used.

Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
This commit is contained in:
Johannes Schindelin 2007-10-30 11:24:37 +00:00 committed by Shawn O. Pearce
parent ab0d33c438
commit f94872dfc1
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
po/po2msg.sh
View File

@ -48,12 +48,16 @@ for {set i 1} {$i < $argc} {incr i} {
} }
proc flush_msg {} { proc flush_msg {} {
global msgid msgstr mode lang out global msgid msgstr mode lang out fuzzy
if {![info exists msgid] || $mode == ""} { if {![info exists msgid] || $mode == ""} {
return return
} }
set mode "" set mode ""
if {$fuzzy == 1} {
set fuzzy 0
return
}
if {$msgid == ""} { if {$msgid == ""} {
set prefix "set ::msgcat::header" set prefix "set ::msgcat::header"
@ -64,6 +68,7 @@ proc flush_msg {} {
puts $out "$prefix \"[u2a $msgstr]\"" puts $out "$prefix \"[u2a $msgstr]\""
} }
set fuzzy 0
foreach file $files { foreach file $files {
regsub "^.*/\(\[^/\]*\)\.po$" $file "$output_directory\\1.msg" outfile regsub "^.*/\(\[^/\]*\)\.po$" $file "$output_directory\\1.msg" outfile
set in [open $file "r"] set in [open $file "r"]
@ -73,7 +78,11 @@ foreach file $files {
set mode "" set mode ""
while {[gets $in line] >= 0} { while {[gets $in line] >= 0} {
if {[regexp "^#" $line]} { if {[regexp "^#" $line]} {
flush_msg if {[regexp ", fuzzy" $line]} {
set fuzzy 1
} else {
flush_msg
}
continue continue
} elseif {[regexp "^msgid \"(.*)\"$" $line dummy match]} { } elseif {[regexp "^msgid \"(.*)\"$" $line dummy match]} {
flush_msg flush_msg