надумалась конструкция DEMAND REJECT

mOleg

пока вот какие размышления вышли:

Код:

\ 2008-08-17 ~mOleg
\ Сopyright [C] 2008 mOleg mininoleg@yahoo.com

 .\lib\util\errors.f

\ код, вызываемый перед началом секции DEMAND
: (demand) ( --> )
           R@ CELL + CATCH
           IF R> @ EXECUTE
            ELSE RDROP
           THEN ;

\ начинает описатель обязатеьной для выполнения секции
: DEMAND ( --> )
         COMPILE (demand)
         HERE 0 A, 50689035
         ; IMMEDIATE

\ после этого слова
: REJECT ( --> )
         50689035 <> ABORT" несбалансированная конструкция"
         RET, HERE SWAP A! ; IMMEDIATE

\ пример использования конструкции
: sample ." foreword "  CR
         DEMAND ." try something" CR
         -1 THROW
         REJECT ." if something fails" CR
         ;

по сути прямая аналогия следующего кода:

Код:

... foreword ['] try_something CATCH IF if_something_fails THEN ...

но с другим синтаксисом и без необходимости оформления кода try_something в отдельном определении.

Гость

~day/lib/try.f
~ss/lib/except/try.f

Имена TRY, EXCEPT, FINALLY подходят лучше, чем DEMAND и REJECT.

mOleg

Гость писал(а):

~day/lib/try.f

угу, видел.
Отличия есть, впрочем и вопросы тоже есть.
1) действительно ли надо сохранять стек данных?
2) нужен ли код ошибки?
S" LITERAL CATCH TRAP-CODE" EVALUATE - увидев эту дикость я в сторону day больше не смотрел.
(очень опасная методика, хотя и изящная по-своему)

Гость писал(а):

~ss/lib/except/try.f

это значительно интереснее, и его я только сейчас увидел. Спасибо за наводку!

Да, насчет синтаксиса я согласен, что не очень удачно, но мне как раз хотелось не повторять этих самых TRY TRAP .

Кстати, насчет вопроса 1. у ~ss стек данных не сохраняется.

mOleg

3) на столько ли удачны эти самые try finally end-try , try except end-try ?
заимствование не очень удачно в данном случае выглядит для форта

К сожалению я не нашел ни одного реального применения в рамках SPF использования данных либ...

Hishnik

mOleg писал(а):

3) на столько ли удачны эти самые try finally end-try , try except end-try ?
заимствование не очень удачно в данном случае выглядит для форта

К сожалению я не нашел ни одного реального применения в рамках SPF использования данных либ...

Естественно - калька с Дельфи тут мало уместна.

надумалась конструкция DEMAND REJECT

Кто сейчас на конференции