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

refactor the identifier syntax

Browse source
This commit is contained in:
Jake Wheat 2016-02-12 14:13:47 +02:00
parent 52f035b718
commit aa5c2e89c7
16 changed files with 830 additions and 826 deletions
tools/Language/SQL/SimpleSQL
TableRefs.lhs

72
tools/Language/SQL/SimpleSQL/TableRefs.lhs
View file

@ -11,95 +11,95 @@ expression
> tableRefTests :: TestItem
> tableRefTests = Group "tableRefTests" $ map (uncurry (TestQueryExpr ansi2011))
> [("select a from t"
> ,ms [TRSimple [Name "t"]])
> ,ms [TRSimple [Name Nothing "t"]])
> ,("select a from f(a)"
> ,ms [TRFunction [Name "f"] [Iden [Name "a"]]])
> ,ms [TRFunction [Name Nothing "f"] [Iden [Name Nothing "a"]]])
> ,("select a from t,u"
> ,ms [TRSimple [Name "t"], TRSimple [Name "u"]])
> ,ms [TRSimple [Name Nothing "t"], TRSimple [Name Nothing "u"]])
> ,("select a from s.t"
> ,ms [TRSimple [Name "s", Name "t"]])
> ,ms [TRSimple [Name Nothing "s", Name Nothing "t"]])
these lateral queries make no sense but the syntax is valid
> ,("select a from lateral a"
> ,ms [TRLateral $ TRSimple [Name "a"]])
> ,ms [TRLateral $ TRSimple [Name Nothing "a"]])
> ,("select a from lateral a,b"
> ,ms [TRLateral $ TRSimple [Name "a"], TRSimple [Name "b"]])
> ,ms [TRLateral $ TRSimple [Name Nothing "a"], TRSimple [Name Nothing "b"]])
> ,("select a from a, lateral b"
> ,ms [TRSimple [Name "a"], TRLateral $ TRSimple [Name "b"]])
> ,ms [TRSimple [Name Nothing "a"], TRLateral $ TRSimple [Name Nothing "b"]])
> ,("select a from a natural join lateral b"
> ,ms [TRJoin (TRSimple [Name "a"]) True JInner
> (TRLateral $ TRSimple [Name "b"])
> ,ms [TRJoin (TRSimple [Name Nothing "a"]) True JInner
> (TRLateral $ TRSimple [Name Nothing "b"])
> Nothing])
> ,("select a from lateral a natural join lateral b"
> ,ms [TRJoin (TRLateral $ TRSimple [Name "a"]) True JInner
> (TRLateral $ TRSimple [Name "b"])
> ,ms [TRJoin (TRLateral $ TRSimple [Name Nothing "a"]) True JInner
> (TRLateral $ TRSimple [Name Nothing "b"])
> Nothing])
> ,("select a from t inner join u on expr"
> ,ms [TRJoin (TRSimple [Name "t"]) False JInner (TRSimple [Name "u"])
> (Just $ JoinOn $ Iden [Name "expr"])])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False JInner (TRSimple [Name Nothing "u"])
> (Just $ JoinOn $ Iden [Name Nothing "expr"])])
> ,("select a from t join u on expr"
> ,ms [TRJoin (TRSimple [Name "t"]) False JInner (TRSimple [Name "u"])
> (Just $ JoinOn $ Iden [Name "expr"])])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False JInner (TRSimple [Name Nothing "u"])
> (Just $ JoinOn $ Iden [Name Nothing "expr"])])
> ,("select a from t left join u on expr"
> ,ms [TRJoin (TRSimple [Name "t"]) False JLeft (TRSimple [Name "u"])
> (Just $ JoinOn $ Iden [Name "expr"])])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False JLeft (TRSimple [Name Nothing "u"])
> (Just $ JoinOn $ Iden [Name Nothing "expr"])])
> ,("select a from t right join u on expr"
> ,ms [TRJoin (TRSimple [Name "t"]) False JRight (TRSimple [Name "u"])
> (Just $ JoinOn $ Iden [Name "expr"])])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False JRight (TRSimple [Name Nothing "u"])
> (Just $ JoinOn $ Iden [Name Nothing "expr"])])
> ,("select a from t full join u on expr"
> ,ms [TRJoin (TRSimple [Name "t"]) False JFull (TRSimple [Name "u"])
> (Just $ JoinOn $ Iden [Name "expr"])])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False JFull (TRSimple [Name Nothing "u"])
> (Just $ JoinOn $ Iden [Name Nothing "expr"])])
> ,("select a from t cross join u"
> ,ms [TRJoin (TRSimple [Name "t"]) False
> JCross (TRSimple [Name "u"]) Nothing])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False
> JCross (TRSimple [Name Nothing "u"]) Nothing])
> ,("select a from t natural inner join u"
> ,ms [TRJoin (TRSimple [Name "t"]) True JInner (TRSimple [Name "u"])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) True JInner (TRSimple [Name Nothing "u"])
> Nothing])
> ,("select a from t inner join u using(a,b)"
> ,ms [TRJoin (TRSimple [Name "t"]) False JInner (TRSimple [Name "u"])
> (Just $ JoinUsing [Name "a", Name "b"])])
> ,ms [TRJoin (TRSimple [Name Nothing "t"]) False JInner (TRSimple [Name Nothing "u"])
> (Just $ JoinUsing [Name Nothing "a", Name Nothing "b"])])
> ,("select a from (select a from t)"
> ,ms [TRQueryExpr $ ms [TRSimple [Name "t"]]])
> ,ms [TRQueryExpr $ ms [TRSimple [Name Nothing "t"]]])
> ,("select a from t as u"
> ,ms [TRAlias (TRSimple [Name "t"]) (Alias (Name "u") Nothing)])
> ,ms [TRAlias (TRSimple [Name Nothing "t"]) (Alias (Name Nothing "u") Nothing)])
> ,("select a from t u"
> ,ms [TRAlias (TRSimple [Name "t"]) (Alias (Name "u") Nothing)])
> ,ms [TRAlias (TRSimple [Name Nothing "t"]) (Alias (Name Nothing "u") Nothing)])
> ,("select a from t u(b)"
> ,ms [TRAlias (TRSimple [Name "t"]) (Alias (Name "u") $ Just [Name "b"])])
> ,ms [TRAlias (TRSimple [Name Nothing "t"]) (Alias (Name Nothing "u") $ Just [Name Nothing "b"])])
> ,("select a from (t cross join u) as u"
> ,ms [TRAlias (TRParens $
> TRJoin (TRSimple [Name "t"]) False JCross (TRSimple [Name "u"]) Nothing)
> (Alias (Name "u") Nothing)])
> TRJoin (TRSimple [Name Nothing "t"]) False JCross (TRSimple [Name Nothing "u"]) Nothing)
> (Alias (Name Nothing "u") Nothing)])
> -- todo: not sure if the associativity is correct
> ,("select a from t cross join u cross join v",
> ms [TRJoin
> (TRJoin (TRSimple [Name "t"]) False
> JCross (TRSimple [Name "u"]) Nothing)
> False JCross (TRSimple [Name "v"]) Nothing])
> (TRJoin (TRSimple [Name Nothing "t"]) False
> JCross (TRSimple [Name Nothing "u"]) Nothing)
> False JCross (TRSimple [Name Nothing "v"]) Nothing])
> ]
> where
> ms f = makeSelect {qeSelectList = [(Iden [Name "a"],Nothing)]
> ms f = makeSelect {qeSelectList = [(Iden [Name Nothing "a"],Nothing)]
> ,qeFrom = f}