1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
semantic/src/Category.hs
2016-07-17 11:18:31 -04:00

123 lines
2.8 KiB
Haskell

module Category where
import Prologue
import Data.Hashable
import Test.QuickCheck (oneof, Arbitrary, arbitrary, shrink)
import Test.QuickCheck.Arbitrary
import Data.Text (unpack)
import Data.Text.Arbitrary()
-- | A standardized category of AST node. Used to determine the semantics for
-- | semantic diffing and define comparability of nodes.
data Category
-- | The top-level branch node.
= Program
-- | A node indicating syntax errors.
| Error
-- | A boolean expression.
| Boolean
-- | An operator with 2 operands.
| BinaryOperator
-- | A literal key-value data structure.
| DictionaryLiteral
-- | A pair, e.g. of a key & value
| Pair
-- | A call to a function.
| FunctionCall
-- | A function declaration.
| Function
-- | An identifier.
| Identifier
-- | A function's parameters.
| Params
-- | A function's expression statements.
| ExpressionStatements
-- | A method call on an object.
| MethodCall
-- | A method's arguments.
| Args
-- | A string literal.
| StringLiteral
-- | An integer literal.
| IntegerLiteral
-- | A regex literal.
| Regex
-- | A symbol literal.
| SymbolLiteral
-- | A template string literal.
| TemplateString
-- | An array literal.
| ArrayLiteral
-- | An assignment expression.
| Assignment
-- | A math assignment expression.
| MathAssignment
-- | A member access expression.
| MemberAccess
-- | A subscript access expression.
| SubscriptAccess
-- | A variable assignment within a variable declaration.
| VarAssignment
-- | A variable declaration.
| VarDecl
-- | A switch expression.
| Switch
-- | A ternary expression.
| Ternary
-- | A case expression.
| Case
-- | An expression with an operator.
| Operator
-- | An object/dictionary/hash literal.
| Object
-- | A non-standard category, which can be used for comparability.
| Other Text
deriving (Eq, Generic, Ord, Show)
-- Instances
instance Hashable Category
instance CoArbitrary Text where
coarbitrary = coarbitrary . unpack
instance CoArbitrary Category where
coarbitrary = genericCoarbitrary
instance Arbitrary Category where
arbitrary = oneof [
pure Program
, pure Error
, pure Boolean
, pure BinaryOperator
, pure DictionaryLiteral
, pure Pair
, pure FunctionCall
, pure Function
, pure Identifier
, pure Params
, pure ExpressionStatements
, pure MethodCall
, pure Args
, pure StringLiteral
, pure IntegerLiteral
, pure Regex
, pure SymbolLiteral
, pure TemplateString
, pure ArrayLiteral
, pure Assignment
, pure MathAssignment
, pure MemberAccess
, pure SubscriptAccess
, pure VarAssignment
, pure VarDecl
, pure Switch
, pure Ternary
, pure Case
, pure Operator
, pure Object
, Other <$> arbitrary
]
shrink (Other s) = Other <$> shrink s
shrink _ = []