c-type-name>factor ( string -- string' )

Vocabulary

libclang

Inputs

string

an object

Outputs

string'

an object

Definition

USING: accessors assocs combinators kernel sequences splitting ;

IN: libclang

: c-type-name>factor ( string -- string' )
    "const" ?head drop [ 42 = ] cut-tail
    [ [ trim-blanks ] dip append ] when* {
        {
            [ dup "struct " head? ]
            [
                " " split1-last nip
                clang-state> unnamed-table>> ?at or
            ]
        }
        {
            [ dup "union " head? ]
            [
                " " split1-last nip
                clang-state> unnamed-table>> ?at or
            ]
        }
        { [ dup "_Bool" = ] [ drop "bool" ] }
        [ normalize-c-type-prefix ]
    } cond ;