IN: accessors

GENERIC: header>> ( object -- value )

USING: accessors images.png slots.private ;

M: bad-png-header header>> 2 slot ; inline

USING: accessors cairo.ffi classes.struct
classes.struct.private ;

M: cairo_path_data_t header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class cairo_path_data_t-header }
{ initial
S{ cairo_path_data_t-header
{ type CAIRO_PATH_MOVE_TO }
{ length 0 }
}
}
{ type cairo_path_data_t-header }
} read-struct-slot ; inline

USING: accessors slots.private tar ;

M: checksum-error header>> 2 slot ; inline

USING: accessors audio.aiff classes.struct
classes.struct.private
specialized-arrays.instances.alien.c-types.char ;

M: common-chunk header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class aiff-chunk-header }
{ initial
S{ aiff-chunk-header
{ id char-array{ 0 0 0 0 } }
{ size char-array{ 0 0 0 0 } }
}
}
{ type aiff-chunk-header }
} read-struct-slot ; inline

USING: accessors audio.aiff classes.struct
classes.struct.private
specialized-arrays.instances.alien.c-types.char ;

M: form-chunk header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class aiff-chunk-header }
{ initial
S{ aiff-chunk-header
{ id char-array{ 0 0 0 0 } }
{ size char-array{ 0 0 0 0 } }
}
}
{ type aiff-chunk-header }
} read-struct-slot ; inline

USING: accessors id3.private slots.private ;

M: id3 header>> 2 slot ; inline

USING: accessors images.bitmap slots.private ;

M: loading-bitmap header>> 3 slot ; inline

USING: accessors mime.multipart slots.private ;

M: multipart header>> 5 slot ; inline

USING: accessors compiler.cfg.loop-detection slots.private ;

M: natural-loop header>> 2 slot ; inline

USING: accessors alien alien.c-types alien.syntax
classes.struct classes.struct.private ogg ;

M: ogg-page header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class c-ptr }
{ type pointer: uchar }
} read-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private kernel ogg ;

M: ogg-stream-state header>>
T{ struct-slot-spec
{ name "header" }
{ offset 80 }
{ class object }
{ type { uchar 282 } }
} read-struct-slot ; inline

USING: accessors http slots.private ;

M: request header>> 5 slot ; inline

USING: accessors http slots.private ;

M: response header>> 5 slot ; inline

USING: accessors audio.wav classes.struct
classes.struct.private
specialized-arrays.instances.alien.c-types.char ;

M: riff-chunk header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class riff-chunk-header }
{ initial
S{ riff-chunk-header
{ id char-array{ 0 0 0 0 } }
{ size char-array{ 0 0 0 0 } }
}
}
{ type riff-chunk-header }
} read-struct-slot ; inline

USING: accessors audio.aiff classes.struct
classes.struct.private
specialized-arrays.instances.alien.c-types.char ;

M: sound-data-chunk header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class aiff-chunk-header }
{ initial
S{ aiff-chunk-header
{ id char-array{ 0 0 0 0 } }
{ size char-array{ 0 0 0 0 } }
}
}
{ type aiff-chunk-header }
} read-struct-slot ; inline

USING: accessors audio.wav classes.struct
classes.struct.private
specialized-arrays.instances.alien.c-types.char ;

M: wav-data-chunk header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class riff-chunk-header }
{ initial
S{ riff-chunk-header
{ id char-array{ 0 0 0 0 } }
{ size char-array{ 0 0 0 0 } }
}
}
{ type riff-chunk-header }
} read-struct-slot ; inline

USING: accessors audio.wav classes.struct
classes.struct.private
specialized-arrays.instances.alien.c-types.char ;

M: wav-fmt-chunk header>>
T{ struct-slot-spec
{ name "header" }
{ offset 0 }
{ class riff-chunk-header }
{ initial
S{ riff-chunk-header
{ id char-array{ 0 0 0 0 } }
{ size char-array{ 0 0 0 0 } }
}
}
{ type riff-chunk-header }
} read-struct-slot ; inline