size kwarg

main
Matthew Butterick 5 years ago
parent f38e8cd8ac
commit 6e1cf4e82e

@ -70,12 +70,16 @@ https://github.com/mbutterick/restructure/blob/master/src/Number.coffee
([i (in-range @size)]) ([i (in-range @size)])
(values (cons (bitwise-and val #xff) bs) (arithmetic-shift val -8)))))) (values (cons (bitwise-and val #xff) bs) (arithmetic-shift val -8))))))
(define (x:int [size 2] (define (x:int [size-arg #f]
#:size [size-kwarg 2]
#:signed [signed #true] #:signed [signed #true]
#:endian [endian system-endian] #:endian [endian system-endian]
#:pre-encode [pre-proc #f] #:pre-encode [pre-proc #f]
#:post-decode [post-proc #f]) #:post-decode [post-proc #f])
(new (generate-subclass x:int% pre-proc post-proc) [size size] [signed signed] [endian endian])) (new (generate-subclass x:int% pre-proc post-proc)
[size (or size-arg size-kwarg)]
[signed signed]
[endian endian]))
(define int8 (x:int 1)) (define int8 (x:int 1))
(define int16 (x:int 2)) (define int16 (x:int 2))

Loading…
Cancel
Save