create-table-sql ( class -- statement )

Vocabulary

db.postgresql

Inputs

class

an object

Outputs

statement

an object

Definition

USING: accessors db.queries db.types kernel nmake sequences ;

IN: db.postgresql

: create-table-sql ( class -- statement )
    [
        dupd "create table " 0% 0% "(" 0%
        [ ", " 0% ] [
            dup column-name>> 0% " " 0%
            dup type>> lookup-create-type 0% modifiers 0%
        ] interleave ", " 0% find-primary-key "primary key(" 0%
        [ "," 0% ] [ column-name>> 0% ] interleave "));" 0%
    ] query-make ;