c-struct

Vocabulary

libclang

Definition

USING: math strings ;

IN: libclang

TUPLE: c-struct
    { name string initial: "" } { order integer initial: 0 } ;

Methods

USING: accessors assocs combinators combinators.smart kernel
libclang sequences ;

M: c-struct def>out-form
    dup empty-struct?
    [ name>> "C-TYPE: " prepend ] [
        [
            {
                [ drop "STRUCT: " ]
                [ name>> "\n" ]
                [
                    order>> dup clang-state> child-forms>> ?at
                    [ drop ~array~ ] unless
                    [ print-defers ] [
                        nip ~quotation~ map "\n" join
                        " ;\n" append
                    ] 2bi
                ]
            } cleave
        ] "" append-outputs-as
    ] if ;