| s" bla baz bar" ?foos1 |
s" bla baz bar" ?foos1 |
| s" foofoofoo" ?foos1 |
s" foofoofoo" ?foos1 |
| |
|
| |
\ backtracking on decissions |
| |
|
| |
: ?aab ( addr u -- flag ) |
| |
(( {{ =" aa" || =" a" }} {{ =" ab" || =" a" }} )) ; |
| |
s" aab" ?aab 0= [IF] .( aab failed!) cr [THEN] |
| |
|
| \ buffer overrun test (bug in =") |
\ buffer overrun test (bug in =") |
| |
|
| ." --- buffer overrun test ---" cr |
." --- buffer overrun test ---" cr |
| >> \1 s>number drop 60 * |
>> \1 s>number drop 60 * |
| \2 s>number drop + 60 * |
\2 s>number drop + 60 * |
| \3 s>number drop + 0 <# 's' hold #s #> << |
\3 s>number drop + 0 <# 's' hold #s #> << |
| || ` ( {* .? *} ` ) >> <<" " |
|| ` ( // ` ) >> <<" " |
| }} LEAVE //s ; |
}} LEAVE //s ; |
| |
|
| \ doesn't work yet |
\ doesn't work yet |
