start<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: start<< ( value object -- )


Methods
USING: accessors alien.c-types classes.struct
classes.struct.private math readline.ffi ;

M: UNDO_LIST start<<
T{ struct-slot-spec
{ name "start" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type int }
} write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private
tools.time.struct vm ;

M: benchmark-data-pair start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class benchmark-data }
{ initial
S{ benchmark-data
{ time 0 }
{ data-room
S{ data-heap-room
{ nursery ~copying-sizes~ }
{ aging ~copying-sizes~ }
{ tenured ~mark-sweep-sizes~ }
{ cards 0 }
{ decks 0 }
{ mark-stack 0 }
}
}
{ code-room
S{ mark-sweep-sizes
{ size 0 }
{ occupied 0 }
{ total-free 0 }
{ contiguous-free 0 }
{ free-block-count 0 }
}
}
{ callback-room
S{ mark-sweep-sizes
{ size 0 }
{ occupied 0 }
{ total-free 0 }
{ contiguous-free 0 }
{ free-block-count 0 }
}
}
}
}
{ type benchmark-data }
} write-struct-slot ; inline


USING: accessors circular kernel math slots slots.private ;

M: circular start<<
[ dup integer? [ \ integer bad-slot-value ] unless ] dip
3 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes start<< 85 set-slot ; inline


USING: accessors minesweeper slots.private ;

M: grid-gadget start<< 21 set-slot ; inline


USING: accessors slots.private ui.tools.listener.history ;

M: history start<< 4 set-slot ; inline


USING: accessors io.streams.limited slots.private ;

M: limited-stream start<< 6 set-slot ; inline


USING: accessors slots.private tinyvg ;

M: line start<< 2 set-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: mapping_node_data_pairs start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_node_pair_t }
} write-struct-slot ; inline


USING: accessors slots.private xmode.rules ;

M: rule start<< 4 set-slot ; inline


USING: accessors slots.private yahoo ;

M: search start<< 5 set-slot ; inline


USING: accessors prettyprint.sections slots.private ;

M: section start<< 2 set-slot ; inline


USING: accessors slots.private tinyvg ;

M: segment start<< 2 set-slot ; inline


USING: accessors classes.struct classes.struct.private math vm ;

M: segment start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type cell_t }
} write-struct-slot ; inline


USING: accessors slots.private ui.gadgets.editors.private ;

M: selected-line start<< 2 set-slot ; inline


USING: accessors fonts slots.private ;

M: selection start<< 3 set-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: sequence_node_data_items start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_node_item_t }
} write-struct-slot ; inline


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

M: string_yaml_parser_input start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: uchar }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: tag_directives_document_start_event_data start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_tag_directive_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_document_nodes start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_node_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_document_tag_directives start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_tag_directive_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_buffer start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_char_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_events start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_event_t }
} write-struct-slot ; inline


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

M: yaml_emitter_indents start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: int }
} write-struct-slot ; inline


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

M: yaml_emitter_raw_buffer start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: uchar }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_states start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_emitter_state_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_tag_directives start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_tag_directive_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_aliases start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_alias_data_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_buffer start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_char_t }
} write-struct-slot ; inline


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

M: yaml_parser_indents start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: int }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_marks start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_mark_t }
} write-struct-slot ; inline


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

M: yaml_parser_raw_buffer start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: uchar }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_simple_keys start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_simple_key_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_states start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_parser_state_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_tag_directives start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_tag_directive_t }
} write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_tokens start<<
T{ struct-slot-spec
{ name "start" }
{ offset 0 }
{ class c-ptr }
{ type pointer: yaml_token_t }
} write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private math vm ;

M: zone start<<
T{ struct-slot-spec
{ name "start" }
{ offset 8 }
{ class integer }
{ initial 0 }
{ type cell_t }
} write-struct-slot ; inline