normalize-spec ( spec -- )

Vocabulary

db.types

Inputs

spec	an SQL spec

Outputs

None

Word description

Normalizes an SQL spec.

Definition

USING: accessors arrays kernel sequences.deep ;

IN: db.types

: normalize-spec ( spec -- )
    dup [ type>> ] [ modifiers>> ] bi 2array
    [ \ +primary-key+ eq? ] deep-any?
    [ primary-key-policy-required ] when
    dup type>> dup +primary-key+?
    [ >>primary-key drop ] [
        drop dup modifiers>> [ +primary-key+? ] deep-find
        [ >>primary-key drop ] [ drop ] if*
    ] if ;