create-db-triggers ( sql-specs -- )

Vocabulary

db.sqlite

Inputs

sql-specs

an object

Outputs

None

Definition

USING: accessors db.types kernel namespaces sequences
sequences.deep ;

IN: db.sqlite

: create-db-triggers ( sql-specs -- )
    [ modifiers>> [ +foreign-id+ = ] deep-any? ] filter [
        [ "sql-spec" set ] [ column-name>> "table-id" set ] [ ]
        tri modifiers>> [ [ +foreign-id+ = ] deep-any? ] filter 
        [
            [ second db-table-name "foreign-table-name" set ]
            [ third "foreign-table-id" set ] bi
            create-sqlite-triggers
        ] each
    ] each ;