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

add support for ansi standard offset and fetch syntax

Browse source
This commit is contained in:
Jake Wheat 2013-12-17 16:00:17 +02:00
parent 8093498f2d
commit b2728ec9bf
5 changed files with 47 additions and 39 deletions
tools/Language/SQL/SimpleSQL
QueryExprComponents.lhs

20
tools/Language/SQL/SimpleSQL/QueryExprComponents.lhs
View file

@ -126,18 +126,22 @@ These are a few misc tests which don't fit anywhere else.
> limit :: TestItem
> limit = Group "limit" $ map (uncurry TestQueryExpr)
> [("select a from t limit 10"
> ,ms (Just $ NumLit "10") Nothing)
> ,("select a from t limit 10 offset 10"
> ,ms (Just $ NumLit "10") (Just $ NumLit "10"))
> [-- ansi standard
> ("select a from t offset 5 rows fetch next 10 rows only"
> ,ms (Just $ NumLit "5") (Just $ NumLit "10"))
> ,("select a from t offset 5 rows;"
> ,ms (Just $ NumLit "5") Nothing)
> ,("select a from t fetch next 10 row only;"
> ,ms Nothing (Just $ NumLit "10"))
> ,("select a from t offset 5 row fetch first 10 row only"
> ,ms (Just $ NumLit "5") (Just $ NumLit "10"))
> ]
> where
> ms l o = makeSelect
> ms o l = makeSelect
> {qeSelectList = [(Nothing,Iden "a")]
> ,qeFrom = [TRSimple "t"]
> ,qeLimit = l
> ,qeOffset = o}
> ,qeOffset = o
> ,qeFetch = l}
> combos :: TestItem
> combos = Group "combos" $ map (uncurry TestQueryExpr)