home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / rexx / golded / tex-error.ged < prev    next >
Text File  |  1994-03-22  |  2KB  |  76 lines
  1. /*
  2.     $VER: TeX-Error.ged V0.97 (19.4.94) Axel Burghardt
  3.  
  4.     Das ARexx-Makro unterstützt GoldEd und TeX. Bei seinem Aufruf wird die 
  5.     Datei xxx.LOG von xxx.TEX nachgeladen, sofern noch nicht geöffnet.
  6.     Gemäß dem Übergabeparameter NEXT oder PREV wird auf den nächsten oder 
  7.     den letzten Fehler positioniert.
  8. */
  9.  
  10. Title = "TeX-Error V0.97"
  11.  
  12. OPTIONS RESULTS
  13. SIGNAL ON SYNTAX
  14.  
  15. PARSE ARG Direc
  16.  
  17. IF Direc~='PREV' THEN Direc='NEXT'
  18.  
  19. IF SHOW('P','GOLDED.1') THEN DO
  20.   ADDRESS "GOLDED.1"
  21.   'LOCK CURRENT'
  22.   'QUERY DOC VAR DOC'
  23.   Basename = left(doc,length(doc)-4)
  24.   Extension = right(doc,4)
  25.   IF upper(Extension) ~= '.TEX' THEN DO
  26.     'REQUEST BODY="Kein TeX-Text!" TITLE="'Title'"'
  27.     'UNLOCK'
  28.     EXIT 5
  29.   END
  30.   ELSE DO
  31.     Logname = Basename".log"
  32.     'WINDOW USE="'Logname'"'
  33.     IF RC = 0 THEN DO
  34.       'MARK HIDE'
  35.       'FIND QUIET STRING="l." 'Direc
  36.       IF RC ~= 0 THEN
  37.         'REQUEST BODY="Keine weiteren Fehler in dieser Richtung!" TITLE="'Title'"'
  38.       ELSE DO
  39.         'MARK SET'
  40.         'QUERY BUFFER VAR BUFFER'
  41.         parse var Buffer Prefix 'l.' Number Suffix
  42.         'WINDOW USE="'Doc'"'
  43.         'GOTO LINE="'Number'"'
  44.         'FIRST'
  45.       END
  46.     END
  47.     ELSE DO
  48.       'REQUEST BODY="Logfile noch nicht geladen!" BUTTON="_Laden|Abbre_chen" TITLE="'Title'"'
  49.       IF RC = 0 THEN
  50.         IF exists(Logname) THEN DO
  51.           'OPEN NEW NAME="'Logname'"'
  52.           'WINDOW ARRANGE 0'
  53.           'WINDOW USE="'Doc'"'
  54.           'UNLOCK'
  55.           call 'GoldEd:Arexx/TeX-Error.ged'
  56.         END
  57.         ELSE
  58.           'REQUEST BODY="'upper(Logname)' nicht gefunden!" TITLE="'Title'"'
  59.     END
  60.   END
  61.   'UNLOCK'
  62.   EXIT 0
  63. END
  64. EXIT 5
  65.  
  66. /* ----------------------- Fehlerbehandlung ----------------------- */
  67.  
  68. SYNTAX:
  69.  
  70. 'REQUEST BODY="Fehler in Zeile' SIGL ':' ERRORTEXT(RC) '"'
  71. 'MARK HIDE'
  72. 'GOTO LINE='SIGL
  73. 'MARK SET'
  74. 'UNLOCK'
  75. EXIT 5
  76.