home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / errormove.raz < prev    next >
Encoding:
Text File  |  1994-12-19  |  1.3 KB  |  55 lines
  1. /*
  2. **      $Id: ErrorMove.raz,v 1.7 1994/11/20 23:56:17 DBernard Rel $
  3. **
  4. **      DICE Error Parsing system.  Script for AZur editor (©1994 J.M. Forgeas).
  5. **
  6. **      Original work from Bryce Nesbitt
  7. **
  8. **  Notes: This assumes that your DCC:Config/DCC.Config file contains the
  9. **         following line:
  10. **
  11. **  cmd= rx DCC:Rexx/RAZ_ErrorParse.rexx %e "%n" "%c" "%f" "%0"
  12. */
  13.  
  14. PARSE UPPER ARG COMMAND  /* Valid commands: Current First Next Prev */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. IF ~show('p','DICE_ERROR_PARSER') THEN DO
  19.     'REQMULTI' "TEXT DError inactif !"
  20.     EXIT 0
  21. END
  22.  
  23. ADDRESS DICE_ERROR_PARSER COMMAND E
  24. IF rc ~= 0 THEN DO
  25.     IF COMMAND = 'FIRST' THEN
  26.         'REQMULTI' "TEXT Pas d''erreurs !"
  27.     ELSE
  28.         'REQMULTI' "TEXT Plus d''erreurs !"
  29.     exit 0
  30. END
  31.  
  32. IF E.LINE = 0 THEN DO
  33.     IF LEFT(E.TEXT, 5) = 'DLINK' THEN DO
  34.         /* TT = TRANSLATE(E.STRING, '-', '"') */
  35.         /* This is a DLINK error, we need to handle it special */
  36.         SAY "DLINK:" E.STRING
  37.         exit 0
  38.     END
  39. END
  40.  
  41. ADDRESS DICE_ERROR_PARSER TTXSAME '"'E.FPATH'" "'E.ARGS'"'
  42. IF RC ~= 0 THEN
  43.     DO
  44.         'REQMULTI' 'CONVERT TEXT Unable to open file:\n'||E.FPATH
  45.         exit 0
  46.     END
  47.  
  48. Port = RESULT
  49. ADDRESS Value Port
  50. if E.Col = 0 THEN E.Col = 1
  51. 'BM' "DERR_"||E.Line
  52. 'Cursor' "FOLDS COL" E.Col
  53.  
  54. 'REQMULTI' "TEXT" E.STRING
  55.