home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / rexx / GoldEd / TeX-DVI.ged < prev    next >
Text File  |  1994-03-22  |  1KB  |  54 lines
  1. /* 
  2.     $VER: TeX-DVI.ged V0.96 (20.3.94) Axel Burghardt
  3.  
  4.     Bringe über das TeX-Server Kommando 'SHOWDVI' den DVI-Viewer nach
  5.     vorne. Ist der aktuelle Text kein TeX-Text, dann mache nichts.
  6. */
  7.  
  8. Title = "TeX-DVI V0.96"
  9.  
  10. OPTIONS RESULTS                             
  11.  
  12. /* ----------------- Wie wurde GoldEd gestartet? ------------------ */
  13.  
  14. IF (LEFT(ADDRESS(), 6) ~= "GOLDED") THEN address 'GOLDED.1'
  15. 'LOCK CURRENT'                              
  16.  
  17. SIGNAL ON SYNTAX
  18. OPTIONS FAILAT 6
  19.  
  20. /* -------------------------- Hauptteil --------------------------- */
  21.  
  22. IF ~show('P','TEX.1') THEN DO
  23.   'REQUEST BODY="TeX-Server läuft nicht!"'
  24. END
  25. ELSE DO
  26.   'QUERY DOC VAR DOC'
  27.   Basename = left(Doc,length(Doc)-4)
  28.   Extension = right(Doc,4)
  29.   IF upper(Extension) ~= '.TEX' THEN
  30.     'REQUEST BODY="Kein TeX-Text!"'
  31.   ELSE DO
  32.     IF exists(Basename||'.DVI') THEN DO
  33.       'UNLOCK'
  34.       address 'TEX.1' 'SHOWDVI' Basename||'.DVI'
  35.     END
  36.     ELSE
  37.       'REQUEST BODY="'upper(Baseame||'.DVI') 'nicht gefunden!"'
  38.   END
  39. END
  40.  
  41. 'UNLOCK'
  42. EXIT 0
  43.  
  44. /* ----------------------- Fehlerbehandlung ----------------------- */
  45.  
  46. SYNTAX:
  47.  
  48. 'REQUEST BODY="Fehler in Zeile' SIGL ':' ERRORTEXT(RC) '"'
  49. 'MARK HIDE'
  50. 'GOTO LINE='SIGL
  51. 'MARK SET'
  52. 'UNLOCK'
  53. EXIT 5
  54.