home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / useful / dist / text / tex / pastex / mf / rexx / makebatch.rexx < prev    next >
OS/2 REXX Batch file  |  1991-08-28  |  3KB  |  104 lines
  1. /*RX
  2.     MakeBatch 0.90 */
  3. /* Send new features and bug reports to 
  4.    
  5.    Martin Bokaemper
  6.    Reuthstr. 12
  7.    W-8521 Poxdorf
  8.    Germany
  9.  
  10.    Email:  mnbokaem@cip.e-technik.uni-erlangen.de 
  11.            Zerberus: mab@ame.ZER 
  12.  
  13. History:
  14. 0.80: My 'works-fine-for-me' version slightly modified by Georg Hessmann 13.4.91
  15.       + set script bit of the batchfile 
  16.  
  17. 0.81: + take new Parameters 'drivertype' and 'pkfilename' 
  18.       Georg Hessmann 17.4.91
  19.       
  20. 0.82: + History 
  21.       + some small changes 
  22.       Martin Bokaemper 17.4.91
  23.  
  24. 0.83: + improved batchfile creation
  25.       + More messages for the user
  26.       J\"org H\"ohle 25.4.91
  27.  
  28. 0.84: + add new parameter 'pkdir' (new since driver version V1.10)
  29.       + add the dummy variable
  30.       Georg Hessmann 9.6.91
  31.  
  32. 0.85/6: + bumped revision number because of MakeTeXFont
  33.       + changed script file extension to .sh
  34.       J\"org H\"ohle 6.8.91
  35. 0.90: + bumped revision number because of MakeTeXFont
  36.       Georg Hessmann 28-Aug-91
  37. */
  38.           
  39. batchname = "mf:MakeTeXFont.sh"
  40.  
  41. /* TRACE RESULTS */
  42.  
  43. IF ~show('Libraries', 'rexxsupport.library') THEN DO
  44.         IF ~addlib('rexxsupport.library', 0, -30) THEN DO
  45.                 say "No RexxSupport ... no Metafont"
  46.                 EXIT 10
  47.         END
  48. END
  49.  
  50. ADDRESS COMMAND
  51.  
  52. IF ~exists(batchname) THEN DO
  53.         IF ~OPEN(batchfile,batchname,'W') THEN DO
  54.                 say "MakeBatch: Could not create "batchname" !"
  55.                 EXIT 10
  56.         END; ELSE DO
  57.                 CALL WRITELN(batchfile,";# Batchfile for font generation")
  58.                 IF CLOSE(batchfile) THEN DO
  59.                         'protect 'batchname' ADD s'
  60.                         say "MakeBatch: Batchfile "batchname" created."
  61.                 END; ELSE DO
  62.                         say "MakeBatch: Error during creation of "batchname" !"
  63.                         EXIT 10
  64.                 END
  65.         END
  66. END
  67.  
  68. PARSE ARG parameters
  69. PARSE VALUE parameters WITH fntname dpi hbasedpi vbasedpi drivertype pkfilename pkdir .
  70.  
  71. /* Only ShowDVI and DVIprint of version>=1.08 supply arguments
  72. <drivertype> (show/print) and <pkfilename> (for example "120/cmr10.pk") */
  73.  
  74. /* Only ShowDVI and DVIprint of version>=1.10 supply the argument <pkdir> */
  75.  
  76. /**
  77. say "MakeBatch: Font named = "fntname" with dpi = "dpi" and base x = "hbasedpi"  y = "vbasedpi
  78. IF drivertype ~== "" THEN say " for driver = "drivertype", pkname = "pkfilename
  79. **/
  80.  
  81. message = 'rx MakeTeXFont 'parameters
  82.  
  83. 'search >NIL: 'batchname' "'message'"'
  84. /* better : search for fntname, dpi, hbasedpi and vbasedpi only? */
  85.  
  86. IF rc~=0 THEN DO
  87.         IF ~open(batchfile, batchname, 'Append') THEN DO
  88.                 say "MakeBatch: Can't open "batchname" to add new entry"
  89.                 EXIT 10
  90.         END
  91.   
  92.         dummy = writeln(batchfile,message)
  93.   
  94.         IF close(batchfile) THEN 
  95.                 say "MakeBatch: New entry added for "fntname dpi" dpi"
  96.         ELSE DO
  97.                 say "MakeBatch: Error while adding new entry!"
  98.                 EXIT 10
  99.         END
  100. END; ELSE 
  101.         say "MakeBatch: Entry already exists!"
  102.  
  103. EXIT 0
  104.