aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/examples/string-rec.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/examples/string-rec.frt')
-rw-r--r--amforth-6.5/examples/string-rec.frt28
1 files changed, 0 insertions, 28 deletions
diff --git a/amforth-6.5/examples/string-rec.frt b/amforth-6.5/examples/string-rec.frt
deleted file mode 100644
index b1bd930..0000000
--- a/amforth-6.5/examples/string-rec.frt
+++ /dev/null
@@ -1,28 +0,0 @@
-
-\ use " as string delimiters. Everything
-\ between two " is a string. It replaces
-\ the forth command s" completly
-\ instead of s" foo" use "foo". The space
-\ after s" is no longer needed, instead it
-\ a part of the string. s" foo" and " foo"
-\ differ with the leading space in the latter
-
-\ strings live as long as the SOURCE is
-\ unchanged! Compilation is done to the
-\ flash if called in compile state.
-\ postponing a compiled string is not yet
-\ supported.
-
-\ #require recognizer.frt
-
-' noop
-:noname postpone sliteral ;
-:noname -48 throw ; recognizer: r:string
-
-: rec:string ( addr len -- addr' len' r:string | r:fail )
- over c@ [char] " <> if 2drop r:fail exit then
- negate 1+ >in +! drop \ reset parse area to SOURCE
- [char] " parse \ get trailing delimiter
- -1 /string
- r:string
-;