home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d998 / texprt.lha / TeXPrt / rexx / TexPrtPrint.tpr < prev   
Encoding:
Text File  |  1994-04-05  |  1.1 KB  |  46 lines
  1. /*
  2.  *    TexPrtPrint.tpr
  3.  *
  4.  * Macro for getting the filename from the ShowDVI previewer and
  5.  * passing it to the TeXPrt program.
  6.  *
  7. NOTES:
  8.  *
  9.  * You must have set the printer name in ENV:DVIprint for this to
  10.  * work, or the default (generic) printer will be used.
  11.  *
  12.  */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF show('P','showdvi') THEN DO
  17.    ADDRESS 'showdvi' 'getfile'
  18.    loadedfile = RESULT
  19.    ADDRESS 'showdvi' 'getdir'
  20.    loadeddir = RESULT
  21.  
  22.    IF RIGHT(loadeddir,1)~='/' & RIGHT(loadeddir,1)~=':' THEN
  23.        loadeddir = loadeddir||'/'
  24.  
  25.    IF upper(right(loadedfile,4)) ~= ".DVI" THEN
  26.        loadedfile = loadedfile||".dvi"
  27.  
  28.    IF loadedfile = "" | ~exists(loadeddir||loadedfile) THEN DO
  29.        ADDRESS 'showdvi' 'Message "Which file should I print?"'
  30.        EXIT
  31.        END
  32.  
  33.    IF show('P','dviprint') THEN DO
  34.        ADDRESS 'showdvi' 'Message "DVIprint is already running, please wait"'
  35.        EXIT
  36.        END
  37.  
  38.    ADDRESS 'showdvi' 'Message "calling DVIprint."'
  39.  
  40.    ADDRESS COMMAND 'sys:Rexxc/rx "ADDRESS ''TEXPRT.1'' ''DVIFILE 'loadeddir||loadedfile'''"'
  41. END
  42.  
  43. ADDRESS COMMAND 'sys:Rexxc/rx "ADDRESS ''TEXPRT.1'' ''PRINT''"'
  44.  
  45. EXIT
  46.