oggpack-buffer - Factor Documentation

USING: alien.c-types classes.struct ;

IN: ogg

STRUCT: oggpack-buffer
{ endbyte long initial: 0 } { endbit int initial: 0 }
{ buffer uchar* } { ptr uchar* } { storage long initial: 0 }
;

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

M: oggpack-buffer clone
clone-underlying \ oggpack-buffer memory>struct ; inline

USING: accessors classes.struct combinators.smart ogg ;

M: oggpack-buffer struct-slot-values
{
[ endbyte>> ]
[ endbit>> ]
[ buffer>> ]
[ ptr>> ]
[ storage>> ]
} cleave>array ; inline