335 lines
9.7 KiB
Plaintext
335 lines
9.7 KiB
Plaintext
::
|
|
:: This is dvidrv.btm, a batch file for 4DOS/4OS2 written by
|
|
:: Werner Lemberg <wl@gnu.org> partially based on the
|
|
:: dvidrv.btm file of the 4allTeX package written by Phons Bloemen.
|
|
::
|
|
:: It is a replacement for dvidrv.exe of the emTeX package.
|
|
::
|
|
:: Additional features: support of ps2pk
|
|
:: support of ttf2pk
|
|
:: support of hbf2gf for HBFs (Hanzi bitmap fonts)
|
|
::
|
|
:: Only quadratic printer modes are supported for ttf2pk!
|
|
::
|
|
:: All needed binaries will be searched in the path.
|
|
|
|
iff %# lt 2 then
|
|
echo ``
|
|
echo Usage: %0 dvi-driver dvi-file [parameters]
|
|
quit
|
|
endiff
|
|
|
|
setlocal
|
|
:: we set a default value only if the corresponding environment variable
|
|
:: is empty. The `=' must follow the variable name immediately.
|
|
alias set_def `iff "%[%@word["=",0,%1]]" eq "" then %+ set %& %+ endiff`
|
|
|
|
:: =========================================
|
|
:: ======== User defined variables. ========
|
|
:: =========================================
|
|
::
|
|
:: Can be overridden in the environment (except %ps2pk, %ttf2pk, %hbf2gf,
|
|
:: %pre_dpi, and %post_dpi).
|
|
|
|
:: Set these values to `no' for the programs you don't want to use.
|
|
set ps2pk=yes
|
|
set ttf2pk=yes
|
|
set hbf2gf=yes
|
|
|
|
:: where the PK files will be installed created by ps2pk, ttf2pk, and
|
|
:: hbf2gf.
|
|
:: dvidrv.btm adds `\modeless\XXXdpi' to this string (see below for the
|
|
:: exact string).
|
|
set_def pkdir=%emtexdir\pixel\tmp\pk
|
|
|
|
:: where the TrueType fonts reside. Supports trailing `!' and `!!'.
|
|
set_def ttfonts=%emtexdir\fonts\truetype
|
|
:: where auxiliary files of ttf2pk are located. Supports trailing `!'
|
|
:: and `!!'.
|
|
set_def ttfcfg=%emtexdir\ttf2pk
|
|
|
|
:: where the HBF files reside. Supports trailing `!' and `!!'.
|
|
set_def hbfonts=%emtexdir\fonts\hbf
|
|
:: where the hbf2gf config files are. Supports trailing `!' and `!!'.
|
|
set_def hbfcfg=%emtexdir\hbf2gf
|
|
|
|
:: the dpi-subdirectory has various forms; the most common are XXXdpi and
|
|
:: dpiXXX, e.g. 300dpi and dpi300. Here we define two variables which
|
|
:: control this behaviour.
|
|
:: [dpiXXX is used for TDS compatible TeX trees.]
|
|
set pre_dpi=dpi
|
|
set post_dpi=
|
|
|
|
:: ================================================
|
|
:: ======== End of user defined variables. ========
|
|
:: ================================================
|
|
|
|
:: the base name for log files etc.
|
|
set basename=%@name[%1]
|
|
|
|
:: do we run dvips?
|
|
iff "%basename" ne "dvips" then
|
|
goto nodvips1
|
|
endiff
|
|
|
|
:: we delete dvips.mfj if it exists.
|
|
del dvips.mfj >& nul
|
|
|
|
:: now we run dvips with all supplied parameters.
|
|
%&
|
|
|
|
:: do we have to generate fonts?
|
|
iff exist dvips.mfj then
|
|
goto generate_fonts
|
|
endiff
|
|
|
|
:: else all is done.
|
|
goto end
|
|
|
|
|
|
:nodvips1
|
|
:: here we call the dvi driver with all supplied parameters.
|
|
%& -pj:%basename.mfj
|
|
|
|
:: do we have to generate fonts?
|
|
iff errorlevel 8 then
|
|
goto generate_fonts
|
|
endiff
|
|
|
|
:: else all is done.
|
|
goto end
|
|
|
|
|
|
:generate_fonts
|
|
gosub call_mfjob
|
|
|
|
:: do we run dvips?
|
|
iff "%basename" ne "dvips" then
|
|
goto nodvips2
|
|
endiff
|
|
|
|
:: we now call dvips a second time
|
|
%&
|
|
|
|
:: since no fonts will be generated in the second run we remove dvips.mfj
|
|
del dvips.mfj >& nul
|
|
|
|
goto end
|
|
|
|
|
|
:nodvips2
|
|
:: we call the dvi driver a second time (without font generation).
|
|
%& -pj -fm
|
|
|
|
del %basename.mfj >& nul
|
|
|
|
goto end
|
|
|
|
|
|
:: this is the main subroutine which calls mfjob and then parses the mfjob
|
|
:: file for fonts which can be handled by ps2pk, ttf2pk, or hbf2gf.
|
|
:call_mfjob
|
|
:: this alias prints a message on the screen and writes it into the logfile.
|
|
alias echolog=`echo %& | tee /a %basename.mlg`
|
|
|
|
echo ======== DVIDRV.BTM logfile ======== > %basename.mlg
|
|
echo Commandline: dvidrv.btm %& >> %basename.mlg
|
|
echo `` >> %basename.mlg
|
|
echo basename=%basename >> %basename.mlg
|
|
echo emtexdir=%emtexdir >> %basename.mlg
|
|
echo dvidrvfonts=%dvidrvfonts >> %basename.mlg
|
|
echo mfinput=%mfinput >> %basename.mlg
|
|
echo mfjobopt=%mfjobopt >> %basename.mlg
|
|
echo textfm=%textfm >> %basename.mlg
|
|
echo psfonts=%psfonts >> %basename.mlg
|
|
echo ttfonts=%ttfonts >> %basename.mlg
|
|
echo ttfcfg=%ttfcfg >> %basename.mlg
|
|
echo hbfonts=%hbfonts >> %basename.mlg
|
|
echo hbfcfg=%hbfcfg >> %basename.mlg
|
|
echo `` >> %basename.mlg
|
|
|
|
iff "%@search[mfjob]" eq "" then
|
|
echolog MFJOB not found in the path.
|
|
echolog Can't generate PK fonts from METAFONT automatically.
|
|
echo ``
|
|
quit
|
|
endiff
|
|
|
|
:: now we call mfjob.
|
|
echolog mfjob %mfjobopt -g%basename.mfl %basename.mfj
|
|
mfjob %mfjobopt -g%basename.mfl %basename.mfj
|
|
iff %? gt 0 then
|
|
echolog ``
|
|
echolog Something went wrong while running METAFONT.
|
|
echolog Look into the log files...
|
|
echolog ``
|
|
endiff
|
|
|
|
:: after running mfjob we scan the mfjob input file for fonts which can
|
|
:: be handled by ps2pk, ttf2pk, or hbf2gf.
|
|
set lnnr=0
|
|
set totlines=%@lines[%basename.mfj]
|
|
|
|
do while %lnnr le %totlines
|
|
:: input a line.
|
|
set scratch=%@line[%basename.mfj,%lnnr]
|
|
set lnnr=%@inc[%lnnr]
|
|
|
|
:: get resolutions (METAFONT mode will be ignored).
|
|
:: example:
|
|
:: mode=lqlores[180 180];
|
|
iff %@index[%scratch,mode] ge 0 then
|
|
set temp=%@word["[]",1,%scratch]
|
|
set xdpi=%@word[0,%temp]
|
|
set ydpi=%@word[1,%temp]
|
|
endiff
|
|
|
|
:: get fontname and magnification; we then compute the font resolutions
|
|
:: (rounded to the nearest integer---there is no necessity to adjust
|
|
:: these values further because of possible rounding errors since both
|
|
:: emTeX's dvi drivers and dvips check neighbored values too).
|
|
:: example:
|
|
:: {font=cmr10; mag=0.5;}
|
|
iff %@index[%scratch,{font] ge 0 then
|
|
set testfont=%@word["=;",1,%scratch]
|
|
set temp=%@word["=;",3,%scratch]
|
|
:: we use highest arithmetic precision for these calculations.
|
|
:: Additionally we write 1/2 instead of 0.5 to avoid problems with
|
|
:: countries which use a comma instead of a colon as the decimal
|
|
:: separator.
|
|
set fontresx=%@int[%@eval[%xdpi*%temp+1/2=8]]
|
|
set fontresy=%@int[%@eval[%ydpi*%temp+1/2=8]]
|
|
set pksubdir=modeless\%[pre_dpi]%[fontresx]%post_dpi
|
|
|
|
set success=0
|
|
|
|
:: check whether %testfont leads to a PS font (we call ps2pkmfj).
|
|
iff %success == 0 .and. "%ps2pk" eq "yes" then
|
|
gosub call_ps2pk
|
|
endiff
|
|
|
|
:: check whether %testfont leads to a TrueType font.
|
|
iff %success == 0 .and. "%ttf2pk" eq "yes" then
|
|
gosub call_ttf2pk
|
|
endiff
|
|
|
|
:: check whether %testfont leads to a HBF file.
|
|
iff %success == 0 .and. "%hbf2gf" eq "yes" then
|
|
gosub call_hbf2gf
|
|
endiff
|
|
endiff
|
|
enddo
|
|
|
|
iff exist %basename.mfp then
|
|
echo `` >> %basename.mlg
|
|
echo `` >> %basename.mlg
|
|
echo ======== PS2PK logfile ======== >> %basename.mlg
|
|
echo `` >> %basename.mlg
|
|
type %basename.mfp >> %basename.mlg
|
|
echo `` >> %basename.mlg
|
|
del %basename.mfp >& nul
|
|
endiff
|
|
|
|
iff exist %basename.mfl then
|
|
echo `` >> %basename.mlg
|
|
type %basename.mfl >> %basename.mlg
|
|
echo `` >> %basename.mlg
|
|
del %basename.mfl >& nul
|
|
endiff
|
|
|
|
return
|
|
|
|
|
|
:call_ttf2pk
|
|
iff "%@search[ttf2pk]" eq "" then
|
|
echolog TTF2PK not found in the path.
|
|
echolog Can't generate PK fonts from TrueType fonts automatically.
|
|
echo ``
|
|
quit
|
|
endiff
|
|
|
|
echolog ttf2pk -q -n %testfont %fontresx
|
|
ttf2pk -q -n %testfont %fontresx
|
|
|
|
iff %? == 0 then
|
|
echolog Font %pkdir\%pksubdir\%testfont.pk generated.
|
|
mkdir /s %pkdir\%pksubdir >& nul
|
|
move %testfont.pk %pkdir\%pksubdir >& nul
|
|
set success=1
|
|
elseiff %? == 2 then
|
|
echolog (%lnnr/%totlines): Font %testfont is no TrueType font.
|
|
set success=0
|
|
else
|
|
echolog Error running TTF2PK for font %testfont!
|
|
endiff
|
|
|
|
return
|
|
|
|
|
|
:call_hbf2gf
|
|
iff "%@search[hbf2gf]" eq "" then
|
|
echolog HBF2GF not found in the path.
|
|
echolog Can't generate PK fonts from HBF files automatically.
|
|
echo ``
|
|
quit
|
|
endiff
|
|
|
|
echolog hbf2gf -q -p -n %testfont %fontresx %fontresy
|
|
hbf2gf -q -p -n %testfont %fontresx %fontresy
|
|
|
|
iff %? == 0 then
|
|
echolog Font %pkdir\%pksubdir\%testfont.pk generated.
|
|
mkdir /s %pkdir\%pksubdir >& nul
|
|
gftopk %testfont.gf %testfont.pk
|
|
move %testfont.pk %pkdir\%pksubdir >& nul
|
|
del %testfont.gf >& nul
|
|
set success=1
|
|
elseiff %? == 2 then
|
|
echolog (%lnnr/%totlines): Font %testfont is no HBF.
|
|
set success=0
|
|
else
|
|
echolog Error running HBF2GF for font %testfont!
|
|
endiff
|
|
|
|
return
|
|
|
|
|
|
:call_ps2pk
|
|
iff not exist %pkdir\%pksubdir\%testfont.pk then
|
|
iff "%@search[ps2pkmfj]" eq "" .or. "%@search[ps2pk]" eq "" then
|
|
echolog PS2PKMFJ and/or PS2PK not found in the path.
|
|
echolog Can't generate PK fonts from PostScript fonts automatically.
|
|
echo ``
|
|
quit
|
|
endiff
|
|
|
|
echolog ps2pkmfj -X%fontresx -Y%fontresy %testfont %testfont.pk
|
|
ps2pkmfj -X%fontresx -Y%fontresy %testfont %testfont.pk | input %%pspkline
|
|
|
|
iff errorlevel != 1 then
|
|
%pspkline >> %basename.mfp
|
|
iff %? == 0 then
|
|
echolog Font %pkdir\%pksubdir\%testfont.pk generated.
|
|
mkdir /s %pkdir\%pksubdir >& nul
|
|
move %testfont.pk %pkdir\%pksubdir >& nul
|
|
success=1
|
|
else
|
|
echolog Error running PS2PK for font %testfont!
|
|
endiff
|
|
else
|
|
echolog (%lnnr/%totlines): Font %testfont is no PS font.
|
|
success=0
|
|
endiff
|
|
else
|
|
echolog Font %pkdir\%pksubdir\%testfont.pk already exists.
|
|
endiff
|
|
|
|
return
|
|
|
|
|
|
:end
|
|
|
|
endlocal
|
|
|
|
:: ==== end of dvidrv.btm ====
|