version_directive<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: version_directive<< ( value object -- )

Methods

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

M: document_start_event_data version_directive<<
    T{ struct-slot-spec
        { name "version_directive" }
        { offset 0 }
        { class c-ptr }
        { type pointer: yaml_version_directive_t }
    } write-struct-slot ; inline


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

M: token_data version_directive<<
    T{ struct-slot-spec
        { name "version_directive" }
        { offset 0 }
        { class version_directive_token_data }
        { initial
            S{ version_directive_token_data
                { major 0 }
                { minor 0 }
            }
        }
        { type version_directive_token_data }
    } write-struct-slot ; inline


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

M: yaml_document_t version_directive<<
    T{ struct-slot-spec
        { name "version_directive" }
        { offset 24 }
        { class c-ptr }
        { type pointer: yaml_version_directive_t }
    } write-struct-slot ; inline