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