blob: 39694a850a4f16a4c5f0b7444470f9baa6310232 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# This script is almost as same as makerc.pl except that the coding of
# nls files is converted from euc_japan to shift_jis by nkf.exe
#
# this is for japanese nls files
#
# 1998/09/23 - nayuta
print "#include <windows.h>\n";
print "STRINGTABLE DISCARDABLE\n";
print "BEGIN\n";
for($i=1; $i <32;$i++) {
$filename = "set" . $i;
open(CURRSET,"nkf -E -s $filename |");
while(<CURRSET>) {
chop $_;
if (/^\$/) {
print "//" . $_ . "\n";
}
else {
# comment following for greek ???
s/\"/\"\"/g;
($num,$line)= split(' ',$_,2);
print ($i*10000 + $num);
print " \"" . $line . "\"\n";
}
}
}
print "END\n"
|
