%
%        (C)1992 Institute for New Generation Computer Technology
%        $@G[I[$=$NB>$O(HCOPYRIGHT$@%U%!%$%k$r;2>H$7$F2<$5$$(H
%        (Read COPYRIGHT for detailed information.)
%
#
set com = $0
set tf = /tmp/$com:t.$$

foreach f ( $argv )
     set fr = $f:r
     sjtoeuc $fr.idx >! $tf.idx
     makeindex $tf.idx
     sed 's/\\idxdotfill ,/\\idxdotfill/' $tf.ind | euctosj >! $fr.ind
     echo remove $tf*
     rm $tf*
     echo make index file : $fr.ind
end
