diff options
author | Vincent Ambo <mail@tazj.in> | 2021-09-21T10·03+0300 |
---|---|---|
committer | Vincent Ambo <mail@tazj.in> | 2021-09-21T11·29+0300 |
commit | 43b1791ec601732ac31195df96781a848360a9ac (patch) | |
tree | daae8d638343295d2f1f7da955e556ef4c958864 /third_party/git/git-gui/po/po2msg.sh | |
parent | 2d8e7dc9d9c38127ec4ebd13aee8e8f586a43318 (diff) |
chore(3p/git): Unvendor git and track patches instead r/2903
This was vendored a long time ago under the expectation that keeping it in sync with cgit would be easier this way, but it has proven not to be a big issue. On the other hand, a vendored copy of git is an annoying maintenance burden. It is much easier to rebase the single (dottime) patch that we have. This removes the vendored copy of git and instead passes the git source code to cgit via `pkgs.srcOnly`, which includes the applied patch so that cgit can continue rendering dottime. Change-Id: If31f62dea7ce688fd1b9050204e9378019775f2b
Diffstat (limited to 'third_party/git/git-gui/po/po2msg.sh')
-rwxr-xr-x | third_party/git/git-gui/po/po2msg.sh | 152 |
1 files changed, 0 insertions, 152 deletions
diff --git a/third_party/git/git-gui/po/po2msg.sh b/third_party/git/git-gui/po/po2msg.sh deleted file mode 100755 index 1e9f99252815..000000000000 --- a/third_party/git/git-gui/po/po2msg.sh +++ /dev/null @@ -1,152 +0,0 @@ -#!/bin/sh -# Tcl ignores the next line -*- tcl -*- \ -exec tclsh "$0" -- "$@" - -# This is a really stupid program, which serves as an alternative to -# msgfmt. It _only_ translates to Tcl mode, does _not_ validate the -# input, and does _not_ output any statistics. - -proc u2a {s} { - set res "" - foreach i [split $s ""] { - scan $i %c c - if {$c<128} { - # escape '[', '\', '$' and ']' - if {$c == 0x5b || $c == 0x5d || $c == 0x24} { - append res "\\" - } - append res $i - } else { - append res \\u[format %04.4x $c] - } - } - return $res -} - -set output_directory "." -set lang "dummy" -set files [list] -set show_statistics 0 - -# parse options -for {set i 0} {$i < $argc} {incr i} { - set arg [lindex $argv $i] - if {$arg == "--statistics"} { - incr show_statistics - continue - } - if {$arg == "--tcl"} { - # we know - continue - } - if {$arg == "-l"} { - incr i - set lang [lindex $argv $i] - continue - } - if {$arg == "-d"} { - incr i - set tmp [lindex $argv $i] - regsub "\[^/\]$" $tmp "&/" output_directory - continue - } - lappend files $arg -} - -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 - } - - if {$msgid == ""} { - 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"] - fconfigure $in -encoding utf-8 - set out [open $outfile "w"] - - set mode "" - while {[gets $in line] >= 0} { - if {[regexp "^#" $line]} { - if {[regexp ", fuzzy" $line]} { - set fuzzy 1 - } else { - flush_msg - } - continue - } elseif {[regexp "^msgid \"(.*)\"$" $line dummy match]} { - flush_msg - set msgid $match - set mode "msgid" - } elseif {[regexp "^msgstr \"(.*)\"$" $line dummy match]} { - set msgstr $match - set mode "msgstr" - } elseif {$line == ""} { - flush_msg - } elseif {[regexp "^\"(.*)\"$" $line dummy match]} { - if {$mode == "msgid"} { - append msgid $match - } elseif {$mode == "msgstr"} { - append msgstr $match - } else { - puts stderr "I do not know what to do: $match" - } - } else { - puts stderr "Cannot handle $line" - } - } - flush_msg - close $in - close $out -} - -if {$show_statistics} { - set str "" - - append str "$translated_count translated message" - if {$translated_count != 1} { - append str s - } - - if {$fuzzy_count > 1} { - append str ", $fuzzy_count fuzzy translation" - if {$fuzzy_count != 1} { - append str s - } - } - if {$not_translated_count > 0} { - append str ", $not_translated_count untranslated message" - if {$not_translated_count != 1} { - append str s - } - } - - append str . - puts $str -} |