USING: alien.c-types classes.struct ;

IN: ogg

STRUCT: ogg-packet
{ packet uchar* } { bytes long initial: 0 }
{ b_o_s long initial: 0 } { e_o_s long initial: 0 }
{ granulepos longlong initial: 0 }
{ packetno longlong initial: 0 } ;

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

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

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

M: ogg-packet struct-slot-values
[
{
[ packet>> ]
[ bytes>> ]
[ b_o_s>> ]
[ e_o_s>> ]
[ granulepos>> ]
[ packetno>> ]
} cleave
] output>array ; inline