: c-struct? ( type -- ? ) (c-type) struct-type? ;
-: (define-struct) ( name vocab size align fields -- )
+: (define-struct) ( name size align fields -- )
- >r [ align ] keep r>
+ [ [ align ] keep ] dip
struct-type boa
- -rot define-c-type ;
+ swap typedef ;
: define-struct-early ( name vocab fields -- fields )
[ first2 <field-spec> ] with with map ;
! See http://factorcode.org/license.txt for BSD license.
!
! based on glx.h from xfree86, and some of glxtokens.h
- USING: alien alien.c-types alien.syntax alien.syntax.private x11.xlib
+ USING: alien alien.c-types alien.syntax x11.xlib
-namespaces make kernel sequences parser words ;
+namespaces make kernel sequences parser words specialized-arrays.int ;
IN: x11.glx
LIBRARY: glx