starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

add support for full table aliases

Browse source
This commit is contained in:
Jake Wheat 2013-12-14 00:37:34 +02:00
parent d005dc1706
commit 15c83555ff
4 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Language/SQL/SimpleSQL/Parser.lhs
View file

@ -507,7 +507,8 @@ attempt to fix the precedence and associativity. Doesn't work
> ,return Nothing
> ]
> alias j = let a1 = optional (try (keyword_ "as")) *> identifierString
> in option j (JoinAlias j <$> try a1)
> a2 = optionMaybe (try $ parens (commaSep1 identifierString))
> in option j (JoinAlias j <$> try a1 <*> try a2)
> optionalScalarExpr :: String -> P (Maybe ScalarExpr)
> optionalScalarExpr k = optionMaybe (try (keyword_ k) *> scalarExpr)

4
Language/SQL/SimpleSQL/Pretty.lhs
View file

@ -157,7 +157,9 @@ back into SQL source text. It attempts to format the output nicely.
> ,nest 4 $ commaSep $ map tr ts]
> where
> tr (SimpleTableRef t) = text t
> tr (JoinAlias t a) = tr t <+> text "as" <+> text a
> tr (JoinAlias t a cs) =
> tr t <+> text "as" <+> text a
> <+> maybe empty (\cs' -> parens $ commaSep $ map text cs') cs
> tr (JoinParens t) = parens $ tr t
> tr (JoinQueryExpr q) = parens $ queryExpr q
> tr (JoinTableRef jt t0 t1 jc) =

2
Language/SQL/SimpleSQL/Syntax.lhs
View file

@ -99,7 +99,7 @@
> data TableRef = SimpleTableRef String
> | JoinTableRef JoinType TableRef TableRef (Maybe JoinCondition)
> | JoinParens TableRef
> | JoinAlias TableRef String
> | JoinAlias TableRef String (Maybe [String])
> | JoinQueryExpr QueryExpr
> deriving (Eq,Show)

8
Tests.lhs
View file

@ -289,12 +289,14 @@
> ,("select a from (select a from t)"
> ,ms [JoinQueryExpr $ ms [SimpleTableRef "t"]])
> ,("select a from t as u"
> ,ms [JoinAlias (SimpleTableRef "t") "u"])
> ,ms [JoinAlias (SimpleTableRef "t") "u" Nothing])
> ,("select a from t u"
> ,ms [JoinAlias (SimpleTableRef "t") "u"])
> ,ms [JoinAlias (SimpleTableRef "t") "u" Nothing])
> ,("select a from t u(b)"
> ,ms [JoinAlias (SimpleTableRef "t") "u" $ Just ["b"]])
> ,("select a from (t cross join u) as u"
> ,ms [JoinAlias (JoinParens $ JoinTableRef Cross (SimpleTableRef "t")
> (SimpleTableRef "u") Nothing) "u"])
> (SimpleTableRef "u") Nothing) "u" Nothing])
> ]
> where
> ms f = makeSelect {qeSelectList = [(Nothing,Iden "a")]