/* This ARexx program was automatically created by NUWEB from
   the master source file `callmf.w'.  Do not edit by hand! */
BATCHNAME = "S:MakeTeXFont.sh"
MAKETEXFONT = "MakeTeXFont.rexx"


Address COMMAND
If ~Exists(BATCHNAME) Then Do
  If ~Open(BATCHFILE,BATCHNAME,'Write') Then Do
    Say "MakeBatch: Could not create "BATCHNAME"!"
    Exit 10
  End
  Writeln(BATCHFILE,";# Batchfile for font generation")
  If ~Close(BATCHFILE) Then Do
    Protect BATCHNAME "Add s"
    Say "MakeBatch: Error during creation of "BATCHNAME"!"
    Exit 10
  End
  Say "MakeBatch: Batchfile "BATCHNAME" created."
End

Parse Arg PARAMETERS
Parse Value PARAMETERS With FONTNAME DUMMY
Parse Value DUMMY With DPI HBASE VBASE DUMMY
Parse Value DUMMY With DRIVER DUMMY
Parse Value DUMMY With PKFILENAME PKDIR .

If "show" = DRIVER Then Do
  HBASE = "100"
  VBASE = "100"
  PKDIR = "/amiga/"
  PARAMETERS = FONTNAME DPI HBASE VBASE DRIVER PKFILENAME PKDIR
End

/*
 * Say "MakeBatch: Font named = "FONTNAME" with dpi = "DPI
 * Say "and base x = "HBASE", y = "VBASE
 * If "" ~= DRIVER Then
 *   Say " for driver = "DRIVER", pkname = "PKFILENAME
 */
MESSAGE = "rx" MAKETEXFONT PARAMETERS

Search ">NIL:" BATCHNAME '"'MESSAGE'"'

If 0 ~= RC Then
  Do
    If ~Open(BATCHFILE,BATCHNAME,'Append') Then Do
      Say "MakeBatch: Can't open "BATCHNAME" to add new entry"
      Exit 10
    End
    
    DUMMY = Writeln(BATCHFILE,MESSAGE)
    If ~Close(BATCHFILE) Then Do
      Say "MakeBatch: Error while adding new entry!"
      Exit 10
    End
    
    Say "MakeBatch: New entry added for "FONTNAME DPI" dpi"
  End
  
Else
  Say "MakeBatch: Entry already exists!"

Exit 0