home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
proasm
/
rexx
/
ced
/
firsterror.ced
next >
Wrap
Text File
|
1996-04-29
|
2KB
|
51 lines
/*****************************************************************************
* *
* ARexx script: FirstError.ced for the ProAsm Assembler *
* *
* This script uses the ASX interface to determine the first error and *
* jump to this line. *
* *
* by Daniel Weber *
* 26.May.93 *
* *
*****************************************************************************/
OPTIONS RESULTS
ADDRESS 'rexx_ced'
status 19
name = result /* complete path and filename */
ADDRESS 'asx_rexx'
FindID 'CygnusEd:'name
port = result
IF port ~='' THEN DO
ADDRESS (''||port) /* ARexx wierdness */
FirstError
errortxt = result
ADDRESS 'rexx_ced'
IF errortxt ='' THEN DO
Okay1 'no errors found'
exit(0)
END
PARSE VALUE errortxt WITH 1 LineNumber ' : ' ErrorMsg ' in file ' filename
IF filename ~='' THEN DO
status 66
DO numwins= result-1 TO 1 BY -1 UNTIL UPPER(result) = UPPER(filename)
next view
status 21
END
IF UPPER(result) ~= UPPER(filename) THEN DO
split view
open filename
END
END
Jump To Line LineNumber
Okay1 ErrorMsg
END
EXIT(0)