From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/examples/string-rec.frt | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 amforth-6.5/examples/string-rec.frt (limited to 'amforth-6.5/examples/string-rec.frt') 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 -; -- cgit v1.2.3