libs/usb/usb-common.factor

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