length<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: length<< ( value object -- )

Methods

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

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


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

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


USING: accessors classes.struct classes.struct.private gdk2.ffi
gobject-introspection.standard-types math ;

M: GdkEventKey length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 32 }
        { class fixnum }
        { initial 0 }
        { type gint }
    } write-struct-slot ; inline


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

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


USING: accessors classes.struct classes.struct.private
cocoa.types math ;

M: NSRange length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 8 }
        { class integer }
        { initial 0 }
        { type NSUInteger }
    } write-struct-slot ; inline


USING: accessors gobject-introspection.repository slots.private
;

M: array-type length<< 5 set-slot ; inline


USING: accessors bit-vectors kernel math math.private
slots.private ;

M: bit-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors math.blas.matrices slots.private ;

M: blas-matrix-rowcol-sequence length<< 6 set-slot ; inline


USING: accessors math.blas.vectors slots.private ;

M: blas-vector-base length<< 3 set-slot ; inline


USING: accessors kernel math math.private slots.private
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors byte-vectors kernel math math.private
slots.private ;

M: byte-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


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

M: cairo_path_data_t-header length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


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

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


USING: accessors bittorrent slots.private ;

M: cancel length<< 4 set-slot ; inline


USING: accessors math.combinatorics slots.private ;

M: combinations length<< 4 set-slot ; inline


USING: accessors bare slots.private ;

M: data length<< 2 set-slot ; inline


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

M: data_in_code_entry length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type uint16_t }
    } write-struct-slot ; inline


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

M: db4-memo-header length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


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

M: dbf-field-header length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 16 }
        { class fixnum }
        { initial 0 }
        { type uint8_t }
    } write-struct-slot ; inline


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

M: duckdb-string-pointer length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type uint32_t }
    } write-struct-slot ; inline


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

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


USING: accessors kernel math math.private slots.private
specialized-vectors.instances.math.vectors.simd.float-4 ;

M: float-4-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors kernel math math.private slots.private
specialized-vectors.instances.game.loop.benchmark.game-loop-benchmark
;

M: game-loop-benchmark-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors circular kernel math slots slots.private ;

M: growing-circular length<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    4 set-slot ; inline


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

M: inlined-duckdb-string length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type uint32_t }
    } write-struct-slot ; inline


USING: accessors images.jpeg.private slots.private ;

M: jpeg-chunk length<< 2 set-slot ; inline


USING: accessors math.combinatorics slots.private ;

M: k-permutations length<< 2 set-slot ; inline


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

M: libusb_iso_packet_descriptor length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


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

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


USING: accessors bare slots.private ;

M: list length<< 3 set-slot ; inline


USING: accessors io.mmap slots.private ;

M: mapped-file length<< 6 set-slot ; inline


USING: accessors kernel math mongodb.msg slots slots.private ;

M: mdb-msg length<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    5 set-slot ; inline


USING: accessors math.combinatorics slots.private ;

M: permutations length<< 2 set-slot ; inline


USING: accessors bittorrent slots.private ;

M: reject-request length<< 4 set-slot ; inline


USING: accessors bittorrent slots.private ;

M: request length<< 4 set-slot ; inline


USING: accessors kernel math math.private sbufs slots.private ;

M: sbuf length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


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

M: scalar_event_data length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 24 }
        { class integer }
        { initial 0 }
        { type size_t }
    } write-struct-slot ; inline


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

M: scalar_node_data length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 8 }
        { class integer }
        { initial 0 }
        { type size_t }
    } write-struct-slot ; inline


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

M: scalar_token_data length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 8 }
        { class integer }
        { initial 0 }
        { type size_t }
    } write-struct-slot ; inline


USING: accessors kernel math math.private slots.private
specialized-vectors.instances.alien.c-types.short ;

M: short-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


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

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


USING: L-system accessors slots.private ;

M: turtle length<< 5 set-slot ; inline


USING: accessors kernel math math.private slots.private
specialized-vectors.instances.alien.c-types.uint ;

M: uint-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors kernel math math.private slots.private
specialized-vectors.instances.alien.c-types.ushort ;

M: ushort-vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors kernel math math.private slots.private vectors
;

M: vector length<<
    [ integer>fixnum-strict 288230376151711743 fixnum-bitand ]
    dip 3 set-slot ; inline


USING: accessors alien.endian classes.struct
classes.struct.private dbf math ;

M: vfp-memo-header length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type ube32 }
    } write-struct-slot ; inline


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

M: yaml_emitter_scalar_data length<<
    T{ struct-slot-spec
        { name "length" }
        { offset 8 }
        { class integer }
        { initial 0 }
        { type size_t }
    } write-struct-slot ; inline