home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d178 / rexxarplib.lha / RexxArpLib / rexx / TxEdStuff / toerror.txed < prev    next >
Text File  |  1989-02-04  |  974b  |  54 lines
  1. /*  Now we try to determine the error location */
  2. /*  and visit it.                              */
  3. OPTIONS FAILAT 5
  4. OPTIONS results
  5.  
  6. STATUS P
  7. TEXport = result
  8. parse var TEXport "TxEd Plus"TEXport"/c"
  9. TEXport = "Port"TEXport
  10.  
  11. STATUS D
  12. directory = result
  13. if directory = "" then directory = ":"
  14.  
  15. rowno = 0
  16. charno = 0
  17. ADDRESS 'AmigaTeX' 'ErrorLoc'
  18.  
  19. errorloc = GETCLIP('AmigaTeX.ErrorLoc')
  20.  
  21. if errorloc = "" then exit
  22.  
  23. else parse var errorloc filename linenum charpos
  24.  
  25. checkforchunk = index(filename,"_Chunk.tex")
  26.  
  27. if checkforchunk ~= 0 then do
  28.  
  29.   parse var filename  "vd0:"rootname"_Chunk.tex"rest 
  30.   envvarname = TEXport" vd0:"rootname"_Chunk.data"
  31.   x = getenv(envvarname)
  32.   y = setenv(envvarname)
  33.   interpret x
  34.   filename = origfile 
  35.   linenum = linenum + rowno - 1
  36.   charpos = charpos + colno - 1
  37.  
  38. end
  39.  
  40. else filename = directory||filename
  41.  
  42. JUMP linenum charpos
  43.  
  44. address 'AmigaTeX' 
  45.  
  46. do i=1 to 100
  47.  
  48.   'Abort'
  49.   if RC=0 then leave i
  50.   address COMMAND 'c:Wait 2'
  51. end 
  52.  
  53. exit
  54.