5 $in_cs @in_cs $in_cs_re
11 Usage: $0 <input coding system> <script directory>
12 creates necessary links of external OTP to the curret directory.
13 input coding system: Utf8mcs, Utf8cns, Utf8gb, Utf8jis, Utf8ks.
14 script directory: directory where inCHISE and makefonts.pl exist,
15 typically /usr/local/lib/chise/omega
18 @in_cs=("Utf8mcs","Utf8cns","Utf8gb","Utf8jis","Utf8ks");
19 @out_cs=("UniMulti","UniGB","UniCNS","UniJIS","UniKS");
20 $in_cs_re=join "|", @in_cs;
29 unless($in_cs=~/^($in_cs_re)$/
30 and -e "$scriptdir/inCHISE"
31 and -e "$scriptdir/makefonts.pl"){
37 foreach $out_cs (@out_cs){
38 symlink "$scriptdir/inCHISE", $in_cs."To".$out_cs;
40 symlink "$scriptdir/makefonts.pl", "makefonts.pl";