version 1.5, 2002/09/14 08:20:19
|
version 1.6, 2002/12/04 10:42:59
|
Line 68 char o c, char p c, char q c, 13
|
Line 68 char o c, char p c, char q c, 13
|
\G @code{\}[0-7]+ octal numerical character value, @code{\x}[0-9a-f]+ |
\G @code{\}[0-7]+ octal numerical character value, @code{\x}[0-9a-f]+ |
\G hex numerical character value; a @code{\} before any other |
\G hex numerical character value; a @code{\} before any other |
\G character represents that character (only ', \, ? in C99). |
\G character represents that character (only ', \, ? in C99). |
here >r 0 c, |
here >r |
>in @ chars source chars over + >r + begin ( parse-area R: here parse-end ) |
>in @ chars source chars over + >r + begin ( parse-area R: here parse-end ) |
dup r@ < while |
dup r@ < while |
dup c@ [char] " <> while |
dup c@ [char] " <> while |
Line 82 char o c, char p c, char q c, 13
|
Line 82 char o c, char p c, char q c, 13
|
char+ source >r - r> min char/ >in ! |
char+ source >r - r> min char/ >in ! |
r> drop |
r> drop |
here r> - dup negate allot |
here r> - dup negate allot |
here swap char/ 1 /string ; |
here swap char/ ; |
|
|
:noname \"-parse save-mem ; |
:noname \"-parse save-mem ; |
:noname postpone (s") \"-parse dup c, 1+ chars allot drop ; |
:noname \"-parse save-mem 2dup postpone sliteral drop free throw ; |
interpret/compile: s\" ( compilation 'ccc"' -- ; run-time -- c-addr u ) \ gforth s-backslash-quote |
interpret/compile: s\" ( compilation 'ccc"' -- ; run-time -- c-addr u ) \ gforth s-backslash-quote |
\G Like @code{S"}, but translates C-like \-escape-sequences into |
\G Like @code{S"}, but translates C-like \-escape-sequences into |
\G single characters. See @code{\"-parse} for details. |
\G single characters. See @code{\"-parse} for details. |
|
|
:noname \"-parse type ; |
:noname \"-parse type ; |
:noname postpone (.") \"-parse dup c, 1+ chars allot drop ; |
:noname postpone s\" postpone type ; |
interpret/compile: .\" ( compilation 'ccc"' -- ; run-time -- ) \ gforth dot-backslash-quote |
interpret/compile: .\" ( compilation 'ccc"' -- ; run-time -- ) \ gforth dot-backslash-quote |
|
|
0 [if] \ test |
0 [if] \ test |