save-out-form ( string def -- )

Vocabulary

libclang

Inputs

string	an object
def	an object

Outputs

None

Definition

USING: accessors assocs combinators kernel sequences sets ;

IN: libclang

: save-out-form ( string def -- )
    over empty?
    [ 2drop ] [
        over out-form-written?
        [ 2drop ] [
            clang-state> {
                [
                    nip
                    [ next-out-forms-counter ]
                    [ out-forms>> set-at ] bi
                ]
                [
                    nipd [ name>> ] dip
                    out-form-names-written>> adjoin
                ]
                [ nip out-forms-written>> adjoin ]
                [ [ name>> ] dip out-forms-by-name>> push-at ]
            } 3cleave
        ] if
    ] if ;