write-gml ( obj -- )

Vocabulary

gml.printer

Inputs

obj

an object

Outputs

None

Definition

IN: gml.printer

GENERIC: write-gml ( obj -- )

Methods

USING: arrays gml.printer io sequences ;

M: array write-gml
    "[" write [ bl ] [ write-gml ] interleave "]" write ;


USING: accessors euler.b-rep gml.printer io io.styles kernel ;

M: b-edge write-gml
    dup vertex>> position>> vertex-style [
        "«Edge " write
        [ vertex>> position>> write-gml "-" write ] [
            opposite-edge>> vertex>> position>> dup vertex-style
            [ write-gml ] with-style
        ] bi "»" write
    ] with-style ;


USING: gml.printer math.vectors.simd ;

M: double-2 write-gml 2 write-vector ;


USING: gml.printer io.styles kernel math.vectors.simd.cords ;

M: double-4 write-gml
    dup vertex-style [ 3 write-vector ] with-style ;


USING: accessors gml.printer gml.runtime io ;

M: exec-register write-gml ":" write name>> write ;


USING: gml.printer io math math.parser ;

M: float write-gml number>string write ;


USING: accessors gml.printer gml.runtime io ;

M: gml-exec-name write-gml name>> string>> write ;


USING: accessors gml.printer gml.runtime io ;

M: gml-name write-gml "/" write string>> write ;


USING: assocs gml.printer hashtables io math.parser ;

M: hashtable write-gml
    "«Dictionary with " write assoc-size number>string write
    " entries»" write ;


USING: gml.printer io math math.parser ;

M: integer write-gml number>string write ;


USING: accessors gml.printer io kernel ;

M: object write-gml "«Object: " write name>> write "»" write ;


USING: accessors gml.printer gml.runtime io sequences ;

M: pathname write-gml
    names>> [ "." write string>> write ] each ;


USING: accessors gml.printer gml.types io sequences ;

M: proc write-gml
    "{" write array>> [ bl ] [ write-gml ] interleave "}" write
    ;


USING: accessors gml.printer gml.runtime io ;

M: read-register write-gml ";" write name>> write ;


USING: gml.printer io strings ;

M: string write-gml "\"" write write "\"" write ;


USING: gml.printer gml.runtime io kernel ;

M: use-registers write-gml drop "usereg" write ;


USING: accessors gml.printer gml.runtime io ;

M: write-register write-gml "!" write name>> write ;