dictionary code initial

1 files changed, 72 insertions, 0 deletions

diff --git a/indexes.scm b/indexes.scm
new file mode 100644
index 0000000..8969b33
--- /dev/null
+++ b/indexes.scm
@@ -0,0 +1,72 @@
+;;;; Indexes into dictionary vectors
+
+(define d? 0)
+(define dempty? 1)
+(define dcontains? 2)
+(define dref 3)
+(define dref/default 4)
+(define dset! 5)
+(define dadjoin! 6)
+(define ddelete! 7)
+(define ddelete-all! 8)
+(define dreplace! 9)
+(define dintern! 10)
+(define dupdate! 11)
+(define dupdate/default! 12)
+(define dpop! 13)
+(define dmap! 14)
+(define dfilter! 15)
+(define dremove! 16)
+(define dsearch! 17)
+(define dsize 18)
+(define dfor-each 19)
+(define dcount 20)
+(define dany 21)
+(define devery 22)
+(define dkeys 23)
+(define dvalues 24)
+(define dentries 25)
+(define dfold 26)
+(define dmap->list 27)
+(define ddict->alist 28)
+
+;;; To call an internal procedure from another internal procedure:
+;;; (dcall dref/default vec dict key default)
+
+(define-syntax dcall
+  (syntax-rules ()
+    ((dcall dindex vec arg ...)
+     ((vector-ref vec dindex) arg ...))))
+
+;;; maps names to indexes
+
+(define dname-map 
+  `(dictionary? . ,d?)
+   (dict-empty? . ,dempty?)
+   (dict-contains? . ,dcontains?)
+   (dict-ref . ,dref)
+   (dict-ref/default . ,dref/default)
+   (dict-set! . ,dset!)
+   (dict-adjoin! . ,dadjoin!)
+   (dict-delete! . ,ddelete!)
+   (dict-delete-all! . ,ddelete-all!)
+   (dict-replace! . ,dreplace!)
+   (dict-intern! . ,dintern!)
+   (dict-update! . ,dupdate!)
+   (dict-update/default! . ,dupdate/default!)
+   (dict-pop! . ,dpop!)
+   (dict-map! . ,dmap!)
+   (dict-filter! . ,dfilter!)
+   (dict-remove! . ,dremove!)
+   (dict-search! . ,dsearch!)
+   (dict-size . ,dsize)
+   (dict-for-each . ,dfor-each)
+   (dict-count . ,dcount)
+   (dict-any . ,dany)
+   (dict-every . ,devery)
+   (dict-keys . ,dkeys)
+   (dict-values . ,dvalues)
+   (dict-entries . ,dentries)
+   (dict-fold . ,dfold)
+   (dict-map->list . ,dmap->list)
+   (dict->alist . ,d->alist))