c-union

Vocabulary

libclang

Definition

USING: math strings ;

IN: libclang

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

Methods

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

M: c-union def>out-form
    [
        {
            [ drop "UNION-STRUCT: " ]
            [ name>> "\n" ]
            [
                order>> dup clang-state> child-forms>> ?at
                [ drop { } ] unless
                [ print-defers ] [
                    nip [ def>out-form ] map "\n" join
                    " ;\n" append
                ] 2bi
            ]
        } cleave
    ] "" append-outputs-as ;