@echo off
echo off
jgawk BEGIN{exit(1)}
if errorlevel 1 goto JgawkAvailable
goto JGAWKnotAvailable
:JgawkAvailable
set name=min10
set nname=minm
GOTO MAINLOOP
:ENDofMIN10
%
set name=goth10
set nname=gots
GOTO MAINLOOP
:ENDofGOTH10
%
if not exist tmin10.tfm goto ENDofTMIN10
set name=tmin10
set nname=tmim
GOTO MAINLOOP
:ENDofTMIN10
%
if not exist tgoth10.tfm goto ENDofTGOTH10
set name=tgoth10
set nname=tgos
GOTO MAINLOOP
:ENDofTGOTH10
%
goto END
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:MAINLOOP
copy %name%.tfm dp%nname%aa.tfm > nul
tftopl %name%.tfm %name%.pl > nul
if not exist %name%.pl goto TFtoPLnotAvailable
%
JGAWK -v level=1 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ba.tfm > nul
if not exist dp%nname%ba.tfm goto PLtoTFnotAvailable
JGAWK -v level=2 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ca.tfm > nul
JGAWK -v level=3 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%da.tfm > nul
JGAWK -v level=4 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ea.tfm > nul
%
JGAWK -v level=-1 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ga.tfm > nul
JGAWK -v level=-2 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ha.tfm > nul
JGAWK -v level=-3 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ia.tfm > nul
JGAWK -v level=-4 -f modi_jfm.awk %name%.pl > work.pl
textcnv -fu work.pl > nul
pltotf work.pl dp%nname%ja.tfm > nul
%
del work.pl
del %name%.pl
goto ENDOF%name%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:TFMnotFound
ECHO JFMファイルが見つかりません。JFＭがあるディレクトリにCHDIRして
ECHO から実行してください。
goto END
%
:TFtoPLnotAvailabel
echo TFtoPL がうまく動作しないようです。(;_;) パスなどを確認してください。
goto END
%
:PLtoTFnotAvailabel
echo PLtoTF がうまく動作しないようです。(;_;) パスなどを確認してください。
goto END
:JGAWKnotAvailabel
echo JGAWK が動かないようです。(;_;) なぜ？
goto END

:COMPLETE
処理が終了しました。
:END