Adding Recognizers, and more.

Adding the proposed recognizers vocabulary, including a limited test.
Fixing windows build to better handle different VS versions.
Fixing various hidden word bugs.
Adding 3DUP opcode.
Bumping version number.
This commit is contained in:
Brad Nelson
2024-04-20 02:10:42 -07:00
parent 5619997682
commit 74d744dd00
14 changed files with 168 additions and 35 deletions

View File

@ -23,6 +23,18 @@
6 value precision
: set-precision ( n -- ) to precision ;
( Add recognizer for floats. )
also recognizers definitions
: REC-FNUM ( c-addr len -- f addr1 | addr2 )
s>float? if
['] afliteral RECTYPE-NUM
else
RECTYPE-NONE
then
;
' REC-FNUM +RECOGNIZER
previous definitions
internals definitions
: #f+s ( r -- ) fdup precision for aft 10e f* then next
precision for aft fdup f>s 10 mod [char] 0 + hold 0.1e f* then next