home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Magazine / Dossier-LaTeX / AmiWeb2C.lha / source / dviprintsetup / rexx / StartDVIprintSetUp.sd next >
Text File  |  1995-04-08  |  3KB  |  68 lines
  1. /***************************************************************************
  2. ** RX $VER: StartDVIPrintSetUp.sdá3.3 (20.3.95)                           **
  3. **                                                                        **
  4. ** Mit diesem ARexx-Skript kann man DVIprint sehr einfach und komfortabel **
  5. ** von ShowDVI aus aufrufen.  Als Schnittstelle zwischen dem Previewer    **
  6. ** ShowDVI und dem Druckertreiber DVIprint wird das Einstellerprogramm    **
  7. ** DVIprintSetUp vorgeschaltet, mit dem sΣmtliche Einstellungen und       **
  8. ** Optionen festgelegt werden k÷nnen.  Die Ersetzung des Aufrufes von     **
  9. ** StartDVIprint.sd in ShowDVI.config durch dieses Script wird das Inter- **
  10. ** face-Programm DVIprintSetUp eingebunden.                               **
  11. **                                                                        **
  12. ** HINWEIS: Es werden die Programme                                       **
  13. **                                                                        **
  14. **       'TeXMF:bin/pastex/DVIprint'                                      **
  15. **       'TeXMF:bin/pastex/DVIPrintSetUp'                                 **
  16. **                                                                        **
  17. ** ben÷tigt.  Systembedingte Voraussetzungen erlauben die Benutzung von   **
  18. ** DVIprintSetUp erst ab AmigaOS 2.0!                                     **
  19. **                                                                        **
  20. ** ─NDERUNGEN: 17.3.1994: Spezialfall "RAM DISK:" wird erkannt.           **
  21. **             18.3.1995: TDS installiert.                                **
  22. ***************************************************************************/
  23.  
  24. Options Results
  25.  
  26. /***************************************************************************
  27. ** Dateiname, Pfad und aktuelle Seite von ShowDVI erfragen.               **
  28. ***************************************************************************/
  29. GetFile
  30. LOADEDFILE = RESULT
  31.  
  32. GetDir
  33. LOADEDDIR = RESULT
  34.  
  35. If "RAM DISK:" = Upper(Left(LOADEDDIR,9)) Then
  36.   LOADEDDIR = "RAM:" || SubStr(LOADEDDIR,10)
  37.  
  38. GetPage
  39. PAGE = RESULT
  40.  
  41. If Right(LOADEDDIR,1)~='/' & Right(LOADEDDIR,1)~=':' Then
  42.   LOADEDDIR = LOADEDDIR||'/'
  43.  
  44. If Upper(Right(LOADEDFILE,4)) ~= ".DVI" Then
  45.   LOADEDFILE = LOADEDFILE||".dvi"
  46.  
  47. If LOADEDFILE = "" | ~Exists(LOADEDDIR||LOADEDFILE) Then Do
  48.   Message "Welche Datei soll gedruckt werden?"
  49.   Exit 5
  50. End
  51.  
  52. If Show('Port','dviprint') Then Do
  53.   Message "DVIprint lΣuft bereits, bitte warten"
  54.   Exit 5
  55. End
  56.  
  57. /***************************************************************************
  58. ** ▄bergib das ganze an das SetUp-Programm. Das macht dann den Rest.      **
  59. ***************************************************************************/
  60. Address COMMAND 'DVIPrintSetUp' PAGE LOADEDDIR||LOADEDFILE
  61. If RC > 0 Then Do
  62.   Message "Fehler bei DVIprint."
  63.   Exit 10
  64. End; Else
  65.   Message "Druck beendet."
  66.  
  67. Exit 0
  68.