EVALUATE портит строку

[dothen]

Как-то странно работает слово EVALUATE
Если в строке есть кавычки то строка искажается.

Code: Select all

#( task_test_EVALUATE
NoActive
SCONSTANT sc S" calc.exe" START-APP
Action:
 S" 20 2000 BEEP" 2DUP EVALUATE TYPE CR CR \ правильно

 sc TYPE CR CR
 sc EVALUATE
 sc TYPE CR CR \ Портит константу

\ S" S%QUOTE% Hello%QUOTE% TYPE CR" EVAL-SUBST 2DUP TYPE CR 2DUP EVALUATE TYPE CR CR \ Портит строку

\ S" START-APP: notepad.exe" 2DUP EVALUATE TYPE CR TYPE CR CR
\ ??? Наверно EVALUATE с префиксными словами не работает.
)#

[VoidVolker]

Не портит, а в конец строки дописывает ноль - этот ноль нужен для корректного вызова WinAPI функций. И занимается этим не само слово EVALUATE, а слова для создания строковых литералов. Если ноль не дописывать - то вызовы WinAPI будут работать непредсказуемо или неправильно.

[dothen]

Ну почему это всё не делается в отдельном буфере?
И ноль вставляется прямо в поле параметров константы.

Code: Select all

#( task_test_EVALUATE2
NoActive
    SCONSTANT st1 S" Строка1" TYPE CR
Action:

 st1 CR TYPE CR
 st1 EVALUATE
 st1 TYPE CR \ На место второй кавычки записан ноль.
 st1 CLIPBOARD! CLIPBOARD@ TYPE CR
S" Должно быть: 'S%QUOTE% Строка1%QUOTE% TYPE CR'" EVAL-SUBST TYPE CR CR
)#

[VoidVolker]

Ну, возможно из-за того, что рассчитано оно было работать с входным потоком из файла еще полтора десятилетия назад в SPF3 и выделять новый буфер на каждую строку или копировать еще куда-то требует дополнительных и затрат ресурсов. Решается просто:

Code: Select all

: EVAL S" " S+ EVALUATE ;