home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume25 / dvi / patch02 / patch-1.7-1.8 < prev   
Encoding:
Text File  |  1991-11-11  |  33.8 KB  |  1,211 lines
  1. *** tmp/Makefile    Mon May 20 19:05:45 1991
  2. --- Makefile    Tue Oct 22 10:20:07 1991
  3. ***************
  4. *** 1,5
  5.   # Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  6. ! # $Header: Makefile,v 1.24 91/05/20 20:05:44 hmgr Exp $
  7.   
  8.   CXX = CC
  9.   .SUFFIXES: .C
  10.  
  11. --- 1,5 -----
  12.   # Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  13. ! # $Header: Makefile,v 1.28 91/10/22 11:20:05 hmgr Exp $
  14.   
  15.   CXX = CC
  16.   .SUFFIXES: .C
  17. ***************
  18. *** 10,15
  19.   # -DBSD            for BSD derivatives
  20.   # -DMSDOS        for Zortech C++ - also run "make msdos-files"
  21.   # -DFREE_TAKES_CHAR    if you have a free(char*) instead of free(void*)
  22.   # -DHP2686_FPATH=/path1:/path2:...
  23.   #            to modify the default font search path
  24.   CFLAGS = -g
  25.  
  26. --- 10,17 -----
  27.   # -DBSD            for BSD derivatives
  28.   # -DMSDOS        for Zortech C++ - also run "make msdos-files"
  29.   # -DFREE_TAKES_CHAR    if you have a free(char*) instead of free(void*)
  30. + # -DUSE_DIRENT        use <dirent.h> instead of <ndir.h> or <sys/dir.h>
  31. + #
  32.   # -DHP2686_FPATH=/path1:/path2:...
  33.   #    to modify the default font search path for your system
  34.   #
  35. ***************
  36. *** 11,17
  37.   # -DMSDOS        for Zortech C++ - also run "make msdos-files"
  38.   # -DFREE_TAKES_CHAR    if you have a free(char*) instead of free(void*)
  39.   # -DHP2686_FPATH=/path1:/path2:...
  40. ! #            to modify the default font search path
  41.   CFLAGS = -g
  42.   LIBS = -lm
  43.   
  44.  
  45. --- 13,25 -----
  46.   # -DUSE_DIRENT        use <dirent.h> instead of <ndir.h> or <sys/dir.h>
  47.   #
  48.   # -DHP2686_FPATH=/path1:/path2:...
  49. ! #    to modify the default font search path for your system
  50. ! #
  51. ! # -DMF_SCRIPT=\"script\"
  52. ! #    where the usage is: script dpi bdpi magnification [mode]
  53. ! #    script tries to build the needed font on-the-fly
  54. ! #    you can use the "MakeTeXPK" script that comes with the dvips package
  55. ! #
  56.   CFLAGS = -g
  57.   LIBS = -lm
  58.   
  59. ***************
  60. *** 19,25
  61.       util.C global.C stack.C dirs.C dvi.C font.C readfont.C gffont.C \
  62.       pkfont.C bitvec.C hp2684.h hp33440.h hp2686.h defs.h extern.h \
  63.       dirs.h font.h dev.h darray.h boolean.h bitvec.h \
  64. !     ljdump.c
  65.   
  66.   OBJS = main.o dev.o hp2686.o hp33440.o hp2684.o util.o global.o stack.o \
  67.       dirs.o dvi.o font.o readfont.o gffont.o pkfont.o bitvec.o
  68.  
  69. --- 27,33 -----
  70.       util.C global.C stack.C dirs.C dvi.C font.C readfont.C gffont.C \
  71.       pkfont.C bitvec.C hp2684.h hp33440.h hp2686.h defs.h extern.h \
  72.       dirs.h font.h dev.h darray.h boolean.h bitvec.h \
  73. !     ljdump.c MakeTeXPK
  74.   
  75.   OBJS = main.o dev.o hp2686.o hp33440.o hp2684.o util.o global.o stack.o \
  76.       dirs.o dvi.o font.o readfont.o gffont.o pkfont.o bitvec.o
  77. *** tmp/README    Thu May 23 10:45:10 1991
  78. --- README    Tue Oct 22 10:42:57 1991
  79. ***************
  80. *** 1,4
  81. ! $Header: README,v 1.15 91/05/23 11:45:11 hmgr Exp $
  82.   
  83.   Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  84.   You can do what you wish with this as long as
  85.  
  86. --- 1,4 -----
  87. ! $Header: README,v 1.22 91/10/22 11:42:54 hmgr Exp $
  88.   
  89.   Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  90.   You can do what you wish with this as long as
  91. ***************
  92. *** 59,64
  93.   You will have to define -DMSDOS or -DBSD in the Makefile if you are on
  94.   those systems.  My Sparc also needed -DFREE_TAKES_CHAR.
  95.   
  96.   Use "make ljdump" to build the "ljdump" program.  This is useful for
  97.   debugging dvi by converting PCL to a semi-human-readable dump.
  98.   
  99.  
  100. --- 59,75 -----
  101.   You will have to define -DMSDOS or -DBSD in the Makefile if you are on
  102.   those systems.  My Sparc also needed -DFREE_TAKES_CHAR.
  103.   
  104. + You can make dvi run a script to build missing fonts on the fly.  Add
  105. + the -DMF_SCRIPT="script" definition in the Makefile if you want this.
  106. + The script is run as "script dpi bdpi magnification [mode]".
  107. + 
  108. + You can use the "MakeTeXPK" script that comes from the fine dvips
  109. + package by Tomas Rokicki at Stanford University.  dvips, which converts
  110. + DVI output to PostScript, may be ftp-ed from labrea.stanford.edu.  An
  111. + internal-HP version of MakeTeXPK is included with this package, though
  112. + it doubtless will need hacking to make it work on your system.  This
  113. + feature is unlikely to work on MSDOS.
  114. + 
  115.   Use "make ljdump" to build the "ljdump" program.  This is useful for
  116.   debugging dvi by converting PCL to a semi-human-readable dump.
  117.   
  118. ***************
  119. *** 72,78
  120.   available to others too.
  121.   
  122.   
  123. - 
  124.       -- Parag Patel <parag@sde.hp.com>
  125.   
  126.   
  127.  
  128. --- 83,88 -----
  129.   available to others too.
  130.   
  131.   
  132.       -- Parag Patel <parag@sde.hp.com>
  133.   
  134.   
  135. ***************
  136. *** 79,85
  137.   
  138.   --------------------REVISION-INFO----------------------
  139.   
  140. ! 1.6    released on HP INTERX Contrib Tape and comp.sources.misc
  141.   
  142.   1.7    first bug-fix release
  143.       files modified: Makefile README extern.h main.C readfont.C hp2686.h
  144.  
  145. --- 89,95 -----
  146.   
  147.   --------------------REVISION-INFO----------------------
  148.   
  149. ! 1.6    released on HP INTEREX Contrib Tape and comp.sources.misc
  150.   
  151.   1.7    first bug-fix release
  152.       files modified: Makefile README extern.h main.C readfont.C hp2686.h
  153. ***************
  154. *** 87,89
  155.       version string slightly modified so say_hello() in main.C works
  156.       also look for fonts such as /path/cmr7.300pk and cmr7.300gf
  157.       allow overriding default font search path from Makefile
  158.  
  159. --- 97,108 -----
  160.       version string slightly modified so say_hello() in main.C works
  161.       also look for fonts such as /path/cmr7.300pk and cmr7.300gf
  162.       allow overriding default font search path from Makefile
  163. + 
  164. + 1.8    use DVIFONTPATH env var instead of FONTPATH to search for fonts
  165. +     try running a script which runs Metafont to generate fonts on the fly
  166. +         (this only works under Unix right now)
  167. +     LaserJet+ cannot really handle 8-bit data - back to the old code
  168. +     dvi -v runs properly when strings are put into read-only memory
  169. +     Set -DUSE_DIRENT in the Makefile if you have <dirent.h> and not
  170. +         <ndir.h> or <sys/dir.h>
  171. +     dvi compiles and runs using C++ 3.0 now
  172. *** tmp/dirs.C    Fri Feb 22 14:57:30 1991
  173. --- dirs.C    Mon Aug 19 16:45:52 1991
  174. ***************
  175. *** 1,5
  176.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  177. ! static const char rcsid[] = "$Header: dirs.C,v 1.10 91/02/22 15:57:16 hmgr Exp $";
  178.   
  179.   // read font directory names into memory for fast traversal
  180.   //
  181.  
  182. --- 1,5 -----
  183.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  184. ! static const char rcsid[] = "$Header: dirs.C,v 1.11 91/08/19 17:45:50 hmgr Exp $";
  185.   
  186.   // read font directory names into memory for fast traversal
  187.   //
  188. ***************
  189. *** 12,18
  190.   #define    d_name    name
  191.   #else
  192.   #ifdef    BSD
  193. ! #include <sys/dir.h>
  194.   #else
  195.   #include <ndir.h>
  196.   #endif
  197.  
  198. --- 12,18 -----
  199.   #define    d_name    name
  200.   #else
  201.   #ifdef    BSD
  202. ! #  include <sys/dir.h>
  203.   #else
  204.   #  ifdef USE_DIRENT
  205.   #      include <dirent.h>
  206. ***************
  207. *** 14,20
  208.   #ifdef    BSD
  209.   #include <sys/dir.h>
  210.   #else
  211. ! #include <ndir.h>
  212.   #endif
  213.   #endif
  214.   
  215.  
  216. --- 14,24 -----
  217.   #ifdef    BSD
  218.   #  include <sys/dir.h>
  219.   #else
  220. ! #  ifdef USE_DIRENT
  221. ! #      include <dirent.h>
  222. ! #  else
  223. ! #      include <ndir.h>
  224. ! #  endif
  225.   #endif
  226.   #endif
  227.   
  228. ***************
  229. *** 82,88
  230.       for (FIND *ent = findfirst(dos_dirpath, FA_DIREC); ent != NULL;
  231.           ent = findnext())
  232.   #else
  233. !     for (direct * ent = readdir(dir); ent != NULL; ent = readdir(dir))
  234.   #endif
  235.       {
  236.           char *s = strchr(ent->d_name, '.');
  237.  
  238. --- 86,96 -----
  239.       for (FIND *ent = findfirst(dos_dirpath, FA_DIREC); ent != NULL;
  240.           ent = findnext())
  241.   #else
  242. ! #  ifdef USE_DIRENT
  243. !     for (dirent *ent = readdir(dir); ent != NULL; ent = readdir(dir))
  244. ! #  else
  245. !     for (direct *ent = readdir(dir); ent != NULL; ent = readdir(dir))
  246. ! #  endif
  247.   #endif
  248.       {
  249.           char *s = strchr(ent->d_name, '.');
  250. *** tmp/dvi.1    Fri Feb 22 14:53:53 1991
  251. --- dvi.1    Mon Aug 19 16:41:17 1991
  252. ***************
  253. *** 1,5
  254.   .\" Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  255. ! .\" $Header: dvi.1,v 1.29 91/02/22 15:53:38 hmgr Exp $
  256.   .TH DVI 1 unsupported
  257.   .ad b
  258.   .SH NAME
  259.  
  260. --- 1,5 -----
  261.   .\" Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  262. ! .\" $Header: dvi.1,v 1.30 91/08/19 17:41:15 hmgr Exp $
  263.   .TH DVI 1 unsupported
  264.   .ad b
  265.   .SH NAME
  266. ***************
  267. *** 117,123
  268.   should look for either the GF or PK format font files.
  269.   The directories should have subdirectories for various magnifications.
  270.   Overrides the value of the environment var
  271. ! .B FONTPATH
  272.   if it exists.
  273.   The separator between the various path is platform dependent.
  274.   See the section on PLATFORM DEPENDENCIES for details.
  275.  
  276. --- 117,123 -----
  277.   should look for either the GF or PK format font files.
  278.   The directories should have subdirectories for various magnifications.
  279.   Overrides the value of the environment var
  280. ! .B DVIFONTPATH
  281.   if it exists.
  282.   The separator between the various path is platform dependent.
  283.   See the section on PLATFORM DEPENDENCIES for details.
  284. ***************
  285. *** 196,202
  286.   It searches along a default directory path for a printer
  287.   to find the necessary fonts.
  288.   The environment variable
  289. ! .B FONTPATH
  290.   or the
  291.   .B \-d
  292.   option
  293.  
  294. --- 196,202 -----
  295.   It searches along a default directory path for a printer
  296.   to find the necessary fonts.
  297.   The environment variable
  298. ! .B DVIFONTPATH
  299.   or the
  300.   .B \-d
  301.   option
  302. ***************
  303. *** 201,207
  304.   .B \-d
  305.   option
  306.   may be used to override this if desired.
  307. ! The default FONTPATHs are listed in the PRINTER DEPENDENCIES section below.
  308.   .PP
  309.   The GF format is part of the normal output from the Metafont program.
  310.   The PK format is a packed version of the GF file and is
  311.  
  312. --- 201,207 -----
  313.   .B \-d
  314.   option
  315.   may be used to override this if desired.
  316. ! The default DVIFONTPATHs are listed in the PRINTER DEPENDENCIES section below.
  317.   .PP
  318.   The GF format is part of the normal output from the Metafont program.
  319.   The PK format is a packed version of the GF file and is
  320. ***************
  321. *** 307,313
  322.   Other commands may be supported in the future.
  323.   .SH PLATFORM DEPENDENCIES
  324.   The separator between the component parts
  325. ! in either the FONTPATH environment variable
  326.   or the optional fontpath specification is platform dependent.
  327.   Default separator for UNIX is the colon character,
  328.   for MSDOS it is the semicolon character.
  329.  
  330. --- 307,313 -----
  331.   Other commands may be supported in the future.
  332.   .SH PLATFORM DEPENDENCIES
  333.   The separator between the component parts
  334. ! in either the DVIFONTPATH environment variable
  335.   or the optional fontpath specification is platform dependent.
  336.   Default separator for UNIX is the colon character,
  337.   for MSDOS it is the semicolon character.
  338. ***************
  339. *** 321,327
  340.   .br
  341.   Default options: page-reversal on, portrait
  342.   .br
  343. ! Default FONTPATH for UNIX:
  344.   /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  345.   .br
  346.   Default FONTPATH for MSDOS:
  347.  
  348. --- 321,327 -----
  349.   .br
  350.   Default options: page-reversal on, portrait
  351.   .br
  352. ! Default DVIFONTPATH for UNIX:
  353.   /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  354.   .br
  355.   Default DVIFONTPATH for MSDOS:
  356. ***************
  357. *** 324,330
  358.   Default FONTPATH for UNIX:
  359.   /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  360.   .br
  361. ! Default FONTPATH for MSDOS:
  362.   /usr/lib/tex/fontbits/laser;/usr/lib/tex/fnt;/usr/local/tex/fontbits/laser
  363.   .TP
  364.   .B HP33440 LaserJetII ljII lj2 laser2 laserII default
  365.  
  366. --- 324,330 -----
  367.   Default DVIFONTPATH for UNIX:
  368.   /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  369.   .br
  370. ! Default DVIFONTPATH for MSDOS:
  371.   /usr/lib/tex/fontbits/laser;/usr/lib/tex/fnt;/usr/local/tex/fontbits/laser
  372.   .TP
  373.   .B HP33440 LaserJetII ljII lj2 laser2 laserII default
  374. ***************
  375. *** 336,342
  376.   .br
  377.   Default options: page-reversal off, portrait
  378.   .br
  379. ! Default FONTPATH: <same as LJ+>
  380.   .TP
  381.   .B HP33447 LaserJetIID ljIId lj2d laser2D laserIID
  382.   HP LaserJetIID \-
  383.  
  384. --- 336,342 -----
  385.   .br
  386.   Default options: page-reversal off, portrait
  387.   .br
  388. ! Default DVIFONTPATH: <same as LJ+>
  389.   .TP
  390.   .B HP33447 LaserJetIID ljIId lj2d laser2D laserIID
  391.   HP LaserJetIID \-
  392. ***************
  393. *** 344,350
  394.   .br
  395.   Default options: page-reversal off, portrait, double-sided vertical binding
  396.   .br
  397. ! Default FONTPATH: <same as LJ+>
  398.   .TP
  399.   .B HP2684 JumboJet lj2000 laser2000 lj2k
  400.   HP LaserJet 2000 \-
  401.  
  402. --- 344,350 -----
  403.   .br
  404.   Default options: page-reversal off, portrait, double-sided vertical binding
  405.   .br
  406. ! Default DVIFONTPATH: <same as LJ+>
  407.   .TP
  408.   .B HP2684 JumboJet lj2000 laser2000 lj2k
  409.   HP LaserJet 2000 \-
  410. ***************
  411. *** 353,359
  412.   .br
  413.   Default options: page-reversal off, portrait, double-sided vertical binding
  414.   .br
  415. ! Default FONTPATH: <same as LJ+>
  416.   .SH FILES
  417.   .nf
  418.   /usr/lib/tex/fontbits/<printer>/<magdirs>/<PK fonts>
  419.  
  420. --- 353,359 -----
  421.   .br
  422.   Default options: page-reversal off, portrait, double-sided vertical binding
  423.   .br
  424. ! Default DVIFONTPATH: <same as LJ+>
  425.   .SH FILES
  426.   .nf
  427.   /usr/lib/tex/fontbits/<printer>/<magdirs>/<PK fonts>
  428. *** tmp/dvi.C    Fri Feb 22 14:57:47 1991
  429. --- dvi.C    Mon Aug 19 16:46:03 1991
  430. ***************
  431. *** 1,5
  432.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  433. ! static const char rcsid[] = "$Header: dvi.C,v 1.24 91/02/22 15:57:33 hmgr Exp $";
  434.   
  435.   // dvi scanning routines
  436.   //
  437.  
  438. --- 1,5 -----
  439.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  440. ! static const char rcsid[] = "$Header: dvi.C,v 1.25 91/08/19 17:46:00 hmgr Exp $";
  441.   
  442.   // dvi scanning routines
  443.   //
  444. *** tmp/extern.h    Fri May 17 15:28:16 1991
  445. --- extern.h    Thu Oct 10 10:15:55 1991
  446. ***************
  447. *** 1,5
  448.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  449. ! // $Header: extern.h,v 1.25 91/05/17 16:28:17 hmgr Exp $
  450.   
  451.   // externs for various LaserJet+ DVI filter functions
  452.   //
  453.  
  454. --- 1,5 -----
  455.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  456. ! // $Header: extern.h,v 1.26 91/09/13 16:14:20 hmgr Exp $
  457.   
  458.   // externs for various LaserJet+ DVI filter functions
  459.   //
  460. ***************
  461. *** 94,100
  462.   #if FREE_TAKES_CHAR
  463.   inline void  strfree(const char *s) { if (s != NULL) free((char *)s); }
  464.   #else
  465. ! inline void  strfree(const char *s) { if (s != NULL) free((const void *)s); }
  466.   #endif
  467.   inline char *strdup(const char *s)
  468.       { return s != NULL ? strcpy((char*)malloc(strlen(s) + 1), s) : NULL; }
  469.  
  470. --- 94,100 -----
  471.   #if FREE_TAKES_CHAR
  472.   inline void  strfree(const char *s) { if (s != NULL) free((char *)s); }
  473.   #else
  474. ! inline void  strfree(const char *s) { if (s != NULL) free((void *)s); }
  475.   #endif
  476.   inline char *strdup(const char *s)
  477.       { return s != NULL ? strcpy((char*)malloc(strlen(s) + 1), s) : NULL; }
  478. *** tmp/gffont.C    Fri Feb 22 14:58:20 1991
  479. --- gffont.C    Mon Aug 19 16:45:55 1991
  480. ***************
  481. *** 1,5
  482.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  483. ! static const char rcsid[] = "$Header: gffont.C,v 1.20 91/02/22 15:58:04 hmgr Exp $";
  484.   
  485.   // read font data from the METAFONT GF (generic font) files
  486.   //
  487.  
  488. --- 1,5 -----
  489.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  490. ! static const char rcsid[] = "$Header: gffont.C,v 1.21 91/08/19 17:45:52 hmgr Exp $";
  491.   
  492.   // read font data from the METAFONT GF (generic font) files
  493.   //
  494. ***************
  495. *** 85,95
  496.   
  497.       long dsize = getsval(4, fp);
  498.       debug(4, "GF designsize=%ld", dsize);
  499. !     if (f.basename != NULL && dsize >> 4 != f.designsize)
  500. !     if (dochecksum && dsize != 0 && f.designsize != 0)
  501. !         quit("Designsize in DVI and GF file %s does not match", f.path);
  502. !     else
  503. !         warn("Designsize in DVI and GF file %s does not match", f.path);
  504.   
  505.       // check the checksum (!)
  506.       long check = getuval(4, fp);
  507.  
  508. --- 85,91 -----
  509.   
  510.       long dsize = getsval(4, fp);
  511.       debug(4, "GF designsize=%ld", dsize);
  512. !     // do not bother checking the designsize - it seems pointless
  513.   
  514.       // check the checksum (!)
  515.       long check = getuval(4, fp);
  516. *** tmp/global.C    Fri Feb 22 14:57:10 1991
  517. --- global.C    Mon Aug 19 16:42:34 1991
  518. ***************
  519. *** 1,5
  520.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  521. ! static const char rcsid[] = "$Header: global.C,v 1.24 91/02/22 15:56:57 hmgr Exp $";
  522.   
  523.   // Global variables for DVI filter.
  524.   // All globally visible variables are here.
  525.  
  526. --- 1,5 -----
  527.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  528. ! static const char rcsid[] = "$Header: global.C,v 1.25 91/08/19 17:42:32 hmgr Exp $";
  529.   
  530.   // Global variables for DVI filter.
  531.   // All globally visible variables are here.
  532. ***************
  533. *** 119,125
  534.       char *str;
  535.       if (fontpath == NULL)
  536.       {
  537. !     str = getenv("FONTPATH");
  538.       if (str != NULL && *str != '\0')
  539.           fontpath = str;
  540.       }
  541.  
  542. --- 119,127 -----
  543.       char *str;
  544.       if (fontpath == NULL)
  545.       {
  546. !     str = getenv("DVIFONTPATH");
  547. !     if (str == NULL || *str == '\0')
  548. !         str = getenv("FONTPATH");    // for backward-compatibility - sorry!
  549.       if (str != NULL && *str != '\0')
  550.           fontpath = str;
  551.       }
  552. *** tmp/hp2686.C    Fri Feb 22 14:56:06 1991
  553. --- hp2686.C    Mon Aug 19 16:46:06 1991
  554. ***************
  555. *** 1,5
  556.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  557. ! static const char rcsid[] = "$Header: hp2686.C,v 1.20 91/02/22 15:55:21 hmgr Exp $";
  558.   
  559.   // HP2686 LaserJet+ and LaserJetII device-specific functions.
  560.   // The various Reference Manuals should be consulted for more
  561.  
  562. --- 1,5 -----
  563.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  564. ! static const char rcsid[] = "$Header: hp2686.C,v 1.21 91/08/19 17:46:04 hmgr Exp $";
  565.   
  566.   // HP2686 LaserJet+ and LaserJetII device-specific functions.
  567.   // The various Reference Manuals should be consulted for more
  568. ***************
  569. *** 66,74
  570.   //
  571.   const char *HP2686::char2dev(int ch, int &len)
  572.   {
  573. !     static char buf[20];
  574. !     if ((ch >= 32 && ch <= 127) || ch >= 160)
  575. !     sprintf(buf, "%c", ch);
  576.       else
  577.       sprintf(buf, "\033&p1X%c", ch);
  578.       len = strlen(buf);
  579.  
  580. --- 66,82 -----
  581.   //
  582.   const char *HP2686::char2dev(int ch, int &len)
  583.   {
  584. !     static char buf[2];
  585. !     // the LaserJet Plus can't really handle full 8-bit fonts.
  586. !     // it can handle only character codes 33-127 and 160-255
  587. !     // we'll map as many of these as possible on a lowest-code first basis
  588. !     buf[0] = buf[1] = 0;
  589. !     if (ch <= 32)
  590. !     buf[0] = ch + 160;
  591. !     else if (ch > 32 && ch <= 127)
  592. !     buf[0] = ch;
  593. !     else if (ch <= 190)
  594. !     buf[0] = ch + 65;
  595.       else
  596.       quit("LaserJet+ cannot handle true 8-bit fonts -- Sorry");
  597.       len = 1;
  598. ***************
  599. *** 70,79
  600.       if ((ch >= 32 && ch <= 127) || ch >= 160)
  601.       sprintf(buf, "%c", ch);
  602.       else
  603. !     sprintf(buf, "\033&p1X%c", ch);
  604. !     len = strlen(buf);
  605. !     if (ch == 0)
  606. !     len++;
  607.       return buf;
  608.   }
  609.   
  610.  
  611. --- 78,85 -----
  612.       else if (ch <= 190)
  613.       buf[0] = ch + 65;
  614.       else
  615. !     quit("LaserJet+ cannot handle true 8-bit fonts -- Sorry");
  616. !     len = 1;
  617.       return buf;
  618.   }
  619.   
  620. ***************
  621. *** 219,227
  622.   // 
  623.   void HP2686::downchar(font &f, fontchar &g, int ch)
  624.   {
  625. !     // describe the character and its font to the LaserJet
  626. !     printf("\033*c%ldd%dE", f.num, ch);
  627. !     downljchar(f, g, ch);
  628.   }
  629.   
  630.   // this sets up this character in the LaserJet memory so that
  631.  
  632. --- 225,249 -----
  633.   // 
  634.   void HP2686::downchar(font &f, fontchar &g, int ch)
  635.   {
  636. !     // describe the character and its font to the LaserJet Plus
  637. !     // remember, only codes 33-127 and 160-255 can be sent
  638. !     if (ch <= 32)
  639. !     {
  640. !     printf("\033*c%ldd%dE", f.num, ch + 160);
  641. !     downljchar(f, g, ch + 160);
  642. !     }
  643. !     else if (ch > 32 && ch <= 127)
  644. !     {
  645. !     printf("\033*c%ldd%dE", f.num, ch);
  646. !     downljchar(f, g, ch);
  647. !     }
  648. !     else if (ch <= 190)
  649. !     {
  650. !     printf("\033*c%ldd%dE", f.num, ch + 65);
  651. !     downljchar(f, g, ch + 65);
  652. !     }
  653. !     else
  654. !     quit("LaserJet+ cannot handle true 8-bit fonts -- Sorry!");
  655.   }
  656.   
  657.   // this sets up this character in the LaserJet memory so that
  658. *** tmp/hp33440.C    Fri Feb 22 14:56:34 1991
  659. --- hp33440.C    Mon Aug 19 16:45:57 1991
  660. ***************
  661. *** 1,5
  662.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  663. ! // $Header: hp33440.C,v 1.13 91/02/22 15:56:21 hmgr Exp $
  664.   
  665.   // LaserJetII series device-specific functions.
  666.   // The LaserJetII Reference Manual should be consulted for more
  667.  
  668. --- 1,5 -----
  669.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  670. ! // $Header: hp33440.C,v 1.15 91/08/19 17:45:54 hmgr Exp $
  671.   
  672.   // LaserJetII series device-specific functions.
  673.   // The LaserJetII Reference Manual should be consulted for more
  674. ***************
  675. *** 16,22
  676.   
  677.   // initialize the LaserJet II
  678.   HP33440::HP33440() :
  679. !     HP2686(257, 256, 32, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  680.               -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  681.   {
  682.   }
  683.  
  684. --- 16,22 -----
  685.   
  686.   // initialize the LaserJet II
  687.   HP33440::HP33440() :
  688. !     HP2686(257, 256, 16, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  689.               -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  690.   {
  691.   }
  692. ***************
  693. *** 19,24
  694.       HP2686(257, 256, 32, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  695.               -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  696.   {
  697.   }
  698.   
  699.   // LaserJetIID:
  700.  
  701. --- 19,49 -----
  702.       HP2686(257, 256, 16, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  703.               -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  704.   {
  705. + }
  706. + 
  707. + // convert a character number to something that the device can deal with
  708. + // for a LaserJet II
  709. + //
  710. + const char *HP33440::char2dev(int ch, int &len)
  711. + {
  712. +     static char buf[20];
  713. +     if ((ch >= 32 && ch <= 127) || ch >= 160)
  714. +     sprintf(buf, "%c", ch);
  715. +     else
  716. +     sprintf(buf, "\033&p1X%c", ch);
  717. +     len = strlen(buf);
  718. +     if (ch == 0)
  719. +     len++;
  720. +     return buf;
  721. + }
  722. + 
  723. + // download a character for a particular font for the LaserJet II
  724. + // 
  725. + void HP33440::downchar(font &f, fontchar &g, int ch)
  726. + {
  727. +     // describe the character and its font to the LaserJet II
  728. +     printf("\033*c%ldd%dE", f.num, ch);
  729. +     downljchar(f, g, ch);
  730.   }
  731.   
  732.   // LaserJetIID:
  733. *** tmp/hp33440.h    Fri Feb 22 14:58:53 1991
  734. --- hp33440.h    Mon Aug 19 16:46:12 1991
  735. ***************
  736. *** 1,5
  737.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  738. ! // $Header: hp33440.h,v 1.8 91/02/22 15:58:41 hmgr Exp $
  739.   
  740.   // LaserJetII series device-specific definitions.
  741.   // The LaserJetII Reference Manual should be consulted for more
  742.  
  743. --- 1,5 -----
  744.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  745. ! // $Header: hp33440.h,v 1.9 91/08/19 17:46:06 hmgr Exp $
  746.   
  747.   // LaserJetII series device-specific definitions.
  748.   // The LaserJetII Reference Manual should be consulted for more
  749. ***************
  750. *** 16,23
  751.       HP33440(int maxf, int maxc, int maxpg, int maxld, int res,
  752.               int ho, int vo, int fhmn, int fhmx, int fvmn, int fvmx,
  753.               int fwd, int fhg, char *deffp) :
  754. !     HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  755. !         fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  756.   public:
  757.       HP33440();
  758.   };
  759.  
  760. --- 16,23 -----
  761.       HP33440(int maxf, int maxc, int maxpg, int maxld, int res,
  762.               int ho, int vo, int fhmn, int fhmx, int fvmn, int fvmx,
  763.               int fwd, int fhg, char *deffp) :
  764. !         HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  765. !             fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  766.   public:
  767.       const char *char2dev(int ch, int &len);
  768.       void downchar(font &f, fontchar &g, int ch);
  769. ***************
  770. *** 19,24
  771.       HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  772.           fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  773.   public:
  774.       HP33440();
  775.   };
  776.   
  777.  
  778. --- 19,26 -----
  779.           HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  780.               fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  781.   public:
  782. +     const char *char2dev(int ch, int &len);
  783. +     void downchar(font &f, fontchar &g, int ch);
  784.       HP33440();
  785.   };
  786.   
  787. *** tmp/main.C    Fri May 17 15:28:21 1991
  788. --- main.C    Fri Sep 27 15:13:37 1991
  789. ***************
  790. *** 1,5
  791.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  792. ! static const char rcsid[] = "$Header: main.C,v 1.32 91/05/17 16:28:22 hmgr Exp $";
  793.   
  794.   // TeX DVI filter main() - just parses arguments and calls functions
  795.   //
  796.  
  797. --- 1,5 -----
  798.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  799. ! static const char rcsid[] = "$Header: main.C,v 1.33 91/08/19 17:45:57 hmgr Exp $";
  800.   
  801.   // TeX DVI filter main() - just parses arguments and calls functions
  802.   //
  803. ***************
  804. *** 7,13
  805.   
  806.   #include "defs.h"
  807.   
  808. ! static char *const whatid = "@(#)dvi 1.7 (02 April 1991)";
  809.   
  810.   static void say_hello()
  811.   {
  812.  
  813. --- 7,13 -----
  814.   
  815.   #include "defs.h"
  816.   
  817. ! static char *const whatid = "@(#)dvi 1.8 (19 August 1991)";
  818.   
  819.   static void say_hello()
  820.   {
  821. ***************
  822. *** 13,18
  823.   {
  824.       // hello message like (but unlike) TeX - the following mess should
  825.       // strip out the revision number out of the build ID string "whatid"
  826.       char *s = strchr(whatid, ' ');
  827.       while (*s == ' ')
  828.       s++;
  829.  
  830. --- 13,19 -----
  831.   {
  832.       // hello message like (but unlike) TeX - the following mess should
  833.       // strip out the revision number out of the build ID string "whatid"
  834. +     mesg("TeX DVI filter version ");
  835.       char *s = strchr(whatid, ' ');
  836.       while (*s == ' ')
  837.       s++;
  838. ***************
  839. *** 16,26
  840.       char *s = strchr(whatid, ' ');
  841.       while (*s == ' ')
  842.       s++;
  843. !     char *t = s;
  844. !     while (*t != ' ' && *t != '$' && *t != '\0')
  845. !     t++;
  846. !     *t = '\0';
  847. !     mesg("TeX DVI filter version %s for ", s);
  848.   }
  849.   
  850.   static long strtonum(char *s, char **ptr)
  851.  
  852. --- 17,25 -----
  853.       char *s = strchr(whatid, ' ');
  854.       while (*s == ' ')
  855.       s++;
  856. !     while (*s != ' ' && *s != '$' && *s != '\0')
  857. !     mesg("%c", *s++);
  858. !     mesg(" for ");
  859.   }
  860.   
  861.   static long strtonum(char *s, char **ptr)
  862. *** tmp/pkfont.C    Fri Feb 22 14:58:33 1991
  863. --- pkfont.C    Mon Aug 19 16:46:18 1991
  864. ***************
  865. *** 1,5
  866.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  867. ! static const char rcsid[] = "$Header: pkfont.C,v 1.21 91/02/22 15:58:17 hmgr Exp $";
  868.   
  869.   // read font data from the METAFONT PK (packed font) files
  870.   //
  871.  
  872. --- 1,5 -----
  873.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  874. ! static const char rcsid[] = "$Header: pkfont.C,v 1.22 91/08/19 17:46:14 hmgr Exp $";
  875.   
  876.   // read font data from the METAFONT PK (packed font) files
  877.   //
  878. ***************
  879. *** 67,77
  880.   
  881.       long dsize = getsval(4, fp);
  882.       debug(4, "PK designsize=%ld", dsize);
  883. !     if (f.basename != NULL && dsize >> 4 != f.designsize)
  884. !     if (dochecksum && dsize != 0 && f.designsize != 0)
  885. !         quit("Designsize in DVI and PK file %s does not match", f.path);
  886. !     else
  887. !         warn("Designsize in DVI and PK file %s does not match", f.path);
  888.   
  889.       // check the checksum
  890.       long check = getuval(4, fp);
  891.  
  892. --- 67,73 -----
  893.   
  894.       long dsize = getsval(4, fp);
  895.       debug(4, "PK designsize=%ld", dsize);
  896. !     // do not bother checking the designsize - it seems pointless
  897.   
  898.       // check the checksum
  899.       long check = getuval(4, fp);
  900. *** tmp/readfont.C    Mon May 20 15:12:45 1991
  901. --- readfont.C    Tue Oct 22 10:13:23 1991
  902. ***************
  903. *** 1,5
  904.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  905. ! static const char rcsid[] = "$Header: readfont.C,v 1.22 91/05/20 16:12:46 hmgr Exp $";
  906.   
  907.   // read font data from the METAFONT GF (generic font) files
  908.   //
  909.  
  910. --- 1,5 -----
  911.   // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  912. ! static const char rcsid[] = "$Header: readfont.C,v 1.24 91/10/22 11:13:21 hmgr Exp $";
  913.   
  914.   // read font data from the METAFONT GF (generic font) files
  915.   //
  916. ***************
  917. *** 4,9
  918.   // read font data from the METAFONT GF (generic font) files
  919.   //
  920.   // by Parag Patel
  921.   
  922.   #include "defs.h"
  923.   
  924.  
  925. --- 4,11 -----
  926.   // read font data from the METAFONT GF (generic font) files
  927.   //
  928.   // by Parag Patel
  929. + //
  930. + // MF_SCRIPT hacks by Peter Marvit
  931.   
  932.   #include "defs.h"
  933.   
  934. ***************
  935. *** 90,96
  936.   // the information from the DVI file - we now have to actually read the
  937.   // font file (GF or PK) to get the rest of the font's description
  938.   // 
  939. ! void setupfont(font &f)
  940.   {
  941.       if (f.path != NULL)
  942.       if (tryfile(f, f.path, "", f.basename, ""))
  943.  
  944. --- 92,98 -----
  945.   // the information from the DVI file - we now have to actually read the
  946.   // font file (GF or PK) to get the rest of the font's description
  947.   // 
  948. ! static boolean trysetupfont(font &f)
  949.   {
  950.       if (f.path != NULL)
  951.       if (tryfile(f, f.path, "", f.basename, ""))
  952. ***************
  953. *** 94,100
  954.   {
  955.       if (f.path != NULL)
  956.       if (tryfile(f, f.path, "", f.basename, ""))
  957. !         return;
  958.   
  959.       // setup the font directory cache if we need to
  960.       if (pathlist.size() < 1)
  961.  
  962. --- 96,102 -----
  963.   {
  964.       if (f.path != NULL)
  965.       if (tryfile(f, f.path, "", f.basename, ""))
  966. !         return TRUE;
  967.   
  968.       // setup the font directory cache if we need to
  969.       if (pathlist.size() < 1)
  970. ***************
  971. *** 105,111
  972.       Pathent & p = pathlist[i];
  973.   
  974.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  975. !         return;
  976.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  977.           return;
  978.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  979.  
  980. --- 107,113 -----
  981.       Pathent & p = pathlist[i];
  982.   
  983.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  984. !         return TRUE;
  985.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  986.           return TRUE;
  987.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  988. ***************
  989. *** 107,113
  990.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  991.           return;
  992.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  993. !         return;
  994.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  995.           return;
  996.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  997.  
  998. --- 109,115 -----
  999.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  1000.           return TRUE;
  1001.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1002. !         return TRUE;
  1003.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1004.           return TRUE;
  1005.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1006. ***************
  1007. *** 109,115
  1008.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1009.           return;
  1010.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1011. !         return;
  1012.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1013.           return;
  1014.   
  1015.  
  1016. --- 111,117 -----
  1017.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1018.           return TRUE;
  1019.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1020. !         return TRUE;
  1021.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1022.           return TRUE;
  1023.   
  1024. ***************
  1025. *** 111,117
  1026.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1027.           return;
  1028.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1029. !         return;
  1030.   
  1031.       char ext[30];
  1032.       sprintf(ext, ".%dpk", RESOLUTION);
  1033.  
  1034. --- 113,119 -----
  1035.       if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1036.           return TRUE;
  1037.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1038. !         return TRUE;
  1039.   
  1040.       char ext[30];
  1041.       sprintf(ext, ".%dpk", RESOLUTION);
  1042. ***************
  1043. *** 116,122
  1044.       char ext[30];
  1045.       sprintf(ext, ".%dpk", RESOLUTION);
  1046.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1047. !         return;
  1048.       sprintf(ext, ".%dgf", RESOLUTION);
  1049.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1050.           return;
  1051.  
  1052. --- 118,124 -----
  1053.       char ext[30];
  1054.       sprintf(ext, ".%dpk", RESOLUTION);
  1055.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1056. !         return TRUE;
  1057.       sprintf(ext, ".%dgf", RESOLUTION);
  1058.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1059.           return TRUE;
  1060. ***************
  1061. *** 119,125
  1062.           return;
  1063.       sprintf(ext, ".%dgf", RESOLUTION);
  1064.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1065. !         return;
  1066.       }
  1067.       quit("Cannot find font file \"%s\" (at or near magnification %ld.%03ld) anywhere",
  1068.           f.basename, f.mag / 1000, f.mag % 1000);
  1069.  
  1070. --- 121,127 -----
  1071.           return TRUE;
  1072.       sprintf(ext, ".%dgf", RESOLUTION);
  1073.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1074. !         return TRUE;
  1075.       }
  1076.       return FALSE;
  1077.   }
  1078. ***************
  1079. *** 121,126
  1080.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1081.           return;
  1082.       }
  1083.       quit("Cannot find font file \"%s\" (at or near magnification %ld.%03ld) anywhere",
  1084.           f.basename, f.mag / 1000, f.mag % 1000);
  1085.   }
  1086.  
  1087. --- 123,245 -----
  1088.       if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1089.           return TRUE;
  1090.       }
  1091. +     return FALSE;
  1092. + }
  1093. + 
  1094. + #ifdef MF_SCRIPT
  1095. + // The following routine is cribbed (with permission) from the fine "dvips"
  1096. + // package by Tomas Rokicki at Stanford U.
  1097. + //
  1098. + static int magstep(int n, int bdpi)
  1099. + {
  1100. +     register float t;
  1101. +     int neg = 0;
  1102. +     if (n < 0)
  1103. +     {
  1104. +     neg = 1;
  1105. +     n = -n;
  1106. +     }
  1107. +     if (n & 1)
  1108. +     {
  1109. +     n &= ~1;
  1110. +     t = 1.095445115;
  1111. +     }
  1112. +     else
  1113. +     t = 1.0;
  1114. +     while (n > 8)
  1115. +     {
  1116. +     n -= 8;
  1117. +     t = t * 2.0736;
  1118. +     }
  1119. +     while (n > 0)
  1120. +     {
  1121. +     n -= 2;
  1122. +     t = t * 1.2;
  1123. +     }
  1124. +     if (neg)
  1125. +     return (int)(0.5 + bdpi / t);
  1126. +     else
  1127. +     return (int)(0.5 + bdpi * t);
  1128. + }
  1129. + #endif
  1130. + 
  1131. + 
  1132. + // Try to get and set the fonts we need.  If it fails, it probably means 
  1133. + // we can't find the fonts and will have to make them.  The #ifdef MF_SCRIPT 
  1134. + // allows an attempted creation of fonts, using an extrenal script which 
  1135. + // should call MetaFont, and then a retry of the [hopefully created] fonts.
  1136. + //
  1137. + void setupfont(font &f)
  1138. + {
  1139. +     if (trysetupfont(f))
  1140. +     return;
  1141. + 
  1142. + #ifdef MF_SCRIPT
  1143. +     // The following code is cribbed (with permission) from the fine "dvips"
  1144. +     // package by Tomas Rokicki at Stanford U.
  1145. +     //
  1146. +     // First, the computation of magstep, stolen from dvips (makefont.c).
  1147. +     // This entire routine carefully lifted, though it works fine.
  1148. +     // 
  1149. +     int m, n, dpi, bdpi;
  1150. +     char magstepc[MAXPATHLEN + 1];
  1151. +     bdpi = RESOLUTION;
  1152. +     dpi = (int)f.mag * RESOLUTION / 1000;
  1153. + 
  1154. +     m = 0;
  1155. +     if (dpi < bdpi)
  1156. +     {
  1157. +     while (1)
  1158. +     {
  1159. +         m--;
  1160. +         n = magstep(m, bdpi);
  1161. +         if (n == dpi)
  1162. +         break;
  1163. +         if (n < dpi || m < -40)
  1164. +         {
  1165. +         m = 9999;
  1166. +         break;
  1167. +         }
  1168. +     }
  1169. +     }
  1170. +     else if (dpi > bdpi)
  1171. +     {
  1172. +     while (1)
  1173. +     {
  1174. +         m++;
  1175. +         n = magstep(m, bdpi);
  1176. +         if (n == dpi)
  1177. +         break;
  1178. +         if (n > dpi || m > 40)
  1179. +         {
  1180. +         m = 9999;
  1181. +         break;
  1182. +         }
  1183. +     }
  1184. +     }
  1185. +     if (m == 9999)
  1186. +     {
  1187. +     (void)sprintf(magstepc, "%d+%d/%d", dpi / bdpi, dpi % bdpi, bdpi);
  1188. +     }
  1189. +     else if (m >= 0)
  1190. +     {
  1191. +     (void)sprintf(magstepc, "magstep\\(%d.%d\\)", m / 2, (m & 1) * 5);
  1192. +     }
  1193. +     else
  1194. +     {
  1195. +     (void)sprintf(magstepc, "magstep\\(-%d.%d\\)", (-m) / 2, (m & 1) * 5);
  1196. +     }
  1197. + 
  1198. +     // Here is where we do the actually calling of the external script
  1199. +     // 
  1200. +     char buf[MAXPATHLEN + 1];
  1201. +     sprintf(buf, "%s %s %d %d %s\n", MF_SCRIPT, f.basename,
  1202. +         dpi, bdpi, magstepc);
  1203. +     system(buf);
  1204. +     if (trysetupfont(f))
  1205. +     return;
  1206. + #endif
  1207. + 
  1208.       quit("Cannot find font file \"%s\" (at or near magnification %ld.%03ld) anywhere",
  1209.           f.basename, f.mag / 1000, f.mag % 1000);
  1210.   }
  1211.