path<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: path<< ( value object -- )

Methods

USING: accessors io.launcher slots.private ;

M: appender path<< 2 set-slot ; inline


USING: accessors html.templates.chloe slots.private ;

M: cached-template-state path<< 2 set-slot ; inline


USING: accessors html.templates.chloe slots.private ;

M: chloe path<< 2 set-slot ; inline


USING: accessors http slots.private ;

M: cookie path<< 6 set-slot ; inline


USING: accessors cuda.libraries slots.private ;

M: cuda-library path<< 4 set-slot ; inline


USING: accessors io.directories.private kernel slots
slots.private strings ;

M: directory-iterator path<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


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

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


USING: accessors slots.private tinyvg ;

M: draw-line-path path<< 4 set-slot ; inline


USING: accessors html.templates.fhtml slots.private ;

M: fhtml path<< 2 set-slot ; inline


USING: accessors io.monitors slots.private ;

M: file-change path<< 2 set-slot ; inline


USING: accessors slots.private tinyvg ;

M: fill-path path<< 3 set-slot ; inline


USING: accessors ftp.server slots.private ;

M: ftp-get path<< 2 set-slot ; inline


USING: accessors ftp.server slots.private ;

M: ftp-put path<< 2 set-slot ; inline


USING: accessors slots.private ui.images ;

M: image-name path<< 2 set-slot ; inline


USING: accessors slots.private webapps.imagebin ;

M: imagebin path<< 4 set-slot ; inline


USING: accessors alien.libraries kernel slots slots.private
strings ;

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


USING: accessors slots.private tools.files ;

M: listing-tool path<< 2 set-slot ; inline


USING: accessors io.monitors slots.private ;

M: monitor path<< 4 set-slot ; inline


USING: accessors slots.private tinyvg ;

M: outline-fill-path path<< 5 set-slot ; inline


USING: accessors slots.private tftp ;

M: read-file path<< 2 set-slot ; inline


USING: accessors classes.struct classes.struct.private macho ;

M: rpath_command path<<
    T{ struct-slot-spec
        { name "path" }
        { offset 8 }
        { class lc_str }
        { initial S{ lc_str { offset 0 } { ptr f } } }
        { type lc_str }
    } write-struct-slot ; inline


USING: accessors s3.private slots.private ;

M: s3-request path<< 2 set-slot ; inline


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

M: sockaddr-un path<<
    T{ struct-slot-spec
        { name "path" }
        { offset 2 }
        { class object }
        { type { char 104 } }
    } write-struct-slot ; inline


USING: accessors slots.private source-files.errors ;

M: source-file-error path<< 4 set-slot ; inline


USING: accessors kernel slots slots.private source-files strings
;

M: source-file path<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors db.sqlite slots.private ;

M: sqlite-db path<< 2 set-slot ; inline


USING: accessors slots.private urls ;

M: url path<< 7 set-slot ; inline


USING: accessors command-line slots.private ;

M: user-init-error path<< 3 set-slot ; inline


USING: accessors slots.private zim ;

M: zim path<< 4 set-slot ; inline