From: Ruvim P. <ruv...@gm...> - 2016-04-09 15:08:39
|
2016-04-09 16:51 GMT+03:00 Ruvim Pinka <ruv...@gm...>: [...] > Или даже, с поддержкой других парных символов: > > \ REQUIRE PARSE-S$ http://forth.sourceforge.net/word/s-dollar/index.htm > <http://forth.sourceforge.net/word/s-dollar/index.html> > Есть в штатном репозитории: REQUIRE PARSE-S$ ~pinka/samples/2005/lib/s-dollar.f > : [S] ?COMP PARSE-S$ SLIT, ; IMMEDIATE > : TEST [S] 'MIXER' [S] {QWERTY} ; > > Впрочем, там уже определено и слово *S$* со сходной семантикой, > работающее и в режиме исполнения. > > -- Ruvim |