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

don't unescape quotes in string literals and identifiers

Browse source
This commit is contained in:
Jake Wheat 2016-02-13 15:54:40 +02:00
parent a892d6d2ee
commit a59f19aae9
5 changed files with 89 additions and 58 deletions
tools/Language/SQL/SimpleSQL
SQL2011Queries.lhs

6
tools/Language/SQL/SimpleSQL/SQL2011Queries.lhs
View file

@ -514,7 +514,7 @@ Specify a non-null value.
> ,("'something' -- a comment\n ' some more' /*another comment*/ 'and more'"
> ,StringLit "'" "'" "something some moreand more")
> ,("'a quote: '', stuff'"
> ,StringLit "'" "'" "a quote: ', stuff")
> ,StringLit "'" "'" "a quote: '', stuff")
> ,("''"
> ,StringLit "'" "'" "")
@ -754,9 +754,9 @@ Specify names.
> ,("a.b",Iden [Name Nothing "a", Name Nothing "b"])
> ,("a.b.c",Iden [Name Nothing "a", Name Nothing "b", Name Nothing "c"])
> ,("\"quoted iden\"", Iden [Name (Just ("\"","\"")) "quoted iden"])
> ,("\"quoted \"\" iden\"", Iden [Name (Just ("\"","\"")) "quoted \" iden"])
> ,("\"quoted \"\" iden\"", Iden [Name (Just ("\"","\"")) "quoted \"\" iden"])
> ,("U&\"quoted iden\"", Iden [Name (Just ("U&\"","\"")) "quoted iden"])
> ,("U&\"quoted \"\" iden\"", Iden [Name (Just ("U&\"","\"")) "quoted \" iden"])
> ,("U&\"quoted \"\" iden\"", Iden [Name (Just ("U&\"","\"")) "quoted \"\" iden"])
> ]
TODO: more identifiers, e.g. unicode escapes?, mixed quoted/unquoted