USING: alien.c-types classes.struct ;

IN: ogg

STRUCT: ogg-page
{ header uchar* } { header_len long initial: 0 }
{ body uchar* } { body_len long initial: 0 } ;

USING: classes.struct classes.struct.private kernel ogg ;

M: ogg-page clone clone-underlying \ ogg-page memory>struct
; inline

USING: accessors classes.struct combinators combinators.smart
ogg ;

M: ogg-page struct-slot-values
[
{
[ header>> ]
[ header_len>> ]
[ body>> ]
[ body_len>> ]
} cleave
] output>array ; inline