/**
 **  $VER: FirstError.quill 1.0 (24.7.94)
 **  By Timothy J. Aston
 **
 **/


/* Some setup first.
 */
options results
options failat 200

NL = d2c(10)

main:
	/* Open the errors file.
	 */
	if open('errors_fh', 't:Quill_Errors', 'R') then do
		'LOCKGUI'

		'GETATTR' 'PROJECT FILE VAR' filename; say filename

		/* Read all the errors into a stem.
		 */
		ok = TRUE
		do while ~eof('errors_fh') & ok = TRUE
			errorfile = strip(readln('errors_fh'), 'B')
			errorline = strip(readln('errors_fh'), 'B')
			errorcol = strip(readln('errors_fh'), 'B')
			errordesc = strip(readln('errors_fh'), 'B')
			call readln('errors_fh')
			call readln('errors_fh')

			if errorfile = filename then do
				'GOTOLINE' errorline
				'SETSTATUSBAR' errordesc
				ok = FALSE
			end
		end

		if ok = TRUE then do
			'REQUESTNOTIFY' '"No errors in this file"'
		end

		close('errors_fh');

		'UNLOCKGUI'
	end
	/* Or if its not there, we have no errors.
	 */
	else
		'REQUESTNOTIFY' '"No errors"'

	exit