drop-sql-statement ( class -- object )
High-level tuple/database integration » Tuple database protocol

Prev:	create-sql-statement ( class -- object )
Next:	<insert-db-assigned-statement> ( class -- object )

Vocabulary
db.tuples

Inputs

class

a class

Outputs

object

an object

Word description
Generates the SQL code for dropping a table for a given class.

Definition

USING: db ;

IN: db.tuples

HOOK: drop-sql-statement db-connection ( class -- object )

Methods

USING: db.postgresql db.postgresql.private db.tuples db.types
kernel make ;

M: postgresql-db-connection drop-sql-statement
    [
        [ drop-table-sql , ] keep dup db-assigned?
        [ drop-function-sql , ] [ drop ] if
    ] { } make ;


USING: db.queries db.sqlite.private db.tuples kernel nmake ;

M: sqlite-db-connection drop-sql-statement
    [ nip "drop table " 0% 0% ";" 0% ] query-make ;