Andrew's git - gitweb.git/blob

   1#!/bin/sh
   2# Tcl ignores the next line -*- tcl -*- \
   3exec tclsh "$0" -- "$@"
   4
   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.
   8
   9proc 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 "\\"
  17                        }
  18                        append res $i
  19                } else {
  20                        append res \\u[format %04.4x $c]
  21                }
  22        }
  23        return $res
  24}
  25
  26set output_directory "."
  27set lang "dummy"
  28set files [list]
  29set show_statistics 0
  30
  31# parse options
  32for {set i 0} {$i < $argc} {incr i} {
  33        set arg [lindex $argv $i]
  34        if {$arg == "--statistics"} {
  35                incr show_statistics
  36                continue
  37        }
  38        if {$arg == "--tcl"} {
  39                # we know
  40                continue
  41        }
  42        if {$arg == "-l"} {
  43                incr i
  44                set lang [lindex $argv $i]
  45                continue
  46        }
  47        if {$arg == "-d"} {
  48                incr i
  49                set tmp [lindex $argv $i]
  50                regsub "\[^/\]$" $tmp "&/" output_directory
  51                continue
  52        }
  53        lappend files $arg
  54}
  55
  56proc flush_msg {} {
  57        global msgid msgstr mode lang out fuzzy
  58        global translated_count fuzzy_count not_translated_count
  59
  60        if {![info exists msgid] || $mode == ""} {
  61                return
  62        }
  63        set mode ""
  64        if {$fuzzy == 1} {
  65                incr fuzzy_count
  66                set fuzzy 0
  67                return
  68        }
  69
  70        if {$msgid == ""} {
  71                set prefix "set ::msgcat::header"
  72        } else {
  73                if {$msgstr == ""} {
  74                        incr not_translated_count
  75                        return
  76                }
  77                set prefix "::msgcat::mcset $lang \"[u2a $msgid]\""
  78                incr translated_count
  79        }
  80
  81        puts $out "$prefix \"[u2a $msgstr]\""
  82}
  83
  84set fuzzy 0
  85set translated_count 0
  86set fuzzy_count 0
  87set not_translated_count 0
  88foreach 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"]
  93
  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
 101                        }
 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"
 119                        }
 120                } else {
 121                        puts stderr "Cannot handle $line"
 122                }
 123        }
 124        flush_msg
 125        close $in
 126        close $out
 127}
 128
 129if {$show_statistics} {
 130        set str ""
 131
 132        append str  "$translated_count translated message"
 133        if {$translated_count != 1} {
 134                append str s
 135        }
 136
 137        if {$fuzzy_count > 1} {
 138                append str  ", $fuzzy_count fuzzy translation"
 139                if {$fuzzy_count != 1} {
 140                        append str s
 141                }
 142        }
 143        if {$not_translated_count > 0} {
 144                append str  ", $not_translated_count untranslated message"
 145                if {$not_translated_count != 1} {
 146                        append str s
 147                }
 148        }
 149
 150        append str  .
 151        puts $str
 152}