From 71bb8bcaaed1eba1b7679388b002d39c0e00ca34 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Fri, 3 Dec 2021 12:32:34 +0900
Subject: [PATCH] [WIP] add lib/table.fs

---
 lib/table.fs | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 runtests.fs  |  1 +
 2 files changed, 47 insertions(+)
 create mode 100644 lib/table.fs

diff --git a/lib/table.fs b/lib/table.fs
new file mode 100644
index 0000000..4fbeba4
--- /dev/null
+++ b/lib/table.fs
@@ -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
diff --git a/runtests.fs b/runtests.fs
index 08aec4f..064c208 100644
--- a/runtests.fs
+++ b/runtests.fs
@@ -15,5 +15,6 @@ include test/coreexttest.fs
 include test/export.fs
 include lib/array.fs
 include lib/bitscan.fs
+include lib/table.fs
 
 report-and-exit