factor/libs/usb/usb-common.factor

18 lines
464 B
Factor

! Copyright (C) 2006 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
!
IN: usb
USING: kernel alien math namespaces sequences parser ;
: define-packed-field ( offset type name -- offset )
>r parse-c-decl
>r 1 r>
>r swapd align r> r>
"struct-name" get swap "-" swap 3append
3dup define-getter 3dup define-setter
drop c-size rot * + ;
: PACKED-FIELD: ( offset -- offset )
scan scan define-packed-field ; parsing