lang-tables.pl

plc软件的源代码 支持PIC ATMEGA单片机

#!/usr/bin/perl

$t = '';

for $file (sort <lang-*.txt>) {
    open(IN, $file);

    $name = $file;
    $name =~ s#lang-##;
    $name =~ s#(.)#uc($1)#e;
    $name =~ s#\.txt##;
    $nameUc = uc($name);
    
    print "#ifdef LDLANG_$nameUc\n";
    print "static LangTable Lang${name}Table[] = {\n";

    $engl = 1;
    while(<IN>) {
        chomp;

        if(/^\s*$/) {
            if($engl) {
                next;
            } else {
                die "blank line mid-translation at $file, $.\n";
            }
        }

        if($engl) {
            $toTranslate = $_;
            $engl = 0;
        } else {
            $translated = $_;

            print "    { $toTranslate, $translated },\n";
            $engl = 1;
        }
    }

    print "};\n";

    print <<EOT;
static Lang Lang$name = {
    Lang${name}Table, sizeof(Lang${name}Table)/sizeof(Lang${name}Table[0])
};
#endif
EOT

    close FILE;
}