query-make ( ..a class quot: ( ..a columns table -- ..b ) -- ..b statements )

Vocabulary

db.queries

Inputs

class	an object
quot	a quotation with stack effect ( ..a columns table -- ..b )

Outputs

statements

an object

Definition

USING: arrays db db.tuples.private kernel namespaces nmake
sequences ;

IN: db.queries

: query-make
    ( ..a class quot: ( ..a columns table -- ..b ) -- ..b statements )
    [ sql-props ] dip [ [ dup "table-name" set ] ] dip compose
    [ [ 0 sql-counter ] ] dip [ with-variable ] curry compose
    { "" { } { } { } } nmake
    [ <simple-statement> maybe-make-retryable ] dip
    [ [ 1array ] dip append ] unless-empty ; inline