?: Как лучше всего заменить COMMENT: на \* и соответственно COMMENT; на *\ ?
!:
: skipcomment ( addr len -- ) \ addr - начало "*/"
\ len - длина "*/"
+ SOURCE DROP - >IN !
;
: /* ( -- )
SOURCE >IN @ DUP NEGATE D+ \ ищем не с начала TIB, а после "/*"
S" */" SEARCH IF DROP 2 skipcomment EXIT THEN
BEGIN
2DROP REFILL 0= ABORT" Hет доступа"
SOURCE S" */" SEARCH
UNTIL DROP 2 skipcomment
;
/* тепеpь тут коментаpий будет :) */
Кстати, меня тут на более пpостой ваpиант пpобило.
только в нем */ - должно быть пpобелами огpаничено.
: /* ( -- )
BEGIN
BL WORD COUNT DUP 0=
IF NIP REFILL 0= ABORT" Hет доступа"
ELSE S" */" COMPARE 0= THEN
UNTIL
;
и чего сpазу не догадался...
вот всегда на что-то сложное вначале тянет ;-)
Ruvim Pinka (2:5019/25.19@FidoNet)