headers<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: headers<< ( value object -- )


Methods
USING: accessors bit-arrays compression.gzip.private kernel
slots slots.private ;

M: deflate-block headers<<
[ dup bit-array? [ \ bit-array bad-slot-value ] unless ] dip
2 set-slot ; inline


USING: accessors slots.private stomp ;

M: frame headers<< 3 set-slot ; inline


USING: accessors images.jpeg slots.private ;

M: loading-jpeg headers<< 9 set-slot ; inline


USING: accessors pop3 slots.private ;

M: message headers<< 4 set-slot ; inline


USING: accessors mime.multipart slots.private ;

M: mime-file headers<< 2 set-slot ; inline


USING: accessors mime.multipart slots.private ;

M: mime-variable headers<< 2 set-slot ; inline


USING: accessors imap slots.private ;

M: parsed-email headers<< 10 set-slot ; inline


USING: accessors pop3.private slots.private ;

M: raw-source headers<< 3 set-slot ; inline


USING: accessors s3.private slots.private ;

M: s3-request headers<< 6 set-slot ; inline


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

M: sf_hdtr headers<<
T{ struct-slot-spec
{ name "headers" }
{ offset 0 }
{ class c-ptr }
{ type pointer: void }
} write-struct-slot ; inline


USING: accessors slots.private spider ;

M: spider-result headers<< 4 set-slot ; inline