sqlite-create-table ( sql-specs class-name -- )

Vocabulary

db.sqlite

Inputs

sql-specs	an object
class-name	an object

Outputs

None

Definition

USING: accessors db.types kernel namespaces nmake sequences ;

IN: db.sqlite

: sqlite-create-table ( sql-specs class-name -- )
    [
        "create table " 0% 0% "(" 0%
        [ ", " 0% ] [
            dup "sql-spec" set dup column-name>>
            [ "table-id" set ] [ 0% ] bi " " 0%
            dup type>> lookup-create-type 0% modifiers 0%
        ] interleave
    ] [
        drop find-primary-key [
            ", " 0% "primary key(" 0%
            [ "," 0% ] [ column-name>> 0% ] interleave ")" 0%
        ] unless-empty ");" 0%
    ] 2bi ;