version<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: version<< ( value object -- )

Methods

USING: accessors classes.struct classes.struct.private
core-foundation core-foundation.fsevents math ;

M: FSEventStreamContext version<<
    T{ struct-slot-spec
        { name "version" }
        { offset 0 }
        { class integer }
        { initial 0 }
        { type CFIndex }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math openssl.libssl ;

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


USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: build_tool_version version<<
    T{ struct-slot-spec
        { name "version" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type uint32_t }
    } write-struct-slot ; inline


USING: accessors opencl slots.private ;

M: cl-device version<< 52 set-slot ; inline


USING: accessors opencl slots.private ;

M: cl-platform version<< 4 set-slot ; inline


USING: accessors http slots.private ;

M: cookie version<< 4 set-slot ; inline


USING: accessors fastcgi slots.private ;

M: fcgi-header version<< 2 set-slot ; inline


USING: accessors alien.libraries.finder.macosx.private
slots.private ;

M: framework-info version<< 5 set-slot ; inline


USING: accessors git slots.private ;

M: git-index version<< 3 set-slot ; inline


USING: accessors hashcash slots.private ;

M: hashcash version<< 2 set-slot ; inline


USING: accessors id3.private slots.private ;

M: header version<< 2 set-slot ; inline


USING: accessors shapefiles.private slots.private ;

M: header version<< 4 set-slot ; inline


USING: accessors git slots.private ;

M: idx version<< 2 set-slot ; inline


USING: accessors classes.struct classes.struct.private math
tools.image-analyzer.vm vm ;

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


USING: accessors ntp.private slots.private ;

M: ntp version<< 3 set-slot ; inline


USING: accessors git slots.private ;

M: pack version<< 3 set-slot ; inline


USING: accessors kernel slots slots.private strings xml.data ;

M: prolog version<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors cuda.ptx kernel slots slots.private strings ;

M: ptx version<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors http slots.private ;

M: raw-response version<< 2 set-slot ; inline


USING: accessors http slots.private ;

M: request version<< 5 set-slot ; inline


USING: accessors http slots.private ;

M: response version<< 2 set-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: source_version_command version<<
    T{ struct-slot-spec
        { name "version" }
        { offset 8 }
        { class integer }
        { initial 0 }
        { type uint64_t }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math openssl.libssl ;

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


USING: accessors slots.private tar ;

M: tar-header version<< 12 set-slot ; inline


USING: accessors slots.private webapps.mason.version.data ;

M: version version<< 3 set-slot ; inline


USING: accessors geobytes slots.private ;

M: version version<< 3 set-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: version_min_command version<<
    T{ struct-slot-spec
        { name "version" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type uint32_t }
    } write-struct-slot ; inline


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

M: vorbis-info version<<
    T{ struct-slot-spec
        { name "version" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline