Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #487 from arthurmaciel/master

Browse source 
Imported make-opaque from simple-http-server
This commit is contained in:
Justin Ethier 2022-06-26 07:05:39 -07:00 • committed by GitHub
commit 8256267666
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libs/cyclone/foreign.sld
View file

@ -14,6 +14,7 @@
(export (export
opaque? opaque?
opaque-null? opaque-null?
make-opaque
c-code c-code
c-value c-value
@ -31,6 +32,11 @@
"Cyc_check_opaque(data, p); "Cyc_check_opaque(data, p);
return_closcall1(data, k, make_boolean(opaque_ptr(p) == NULL));") return_closcall1(data, k, make_boolean(opaque_ptr(p) == NULL));")
(define-c make-opaque
"(void *data, int argc, closure _, object k)"
"make_c_opaque(opq, NULL);
return_closcall1(data, k, &opq);")
;; (c-define-type name type (pack (unpack))) ;; (c-define-type name type (pack (unpack)))
(define-syntax c-define-type (define-syntax c-define-type
(er-macro-transformer (er-macro-transformer