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

[WIP] add lib/table.fs

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-03 12:32:34 +09:00
parent 8c7c3f42ee
commit 71bb8bcaae
2 changed files with 47 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
lib/table.fs Normal file
View file

@ -0,0 +1,46 @@
\ planckforth -
\ Copyright (C) 2021 nineties
( === Hash Table === )
include lib/bitscan.fs
include lib/array.fs
private{
create prime_numbers
5 , 11 , 17 , 37 , 67 , 131 , 257 , 521 , 1031 ,
2053 , 4099 , 8209 , 16411 , 32771 , 65537 , 131101 ,
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,
0 , 0 , 0 ,
struct
ptr% field table>bucket
ptr% field table>hash ( hash function )
ptr% field table>equal ( equal function for keys )
ptr% field table>entries ( list of entries )
int% field table>size ( number of entries )
end-struct table%
struct
ptr% field entry>key
ptr% field entry>value
ptr% field entry>sibling ( pointer to the next entry in bucket )
ptr% field entry>next ( pointer to the next entry in entries )
int% field entry>hash ( the hash value )
end-struct entry%
: make-table-with-size ( hash equal n -- tbl )
bitscan-reverse cells prime_numbers + @ ( n to bucket size )
make-array ( allocate bucket )
( hash equal bucket )
table% %allocate throw
tuck table>bucket !
tuck table>equal !
tuck table>hash !
0 over table>entries !
0 over table>size !
; export
}private

1
runtests.fs
View file

@ -15,5 +15,6 @@ include test/coreexttest.fs
include test/export.fs include test/export.fs
include lib/array.fs include lib/array.fs
include lib/bitscan.fs include lib/bitscan.fs
include lib/table.fs
report-and-exit report-and-exit