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