create-sqlite-triggers ( -- )

Vocabulary

db.sqlite

Inputs

None

Outputs

None

Definition

USING: kernel ;

IN: db.sqlite

: create-sqlite-triggers ( -- )
    can-be-null? [
        insert-trigger sqlite-trigger,
        update-trigger sqlite-trigger,
    ] [
        insert-trigger-not-null sqlite-trigger,
        update-trigger-not-null sqlite-trigger,
    ] if delete-cascade?
    [ delete-trigger-cascade sqlite-trigger, ]
    [ delete-trigger-restrict sqlite-trigger, ] if ;