Finish bdict conversion.

This commit is contained in:
Dominik Pantůček 2023-07-07 11:10:45 +02:00
parent 2079fb8ef3
commit 0bcc49f99e
4 changed files with 13 additions and 4 deletions

View file

@ -553,3 +553,9 @@ Converts list of pairs into BST dictionary.
(v #f)) (v #f))
Functional update with optional default value (defaults to #f). Functional update with optional default value (defaults to #f).
## util-bst-bdict [module]
(import util-bst-bdict)
Reimplementation of old number-only BST dictionary.

View file

@ -64,13 +64,14 @@ GENDOC-SOURCES=gendoc.scm duck-extract.import.scm \
util-parser.import.scm util-list.import.scm \ util-parser.import.scm util-list.import.scm \
util-proc.import.scm util-format.import.scm \ util-proc.import.scm util-format.import.scm \
util-tag.import.scm util-string.import.scm \ util-tag.import.scm util-string.import.scm \
util-bst.import.scm util-bst.import.scm util-bst-bdict.import.scm
GENDOC-OBJS=gendoc.o duck-extract.o util-time.o util-csv.o util-io.o \ GENDOC-OBJS=gendoc.o duck-extract.o util-time.o util-csv.o util-io.o \
progress.o testing.o util-proc.o util-git.o util-io.o \ progress.o testing.o util-proc.o util-git.o util-io.o \
util-stdout.o util-parser.o util-list.o util-proc.o \ util-stdout.o util-parser.o util-list.o util-proc.o \
util-format.o racket-kwargs.o util-dict-list.o util-tag.o \ util-format.o racket-kwargs.o util-dict-list.o util-tag.o \
util-set-list.o duck.o util-string.o util-bst.o util-set-list.o duck.o util-string.o util-bst.o \
util-bst-bdict.o
.PHONY: imports .PHONY: imports
imports: $(HACKERBASE-DEPS) imports: $(HACKERBASE-DEPS)
@ -520,7 +521,8 @@ UTIL-BST-SOURCES=util-bst.scm util-tag.import.scm testing.import.scm \
util-bst.o: util-bst.import.scm util-bst.o: util-bst.import.scm
util-bst.import.scm: $(UTIL-BST-SOURCES) util-bst.import.scm: $(UTIL-BST-SOURCES)
UTIL-BST-BDICT-SOURCES=util-bst-bdict.scm util-bst.import.scm UTIL-BST-BDICT-SOURCES=util-bst-bdict.scm util-bst.import.scm \
duck.import.scm
util-bst-bdict.o: util-bst-bdict.import.scm util-bst-bdict.o: util-bst-bdict.import.scm
util-bst-bdict.import.scm: $(UTIL-BST-BDICT-SOURCES) util-bst-bdict.import.scm: $(UTIL-BST-BDICT-SOURCES)

View file

@ -33,4 +33,5 @@
util-string util-string
util-mail util-mail
util-bst util-bst
util-bst-bdict
) )

View file

@ -5,7 +5,7 @@
(module* (module*
util-bst-bdict util-bst-bdict
#:doc ("...") #:doc ("Reimplementation of old number-only BST dictionary.")
( (
list->bdict list->bdict
bdict-find-value bdict-find-value