.clj

(def ddl-parser
  (insta/parser
   "ddl = (createtable* (!createtable <any>)*)+
    <any> = #'\\S+'
    createtable = 'CREATE TABLE' table cols
    cols = <'('> columns <','> constraint <');'>
    table = identifier
    identifier = #'[a-zA-Z_0-9\\.]+'
    columns = column (',' column)*
    column = name type nullable?
    name = !'CONSTRAINT' identifier
    type = identifier | identifier '(' #'\\d+' ')'
    nullable = identifier+
    constraint = 'CONSTRAINT' (identifier | '(' identifier ')')+"
   :auto-whitespace :standard))