home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / varia / fiasco_1.2 / arexx / arexxprint.rexx < prev    next >
OS/2 REXX Batch file  |  1977-12-31  |  508b  |  27 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.2 (9.3.96)
  7.  */
  8.  
  9. Parse Arg File
  10.  
  11. Address Command
  12.  
  13. File = strip(File,,'"')
  14.  
  15. say File
  16.  
  17. 'virtex' '"' || File || '"'
  18.  
  19. dotpos = lastpos(".", File)
  20.  
  21. if dotpos ~= 0 then DVIFile = substr(File, 1, dotpos-1) || ".dvi"
  22. else DVIFile = File || ".dvi"
  23.  
  24. 'dviprint' '"' || DVIFile  || '"'
  25.  
  26.  
  27.