18 lines
464 B
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 append3
|
||
|
|
3dup define-getter 3dup define-setter
|
||
|
|
drop c-size rot * + ;
|
||
|
|
|
||
|
|
: PACKED-FIELD: ( offset -- offset )
|
||
|
|
scan scan define-packed-field ; parsing
|
||
|
|
|