75 lines
2.3 KiB
Plaintext
75 lines
2.3 KiB
Plaintext
|
|
> module Language.SQL.SimpleSQL.Syntax
|
|
> (ScalarExpr(..)
|
|
> ,TypeName(..)
|
|
> ,QueryExpr(..)
|
|
> ,makeSelect
|
|
> ,Duplicates(..)
|
|
> ,Direction(..)
|
|
> ,TableRef(..)
|
|
> ,JoinType(..)
|
|
> ,JoinCondition(..)
|
|
> ) where
|
|
|
|
|
|
> data ScalarExpr = NumLit String
|
|
> | StringLit String
|
|
> | Iden String
|
|
> | Iden2 String String
|
|
> | Star
|
|
> | Star2 String
|
|
> | App String [ScalarExpr]
|
|
> | Op String [ScalarExpr]
|
|
> | Case (Maybe ScalarExpr) -- test value
|
|
> [(ScalarExpr,ScalarExpr)] -- when branches
|
|
> (Maybe ScalarExpr) -- else value
|
|
> | Parens ScalarExpr
|
|
> | Cast ScalarExpr TypeName
|
|
> | CastOp String TypeName
|
|
> deriving (Eq,Show)
|
|
|
|
> data TypeName = TypeName String deriving (Eq,Show)
|
|
|
|
> data QueryExpr
|
|
> = Select
|
|
> {qeDuplicates :: Duplicates
|
|
> ,qeSelectList :: [(Maybe String,ScalarExpr)]
|
|
> ,qeFrom :: [TableRef]
|
|
> ,qeWhere :: Maybe ScalarExpr
|
|
> ,qeGroupBy :: [ScalarExpr]
|
|
> ,qeHaving :: Maybe ScalarExpr
|
|
> ,qeOrderBy :: [(ScalarExpr,Direction)]
|
|
> ,qeLimit :: Maybe ScalarExpr
|
|
> ,qeOffset :: Maybe ScalarExpr
|
|
> } deriving (Eq,Show)
|
|
|
|
> data Duplicates = Distinct | All deriving (Eq,Show)
|
|
> data Direction = Asc | Desc deriving (Eq,Show)
|
|
|
|
> makeSelect :: QueryExpr
|
|
> makeSelect = Select {qeDuplicates = All
|
|
> ,qeSelectList = []
|
|
> ,qeFrom = []
|
|
> ,qeWhere = Nothing
|
|
> ,qeGroupBy = []
|
|
> ,qeHaving = Nothing
|
|
> ,qeOrderBy = []
|
|
> ,qeLimit = Nothing
|
|
> ,qeOffset = Nothing}
|
|
|
|
|
|
> data TableRef = SimpleTableRef String
|
|
> | JoinTableRef JoinType TableRef TableRef (Maybe JoinCondition)
|
|
> | JoinParens TableRef
|
|
> | JoinAlias TableRef String
|
|
> | JoinQueryExpr QueryExpr
|
|
> deriving (Eq,Show)
|
|
|
|
> data JoinType = Inner | JLeft | JRight | Full | Cross
|
|
> deriving (Eq,Show)
|
|
|
|
> data JoinCondition = JoinOn ScalarExpr
|
|
> | JoinUsing [String]
|
|
> | JoinNatural
|
|
> deriving (Eq,Show)
|