home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 531.lha / TurboText_Utils / LSETTX / errparse.ttx next >
Encoding:
Text File  |  1991-07-04  |  1.0 KB  |  55 lines
  1. /*
  2.  */
  3.  
  4. ErrFile=getclip("ErrParse_ErrFile")
  5. ErrLine=getclip("ErrParse_ErrLine")
  6.  
  7. if (ErrFile="") then exit
  8.  
  9. x=open(In,ErrFile,'R')
  10. if x=0 then signal NoMore
  11.  
  12. ErrNum=1
  13.  
  14. do forever
  15.     if ErrNum=ErrLine then Leave
  16.     ErrNum=ErrNum+1
  17.     call ReadLn(In);
  18.     if (words(In)<3) then call ReadLn(In)
  19.         else do
  20.         W3=Word(In,3)
  21.         if W3~="Warning" & W3~="Error" then call ReadLn(In)
  22.         End
  23.  
  24.     if (eof(In)) then signal NoMore
  25.     end
  26.  
  27. ParseMe=ReadLn(In)
  28. if (Words(ParseMe)>2 & (Word(ParseMe,3)="Warning" | Word(ParseMe,3)="Error")) then 
  29.     ErrLineText=ParseMe
  30.     else ErrLineText=ReadLn(In)
  31.  
  32. if ParseMe="" | ErrLineText="" then signal NoMore
  33.  
  34. Col=Index(ErrLineText, '1B'x);
  35.  
  36. ToShow=Right(ErrLineText, length(ErrLineText)-length(word(ErrLineText,1))-length(word(ErrLineText,2))-2)
  37.  
  38. 'SetStatusBar "'ToShow'"'
  39. Parse var ErrLineText File Line Type Num Errname
  40. setdisplaylock on
  41. Move Folds Line Col
  42. scrollview 8
  43. setdisplaylock off
  44. call SetClip("ErrParse_ErrLine", ErrLine+1);
  45. exit
  46.  
  47.  
  48.  
  49. NoMore:
  50.     'SetStatusBar Temporary "Last Error"'
  51.     call setclip("ErrParse_ErrFile", "");
  52.     exit
  53.  
  54.  
  55.