home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / proasm / rexx / ced / nexterror.ced < prev    next >
Text File  |  1996-04-29  |  2KB  |  53 lines
  1. /*****************************************************************************
  2. *                                                                            *
  3. * ARexx script:              NextError.ced       for the ProAsm Assembler    *
  4. *                                                                            *
  5. * This script uses the ASX interface to determine the next error and         *
  6. * jump to this line.                                                         *
  7. *                                                                            *
  8. * by Daniel Weber                                                            *
  9. * 26.May.93                                                                  *
  10. *                                                                            *
  11. *****************************************************************************/
  12.  
  13. OPTIONS RESULTS
  14.  
  15. ADDRESS 'rexx_ced'
  16. status 19
  17. name = result                /* complete path and filename   */
  18.  
  19. ADDRESS 'asx_rexx'
  20. FindID 'CygnusEd:'name
  21. port = result
  22.  
  23. IF port ~='' THEN DO
  24.   ADDRESS (''||port)            /* ARexx wierdness              */
  25.   NextError
  26.   errortxt = result
  27.  
  28.   ADDRESS 'rexx_ced'
  29.   IF errortxt ='' THEN DO
  30.     Okay1 'no more errors'
  31.     exit(0)
  32.     END
  33.  
  34.   PARSE VALUE errortxt WITH 1 LineNumber ' : ' ErrorMsg ' in file ' filename
  35.   IF filename ~='' THEN DO
  36.     status 66
  37.     DO numwins= result-1 TO 1 BY -1 UNTIL UPPER(result) = UPPER(filename)
  38.       next view
  39.       status 21
  40.     END
  41.     IF UPPER(result) ~= UPPER(filename) THEN DO
  42.     split view
  43.     open filename
  44.     END
  45.   END
  46.  
  47.   Jump To Line LineNumber
  48.   Okay1 ErrorMsg
  49.   END
  50.  
  51. EXIT(0)
  52.  
  53.