Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 23:07: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) (define-library (scheme cyclone hashset)
(export (export
hs-create
hs-destroy!
hs-num-items
hs-add!
hs-add-all!
hs-remove!
hs-member?
) )
(import (scheme base) (import (scheme base)
(scheme write)) (scheme write))
@ -24,7 +31,7 @@
return_closcall1(data, k, &opq); return_closcall1(data, k, &opq);
") ")
(define-c hs-destroy (define-c hs-destroy!
"(void *data, int argc, closure _, object k, object opq )" "(void *data, int argc, closure _, object k, object opq )"
" "
hashset_t hs = (hashset_t)(opaque_ptr(opq)); hashset_t hs = (hashset_t)(opaque_ptr(opq));
@ -40,7 +47,7 @@
return_closcall1(data, k, obj_int2obj(count)); 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 )" "(void *data, int argc, closure _, object k, object opq, object item )"
" "
hashset_t hs = (hashset_t)(opaque_ptr(opq)); hashset_t hs = (hashset_t)(opaque_ptr(opq));
@ -48,7 +55,13 @@
return_closcall1(data, k, obj_int2obj(rv)); 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 )" "(void *data, int argc, closure _, object k, object opq, object item )"
" "
hashset_t hs = (hashset_t)(opaque_ptr(opq)); hashset_t hs = (hashset_t)(opaque_ptr(opq));