mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
139 lines
3.1 KiB
Haskell
139 lines
3.1 KiB
Haskell
module Category where
|
|
|
|
import Prologue
|
|
import Data.Hashable
|
|
import Test.QuickCheck hiding (Args)
|
|
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 for expression.
|
|
| For
|
|
-- | A while expression.
|
|
| While
|
|
-- | A do/while expression.
|
|
| DoWhile
|
|
-- | A ternary expression.
|
|
| Ternary
|
|
-- | A case expression.
|
|
| Case
|
|
-- | An expression with an operator.
|
|
| Operator
|
|
-- | An object/dictionary/hash literal.
|
|
| Object
|
|
-- | A return statement.
|
|
| Return
|
|
-- | A try statement.
|
|
| Try
|
|
-- | A catch statement.
|
|
| Catch
|
|
-- | A finally statement.
|
|
| Finally
|
|
-- | 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 For
|
|
, pure DoWhile
|
|
, pure While
|
|
, pure Switch
|
|
, pure Ternary
|
|
, pure Case
|
|
, pure Operator
|
|
, pure Object
|
|
, Other <$> arbitrary
|
|
]
|
|
|
|
shrink (Other s) = Other <$> shrink s
|
|
shrink _ = []
|