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

Initial file

Browse source
This commit is contained in:
Justin Ethier 2018-12-19 13:27:05 -05:00
parent c05a2602d2
commit f9b503edd8
1 changed files with 67 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
scheme/cyclone/hashset.sld Normal file
View file

@ -0,0 +1,67 @@
;;;; Cyclone Scheme
;;;; https://github.com/justinethier/cyclone
;;;;
;;;; Copyright (c) 2018, Justin Ethier
;;;; All rights reserved.
;;;;
;;;; This module contains a hashset based on code from:
;;;; https://github.com/avsej/hashset.c
;;;;
(define-library (scheme cyclone pretty-print)
(export
)
(import (scheme base)
(scheme write))
(include-c-header "cyclone/hashset.h")
(begin
(define-c hs-create
"(void *data, int argc, closure _, object k )"
"
hashset_t hs = hashset_create();
make_c_opaque(opq, hs);
return_closcall1(data, k, &opq);
")
(define-c hs-destroy
"(void *data, int argc, closure _, object k, object opq )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
hashset_destroy(hs);
return_closcall1(data, k, boolean_t);
")
(define-c hs-num-items
"(void *data, int argc, closure _, object k, object opq )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
int count = hashset_num_items(hs);
return_closcall1(data, k, obj_int2obj(count));
")
(define-c hs-add
"(void *data, int argc, closure _, object k, object opq, object item )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
int rv = hashset_add(hs, item);
return_closcall1(data, k, obj_int2obj(rv));
")
(define-c hs-remove
"(void *data, int argc, closure _, object k, object opq, object item )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
int rv = hashset_remove(hs, item);
return_closcall1(data, k, obj_int2obj(rv));
")
(define-c hs-member?
"(void *data, int argc, closure _, object k, object opq, object item )"
"
hashset_t hs = (hashset_t)(opaque_ptr(opq));
int rv = hashset_is_member(hs, item);
return_closcall1(data, k, rv ? boolean_t : boolean_f);
")
))