Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add make-int-table

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-03 22:00:30 +09:00
parent fc6e1c8ad2
commit a1fa748e98
1 changed files with 29 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lib/table.fs
View file

@ -41,7 +41,7 @@ end-struct entry%
tuck table>hash ! tuck table>hash !
0 over table>entries ! 0 over table>entries !
0 over table>size ! 0 over table>size !
; export ;
10 constant DEFAULT_TABLE_SIZE_HINT 10 constant DEFAULT_TABLE_SIZE_HINT
@ -49,4 +49,32 @@ end-struct entry%
DEFAULT_TABLE_SIZE_HINT make-table-with-hint DEFAULT_TABLE_SIZE_HINT make-table-with-hint
; export ; export
: release-table ( tbl -- )
dup table>entries @
begin ?dup while
dup entry>next @
swap
free
repeat
dup table>bucket @ release-array
free
; export
( tables for major builtin types )
: hash-next ( n1 n2 -- n3 )
+ 6122117 * 1627577 +
;
: hash-int ( n -- n )
0 hash-next
; export
: make-int-table ( -- tbl )
['] hash-int ['] = make-table
; export
." ===========" cr
}private }private
T{ make-int-table release-table -> }T