mklink.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use vars qw($usage
   5             $in_cs @in_cs $in_cs_re
   6             $out_cs @out_cs
   7             $scriptdir
   8             );
   9
  10 $usage=<<"EOF";
  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
  16 EOF
  17
  18 @in_cs=("Utf8mcs","Utf8cns","Utf8gb","Utf8jis","Utf8ks");
  19 @out_cs=("UniMulti","UniGB","UniCNS","UniJIS","UniKS");
  20 $in_cs_re=join "|", @in_cs;
  21
  22 if(@ARGV!=2){
  23     print $usage;
  24     exit 1;
  25 }else{
  26     $in_cs=shift;
  27     $scriptdir=shift;
  28     $scriptdir=~s!/$!!;
  29     unless($in_cs=~/^($in_cs_re)$/
  30            and -e "$scriptdir/inCHISE"
  31            and -e "$scriptdir/makefonts.pl"){
  32         print $usage;
  33         exit 1;
  34     }
  35 }
  36
  37 foreach $out_cs (@out_cs){
  38     symlink "$scriptdir/inCHISE", $in_cs."To".$out_cs;
  39 }
  40 symlink "$scriptdir/makefonts.pl", "makefonts.pl";