-\ @(#) $M$ 98/01/26 1.2\r
-\ standard { v0 v1 ... vn | l0 l1 .. lm -- } syntax\r
-\ based on ANSI basis words (LOCAL) and TO\r
-\\r
-\ Author: Phil Burk\r
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom\r
-\\r
-\ The pForth software code is dedicated to the public domain,\r
-\ and any third party may reproduce, distribute and modify\r
-\ the pForth software code or any derivative works thereof\r
-\ without any compensation or license. The pForth software\r
-\ code is provided on an "as is" basis without any warranty\r
-\ of any kind, including, without limitation, the implied\r
-\ warranties of merchantability and fitness for a particular\r
-\ purpose and their equivalents under the laws of any jurisdiction.\r
-\r
-\ MOD: PLB 2/11/00 Allow EOL and \ between { }.\r
-\r
-anew task-locals.fth\r
-\r
-private{\r
-variable loc-temp-mode \ if true, declaring temporary variables\r
-variable loc-comment-mode \ if true, in comment section\r
-variable loc-done\r
-}private\r
-\r
-: { ( <local-declaration}> -- )\r
- loc-done off\r
- loc-temp-mode off\r
- loc-comment-mode off\r
- BEGIN\r
- bl word count\r
- dup 0> \ make sure we are not at the end of a line\r
- IF\r
- over c@\r
- CASE\r
- \ handle special characters\r
- ascii } OF loc-done on 2drop ENDOF\r
- ascii | OF loc-temp-mode on 2drop ENDOF\r
- ascii - OF loc-comment-mode on 2drop ENDOF\r
- ascii ) OF ." { ... ) imbalance!" cr abort ENDOF\r
- ascii \ OF postpone \ 2drop ENDOF \ Forth comment\r
- \r
- \ process name\r
- >r ( save char )\r
- ( addr len )\r
- loc-comment-mode @\r
- IF\r
- 2drop\r
- ELSE\r
- \ if in temporary mode, assign local var = 0\r
- loc-temp-mode @\r
- IF compile false\r
- THEN\r
- \ otherwise take value from stack\r
- (local)\r
- THEN\r
- r>\r
- ENDCASE\r
- ELSE\r
- 2drop refill 0= abort" End of input while defining local variables!"\r
- THEN\r
- loc-done @\r
- UNTIL\r
- 0 0 (local)\r
-; immediate\r
-\r
-privatize\r
-\r
-\ tests\r
-: tlv1 { n -- } n dup n * dup n * ;\r
-\r
-: tlv2 { v1 v2 | l1 l2 -- }\r
- v1 . v2 . cr\r
- v1 v2 + -> l1\r
- l1 . l2 . cr\r
-;\r
+\ @(#) $M$ 98/01/26 1.2
+\ standard { v0 v1 ... vn | l0 l1 .. lm -- } syntax
+\ based on ANSI basis words (LOCAL) and TO
+\
+\ Author: Phil Burk
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
+\
+\ Permission to use, copy, modify, and/or distribute this
+\ software for any purpose with or without fee is hereby granted.
+\
+\ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+\ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+\ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+\ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+\ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+\ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+\ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+\ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+\ MOD: PLB 2/11/00 Allow EOL and \ between { }.
+
+anew task-locals.fth
+
+private{
+variable loc-temp-mode \ if true, declaring temporary variables
+variable loc-comment-mode \ if true, in comment section
+variable loc-done
+}private
+
+: { ( <local-declaration}> -- )
+ loc-done off
+ loc-temp-mode off
+ loc-comment-mode off
+ BEGIN
+ bl word count
+ dup 0> \ make sure we are not at the end of a line
+ IF
+ over c@
+ CASE
+ \ handle special characters
+ ascii } OF loc-done on 2drop ENDOF
+ ascii | OF loc-temp-mode on 2drop ENDOF
+ ascii - OF loc-comment-mode on 2drop ENDOF
+ ascii ) OF ." { ... ) imbalance!" cr abort ENDOF
+ ascii \ OF postpone \ 2drop ENDOF \ Forth comment
+
+ \ process name
+ >r ( save char )
+ ( addr len )
+ loc-comment-mode @
+ IF
+ 2drop
+ ELSE
+ \ if in temporary mode, assign local var = 0
+ loc-temp-mode @
+ IF compile false
+ THEN
+ \ otherwise take value from stack
+ (local)
+ THEN
+ r>
+ ENDCASE
+ ELSE
+ 2drop refill 0= abort" End of input while defining local variables!"
+ THEN
+ loc-done @
+ UNTIL
+ 0 0 (local)
+; immediate
+
+privatize
+
+\ tests
+: tlv1 { n -- } n dup n * dup n * ;
+
+: tlv2 { v1 v2 | l1 l2 -- }
+ v1 . v2 . cr
+ v1 v2 + -> l1
+ l1 . l2 . cr
+;
projects / pforth / blobdiff