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

Added socket-purge-flags

Browse source
This commit is contained in:
Justin Ethier 2016-09-24 00:26:53 -04:00
parent 33b96426d6
commit 8fb892a131
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
srfi/106.sld
View file

@ -112,15 +112,27 @@
(let ((result (car flags)))
(for-each
(lambda (flag)
(set! result (num-or result flag)))
(set! result (bit-set result flag)))
(cdr flags))
result)))
(define-c num-or
(define (socket-purge-flags base-flag . flags)
(if (null? flags)
base-flag
(begin
(for-each
(lambda (flag)
(set! base-flag (bit-unset base-flag flag)))
flags)
base-flag)))
(define-c bit-set
"(void *data, int argc, closure _, object k, object n1, object n2)"
" return_closcall1(data, k, Cyc_bit_or(data, n1, n2));")
;(define (socket-purge-flags flags)
;)
" return_closcall1(data, k, Cyc_bit_set(data, n1, n2));")
(define-c bit-unset
"(void *data, int argc, closure _, object k, object n1, object n2)"
" return_closcall1(data, k, Cyc_bit_unset(data, n1, n2));")
(define-syntax make-const
(er-macro-transformer