Предлагается конструкция - обработчик ошибок (пример использования ниже: sample).
синтаксис:
REFLEX{ handler code }" Message string"
в {фигурных скобках} находится код обработчика ошибок,причем, на входе всегда
находится код ошибки.
Само сообщение об ошибке находится в кавычках за закрывающей скобкой
<pre>
\ 2008-12-30 ~mOleg
\ Сopyright [C] 2008 mOleg
mininoleg@yahoo.com
\ вариант обработчика ошибок
\ открыть секцию кода, реагирующего на ошибку
: REFLEX{ ( flag --> ) ?COMP
[COMPILE] *IF 7392875 ; IMMEDIATE
\ завершает описание секции, реагирующей на ошибку,
\ начинает сообщение об ошибке (должно располагаться в одной строке).
: }" ( ?? ) ?COMP
7392875 <> ABORT" должно предшествовать слово REFLEX{"
[CHAR] " PARSE reffered LIT, COMPILE THROW
[COMPILE] THEN COMPILE DROP ; IMMEDIATE
\EOF пример использования
: sample ." начали проверку "
REFLEX{ ." \n\rкод ошибки: " . CR }" исключение возникло"
." и исключение не возникло" ;
\ 0 sample
\ 8375642 sample
<pre>