add drop table support

Language/SQL/SimpleSQL/Parser.lhs

@@ -1444,7 +1444,8 @@ TODO: change style
 >     [keyword_ "create" *> choice [createSchema
 >                                  ,createTable]
 >     ,keyword_ "alter" *> choice [alterTable]
->     ,keyword_ "drop" *> choice [dropSchema]
+>     ,keyword_ "drop" *> choice [dropSchema
+>                                ,dropTable]
 >     ,delete
 >     ,truncateSt
 >     ,insert
@@ -1611,8 +1612,12 @@ slightly hacky parser for signed integers
 
 > dropSchema :: Parser Statement
 > dropSchema = keyword_ "schema" >>
->     DropSchema <$> names
+>     DropSchema <$> names <*> dropBehaviour
->     <*> dropBehaviour
+
+> dropTable :: Parser Statement
+> dropTable = keyword_ "table" >>
+>     DropTable <$> names <*> dropBehaviour
+
 
 > delete :: Parser Statement
 > delete = keywords_ ["delete","from"] >>

Language/SQL/SimpleSQL/Pretty.lhs

@@ -502,6 +502,9 @@ which have been changed to try to improve the layout of the output.
 >     sc (SetMultiple ts vs) = parens (commaSep $ map names ts) <+> text "="
 >                              <+> parens (commaSep $ map (valueExpr d) vs)
 
+> statement _ (DropTable n b) =
+>     text "drop" <+> text "table" <+> names n <+> dropBehav b
+
 == access control
 
 == transactions

Language/SQL/SimpleSQL/Syntax.lhs

@@ -401,16 +401,16 @@ I'm not sure if this is valid syntax or not.
 
 > data Statement =
 >     -- ddl
->     CreateSchema [Name] -- XXX
+>     CreateSchema [Name]
->   | DropSchema [Name] DropBehaviour -- XXX
+>   | DropSchema [Name] DropBehaviour
 >   | CreateTable [Name] [TableElement]
 >   | AlterTable [Name] AlterTableAction
->   {-  | DropTable  -- XXX
+>   | DropTable [Name] DropBehaviour
->   | CreateView  -- XXX
+>   {-  | CreateView
->   | DropView -- XXX
+>   | DropView
->   | CreateDomain  -- XXX
+>   | CreateDomain
 >   | AlterDomain
->   | DropDomain -- XXX
+>   | DropDomain
 >   | CreateCharacterSet
 >   | DropCharacterSet
 >   | CreateCollation
@@ -430,9 +430,9 @@ I'm not sure if this is valid syntax or not.
 >   | CreateOrdering
 >   | DropOrdering
 >     -- transforms
->   | CreateSequence -- XXX
+>   | CreateSequence
->   | AlterSequence -- XXX
+>   | AlterSequence
->   | DropSequence -- XXX -}
+>   | DropSequence -}
 >     -- dml
 >   | SelectStatement QueryExpr
 >   {-    | DeclareCursor

tools/Language/SQL/SimpleSQL/SQL2011Schema.lhs

@@ -1032,9 +1032,14 @@ defintely skip
 <drop table statement> ::=
   DROP TABLE <table name> <drop behavior>
 
-drop table t
+>     ,(TestStatement SQL2011
-drop table t cascade
+>       "drop table t"
-drop table t restrict
+>      $ DropTable [Name "t"] DefaultDropBehaviour)
+
+>     ,(TestStatement SQL2011
+>       "drop table t restrict"
+>      $ DropTable [Name "t"] Restrict)
+
 
 11.32 <view definition>