change joins so natural is represented by separate field to on/using

some fixes and tweaks to the reserved keyword handling, especially in
  the typename parser

Language/SQL/SimpleSQL/Parser.lhs

@@ -551,13 +551,11 @@ TODO: this need heavy refactoring
 >     -- precision, scale, lob scale and units, timezone, character
 >     -- set and collations
 >     otherTypeName = do
->         tn <- (try multiWordParsers <|> names <|> baseTypeName)
+>         tn <- (try multiWordParsers <|> names)
 >         choice [try $ timezone tn
 >                ,try (precscale tn) >>= optionSuffix charSuffix
 >                ,try $ lob tn
 >                ,optionSuffix charSuffix $ TypeName tn]
->     -- fix this hack, needs left factoring better or something
->     baseTypeName = (:[]) . Name <$> identifier
 >     timezone tn = do
 >         TimeTypeName tn
 >         <$> optionMaybe prec
@@ -625,6 +623,30 @@ TODO: this need heavy refactoring
 >         ,"nchar varying"
 >         ,"bit varying"
 >         ,"binary large object"
+>         -- put all the typenames which are also reserved keywords here
+>         ,"array"
+>         ,"bigint"
+>         ,"binary"
+>         ,"blob"
+>         ,"boolean"
+>         ,"char"
+>         ,"character"
+>         ,"clob"
+>         ,"date"
+>         ,"dec"
+>         ,"decimal"
+>         ,"double"
+>         ,"float"
+>         ,"int"
+>         ,"integer"
+>         ,"nchar"
+>         ,"nclob"
+>         ,"numeric"
+>         ,"real"
+>         ,"smallint"
+>         ,"time"
+>         ,"timestamp"
+>         ,"varchar"
 >         ]
 
 > intervalQualifier :: Parser (IntervalTypeField,Maybe IntervalTypeField)
@@ -644,7 +666,7 @@ use a data type for the datetime field?
 
 > datetimeField :: Parser String
 > datetimeField = choice (map keyword ["year","month","day"
->                                 ,"hour","minute","second"])
+>                                     ,"hour","minute","second"])
 >                 <?> "datetime field"
 
 == value expression parens, row ctor and scalar subquery
@@ -880,11 +902,11 @@ tref
 >                 ,return $ TRSimple n]]
 >         >>= optionSuffix aliasSuffix
 >     aliasSuffix j = option j (TRAlias j <$> alias)
->     joinTrefSuffix t = (do
->          nat <- option False (True <$ keyword_ "natural")
->          TRJoin t <$> joinType
+>     joinTrefSuffix t =
+>         (TRJoin t <$> option False (True <$ keyword_ "natural")
+>                   <*> joinType
 >                   <*> nonJoinTref
->                   <*> optionMaybe (joinCondition nat))
+>                   <*> optionMaybe joinCondition)
 >         >>= optionSuffix joinTrefSuffix
 
 TODO: factor the join stuff to produce better error messages
@@ -904,10 +926,9 @@ TODO: factor the join stuff to produce better error messages
 >            <* keyword_ "join"
 >     ,JInner <$ keyword_ "join"]
 
-> joinCondition :: Bool -> Parser JoinCondition
-> joinCondition nat =
->     choice [guard nat >> return JoinNatural
->            ,keyword_ "on" >> JoinOn <$> valueExpr
+> joinCondition :: Parser JoinCondition
+> joinCondition =
+>     choice [keyword_ "on" >> JoinOn <$> valueExpr
 >            ,keyword_ "using" >> JoinUsing <$> parens (commaSep1 name)
 >            ]
 
@@ -1296,8 +1317,8 @@ The standard has a weird mix of reserved keywords and unreserved
 keywords (I'm not sure what exactly being an unreserved keyword
 means).
 
-> nonReservedWord :: [String]
-> nonReservedWord =
+> _nonReservedWord :: [String]
+> _nonReservedWord =
 >     ["a"
 >     ,"abs"
 >     ,"absolute"
@@ -1605,11 +1626,11 @@ means).
 >     ,"current_user"
 >     ,"cursor"
 >     ,"cycle"
->     --,"date"
+>     ,"date"
 >     --,"day"
 >     ,"deallocate"
 >     ,"dec"
->     --,"decimal"
+>     ,"decimal"
 >     ,"declare"
 >     --,"default"
 >     ,"delete"

Language/SQL/SimpleSQL/Pretty.lhs

@@ -366,15 +366,13 @@ which have been changed to try to improve the layout of the output.
 >     tr (TRAlias t a) = sep [tr t, alias a]
 >     tr (TRParens t) = parens $ tr t
 >     tr (TRQueryExpr q) = parens $ queryExpr q
->     tr (TRJoin t0 jt t1 jc) =
+>     tr (TRJoin t0 b jt t1 jc) =
 >        sep [tr t0
->            ,joinText jt jc <+> tr t1
+>            ,if b then text "natural" else empty
+>            ,joinText jt <+> tr t1
 >            ,joinCond jc]
->     joinText jt jc =
->       sep [case jc of
->               Just JoinNatural -> text "natural"
->               _ -> empty
->           ,case jt of
+>     joinText jt =
+>       sep [case jt of
 >               JInner -> text "inner"
 >               JLeft -> text "left"
 >               JRight -> text "right"
@@ -385,7 +383,6 @@ which have been changed to try to improve the layout of the output.
 >     joinCond (Just (JoinUsing es)) =
 >         text "using" <+> parens (commaSep $ map name es)
 >     joinCond Nothing = empty
->     joinCond (Just JoinNatural) = empty
 
 > maybeValueExpr :: String -> Maybe ValueExpr -> Doc
 > maybeValueExpr k = me

Language/SQL/SimpleSQL/Syntax.lhs

@@ -340,8 +340,8 @@ I'm not sure if this is valid syntax or not.
 > -- | Represents a entry in the csv of tables in the from clause.
 > data TableRef = -- | from t / from s.t
 >                 TRSimple [Name]
->                 -- | from a join b
->               | TRJoin TableRef JoinType TableRef (Maybe JoinCondition)
+>                 -- | from a join b, the bool is true if natural was used
+>               | TRJoin TableRef Bool JoinType TableRef (Maybe JoinCondition)
 >                 -- | from (a)
 >               | TRParens TableRef
 >                 -- | from a as b(c,d)
@@ -367,5 +367,4 @@ I'm not sure if this is valid syntax or not.
 > -- | The join condition.
 > data JoinCondition = JoinOn ValueExpr -- ^ on expr
 >                    | JoinUsing [Name] -- ^ using (column list)
->                    | JoinNatural -- ^ natural join was used
 >                      deriving (Eq,Show,Read,Data,Typeable)