define-vector ( T -- )

Vocabulary

specialized-vectors.private

Inputs

T

an object

Outputs

None

Definition

USING: accessors alien alien.c-types classes.parser
functors.backend functors.private generic generic.parser
growable io io.streams.string kernel namespaces parser present
prettyprint.custom sequences vectors.functor vocabs.parser words
;

IN: specialized-vectors.private

:: define-vector ( T -- )
    [ T present write "-vector" write ] with-string-writer
    create-class-in :> V
    [ T present write "-array" write ] with-string-writer
    parse-word :> A
    [ "<" write A present write ">" write ] with-string-writer
    parse-word :> <A>
    [ "<direct-" write A present write ">" write ]
    with-string-writer parse-word :> <direct-A>
    [ ">" write V present write ] with-string-writer
    current-vocab create-word :> >V
    [ V present write "{" write ] with-string-writer
    create-word-in :> V{ V A <A> define-vector
    V \ contract create-method-in dup \ method set
    T{ fake-quotation { seq { 2drop } } } fake-quotations> first
    define* last-word make-inline
    V \ element-size create-method-in dup \ method set
    T{ fake-quotation { seq { drop \ T heap-size } } }
    fake-quotations> first define* last-word make-inline
    V \ pprint-delims create-method-in dup \ method set
    T{ fake-quotation { seq { drop \ V{ \ } } } }
    fake-quotations> first define*
    V \ >pprint-sequence create-method-in dup \ method set
    T{ fake-quotation { seq { } } } fake-quotations> first
    define* V \ pprint* create-method-in dup \ method set
    T{ fake-quotation { seq { pprint-object } } }
    fake-quotations> first define* V \ >c-ptr create-method-in
    dup \ method set
    T{ fake-quotation { seq { underlying>> underlying>> } } }
    fake-quotations> first define* last-word make-inline
    V \ byte-length create-method-in dup ~55 more~ ;