Вспомнил, кстати, одну конструкцию, которую использовал в исходниках для "условной компиляции" (в "СвоемФорте")
Код: : SP> SYS-ID NOT IF [COMPILE] \ THEN ; IMMEDIATE \ for Sprinter only commands
: PC> SYS-ID IF [COMPILE] \ THEN ; IMMEDIATE \ for PC only commands
слово SP> попросту запрещает интерпретацию/компиляцию всего, что стоит за ним в строке, если SYS-ID не соответствует условию
слово PC> - аналогично - попросту запрещает интерпретацию/компиляцию всего, что стоит за ним в строке, если SYS-ID соответствует условию.
далее эти слова используются для определения в одном исходнике системно-зависимых слов. Например:
Код: \ system-dependent command
\ PC only
PC> : SAVE-SYSTEM 100 HERE @ 100 - SAVE . ." bytes saved" ;
\ Sprinter only
\ header for sprinter EXE file
SP> CREATE (HEAD) C" E C, C" X C, 45 , 200 , 0 , 0 , 0 , 0 , 0 , 4100 , 4100 , BFFE ,
SP> : SAVE-SYSTEM C000 200 2DUP ERASE (HEAD) C000 16 CMOVE
SP> C-FILE DUP >R WRITE-FILE ?I/O
SP> 4100 HERE @ 4100 - R@ WRITE-FILE ?I/O R>
SP> CLOSE-FILE ?I/O + . ." bytes saved" ;
Вводить нечто подобное в стандарт - не вижу смысла, так как это просто "часть программы пользователя", при чем такая часть, которая в целевой программе даже не обязана присутствовать
Тут, кстати, есть и еще одна "хитрость", которую можно использовать где угодно, а именно - компиляция
"кода данного свыше" - строчка:
SP> CREATE (HEAD) C" E C, C" X C, 45 , 200 , 0 , 0 , 0 , 0 , 0 , 4100 , 4100 , BFFE ,
Есть просто конкретная последовательность байтов, которую надо вписать в exe-шник,
и она тупо "компилируется числами". Происхождение этой строчки в данном случае попросту не имеет значения.
|
Переход в режим интерпретации все-равно происходит. А дальше просто использовать стандартные для режима интерпретации [IF] [ELSE] [THEN]. А то получается, что есть аш три вида управляющих конструкций для двух режимов. Зачем? Вот оно это самое усложнение, про которое я говорил.