home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / fiasco_2.1 / arexx / arexxprint.rexx < prev    next >
OS/2 REXX Batch file  |  1996-07-21  |  600b  |  30 lines
  1. /* ARexxPrint.rexx
  2.  * Support script for the print function of Fiasco.
  3.  * This script is automatically called by Fiasco and
  4.  * is not allowed to call any Fiasco functions.
  5.  * Copyright © 1996 Nils Bandener
  6.  * $VER: ARexxPrint.rexx 4.3 (21.7.96)
  7.  */
  8.  
  9. Parse Arg File
  10.  
  11. Address Command
  12.  
  13. File = strip(File,,'"')
  14.  
  15. /* Have to use full path because
  16.  * Fiasco has no paths when started
  17.  * from WB
  18.  */
  19.  
  20. 'tex:bin/virtex' '"' || File || '"'
  21.  
  22. dotpos = lastpos(".", File)
  23.  
  24. if dotpos ~= 0 then DVIFile = substr(File, 1, dotpos-1) || ".dvi"
  25. else DVIFile = File || ".dvi"
  26.  
  27. 'tex:bin/dviprint' '"' || DVIFile  || '"'
  28.  
  29.  
  30.