home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / cygcc.lha / NextErr < prev    next >
Encoding:
Text File  |  1990-08-23  |  975 b   |  54 lines
  1. /****************NEXTERR******************/
  2. options results
  3. if ~FindWind('Compiler_Window') then
  4. 'Mark block'
  5. 'search for <<<'
  6. if result~=='RESULT' then do
  7. 'okay2 no more errors.....delete Compiler Window?'
  8. if result then
  9. 'quit 1'
  10. exit
  11. end
  12. else do
  13. 'beg of file'
  14. 'mark block'
  15. end
  16. return
  17. end
  18. 'mark block'
  19. 'search for >>>'; 'Right'; 'Right'; 'Right';
  20. 'Status 55'
  21. err_line=result
  22. parse var err_line . '>>>' fname line_num column
  23. if fname ~='*' then do
  24. wname=right(fname,length(fname)-lastpos(':',fname))
  25. wname = right(wname,length)-lastpos('/',wname))
  26. found=FindWind(wname)
  27. if(~found) then do
  28. if exists(fname) then
  29. found=1
  30. else do
  31. if exzists('include:'||filename) then do
  32. found =1
  33. fname='INCLUDE:'||fname
  34. end
  35. end
  36. if found then do
  37. 'Open new'
  38. 'Open' fname
  39. end
  40. else do
  41. 'okay1 unable to find source file'
  42. return 
  43. end
  44. end
  45. if found then do
  46. 'Status 17'
  47. lines_now=result
  48. lines_orig=getclip('CygCCNLines')
  49. line_num=line_num+(lines_now-lines_orig)
  50. 'jumpto' line_num column
  51. end
  52. end 
  53. return
  54.