alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding hashing utils, making vocab test more stable.

Browse Source
This commit is contained in:
Brad Nelson
2022-06-03 11:57:54 -07:00
parent f0cea166e4
commit d08831fe94
8 changed files with 278 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/all_tests.fs
View File

@ -24,4 +24,6 @@ needs float_tests.fs
needs forth_namespace_tests.fs
needs structures_tests.fs
needs including_tests/including_tests.fs
needs ../lib/hashing/sha1_tests.fs
needs ../lib/hashing/sha256_tests.fs
run-tests

6
common/forth_namespace_tests.fs
View File

@ -477,7 +477,7 @@ e: check-phase2
DEFINED? windows [IF]
e: test-windows-forth-namespace
internals voclist
internals ' graphics voclist-from
out: internals
out: graphics
out: ansi
@ -515,7 +515,7 @@ e: test-windows-forth-namespace
[ELSE] DEFINED? posix [IF]
e: test-posix-forth-namespace
internals voclist
internals ' sockets voclist-from
out: sockets
out: internals
out: graphics
@ -560,7 +560,7 @@ e: test-posix-forth-namespace
[ELSE]
e: test-esp32-forth-namespace
internals voclist
internals ' ansi voclist-from
out: ansi
out: registers
out: oled

3
common/utils.fs
View File

@ -77,7 +77,8 @@ internals definitions
dup >body see-vocabulary
>vocnext
repeat drop cr ;
: voclist last-vocabulary @ begin dup while dup see. cr >vocnext repeat drop ;
: voclist-from ( voc -- ) begin dup while dup see. cr >vocnext repeat drop ;
: voclist last-vocabulary @ voclist-from ;
: voc. ( voc -- ) 2 cells - see. ;
: vocs. ( voc -- ) dup voc. @ begin dup while
dup nonvoc? 0= if ." >> " dup 2 cells - voc. then