Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 14:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2018-12-19 13:39:21 -05:00
parent 61cb34fe52
commit 0e797cde1e
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scheme/cyclone/hashset.sld
View file

@ -10,6 +10,13 @@
;;;;
(define-library (scheme cyclone hashset)
(export
hs-create
hs-destroy!
hs-num-items
hs-add!
hs-add-all!
hs-remove!
hs-member?
)
(import (scheme base)
(scheme write))
@ -24,7 +31,7 @@
return_closcall1(data, k, &opq);
")
(define-c hs-destroy
(define-c hs-destroy!
"(void *data, int argc, closure _, object k, object opq )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
@ -40,7 +47,7 @@
return_closcall1(data, k, obj_int2obj(count));
")
(define-c hs-add
(define-c hs-add!
"(void *data, int argc, closure _, object k, object opq, object item )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
@ -48,7 +55,13 @@
return_closcall1(data, k, obj_int2obj(rv));
")
(define-c hs-remove
(define (hs-add-all! hs lis)
(for-each
(lambda (p)
(hs-add! hs p))
lis))
(define-c hs-remove!
"(void *data, int argc, closure _, object k, object opq, object item )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));