home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d998 / texprt.lha / TeXPrt / rexx / StartDVIprint.sd < prev    next >
Encoding:
Text File  |  1994-04-05  |  1011 b   |  50 lines
  1. /*
  2.  *    StartDVIprint.sd
  3.  *
  4.  * Invokes the TeXPrt program, a front-end for DVIPrint.
  5.  *
  6. NOTES:
  7.  *
  8.  * You must have set the printer name in ENV:DVIprint for this to
  9.  * work, or the default (generic) printer will be used.
  10.  *
  11.  */
  12.  
  13. LF = '0A'X
  14.  
  15.  
  16. OPTIONS RESULTS
  17.  
  18. getfile
  19. loadedfile = RESULT
  20. getdir
  21. loadeddir = RESULT
  22. getpage
  23. page = RESULT
  24.  
  25. IF RIGHT(loadeddir,1)~='/' & RIGHT(loadeddir,1)~=':' THEN
  26.     loadeddir = loadeddir||'/'
  27.  
  28. IF upper(right(loadedfile,4)) ~= ".DVI" THEN
  29.     loadedfile = loadedfile||".dvi"
  30.  
  31. IF loadedfile = "" | ~exists(loadeddir||loadedfile) THEN DO
  32.     Message "Which file should I print?"
  33.     EXIT
  34.     END
  35.  
  36. IF show('P','dviprint') THEN DO
  37.     Message "DVIprint is already running, please wait"
  38.     EXIT
  39.     END
  40.  
  41.     Message "calling TeXPrt."
  42.  
  43.    ADDRESS COMMAND 'cd Tex:bin'
  44.     ADDRESS COMMAND 'Tex:bin/TeXPrt APPICON="Tex:bin/TeXPrt"
  45.                     SHELL="newshell CON:20/340/660/150/TeXPrint-Output/SCREENShowDVI-PubScr"
  46.                     FILE='loadeddir||loadedfile
  47.     IF 0~= RC THEN Message "TeXPrt failed."
  48.  
  49. EXIT
  50.