Error Management

[Gintaras]

end overwrites _error.line.

Append the code line to description. LogErrors can parse it, if need.

Code:

Copy      Help

if mes("Error?" "" "YN")='Y'
,end "Could not put data on FTP server // if(!f.FilePutFromStr(data ftpfile))"

Function ErrDescrAndLine

Code:

Copy      Help

;/
function$ $description [lineOffset]

;Gets previous code line and appends to description. To be used with end().

;description - error description.
;lineOffset - line offset from the line that calls this function. If 0 or omitted, uses -1 (previous line).

;REMARKS
;Uses " // " as separator.

;EXAMPLE
;if mes("Error?" "" "YN")='Y'
,;end ErrDescrAndLine("Error description.")


#if EXE
ret description
#else
if(!lineOffset) lineOffset=-1
if(Statement(1 lineOffset &_s)<0) ret description
str-- s.from(description " // " _s)
ret s