git.iko.soy/rowtype-yoga/purescript-native
on 5ce8345 help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Values.hs
120 lines 3.3 kB history raw
1-----------------------------------------------------------------------------
2--
3-- Module : Language.PureScript.Values
4-- Copyright : (c) Phil Freeman 2013
5-- License : MIT
6--
7-- Maintainer : Phil Freeman <paf31@cantab.net>
8-- Stability : experimental
9-- Portability :
10--
11-- |
12--
13-----------------------------------------------------------------------------
15{-# LANGUAGE DeriveDataTypeable #-}
17module Language.PureScript.Values where
19import Language.PureScript.Types
20import Language.PureScript.Names
22import Data.Data
24type Guard = Value
26data UnaryOperator
27 = Negate
28 | Not
29 | BitwiseNot
30 | Positive deriving (Show, Eq, Data, Typeable)
32data BinaryOperator
33 = Add
34 | Subtract
35 | Multiply
36 | Divide
37 | Modulus
38 | EqualTo
39 | NotEqualTo
40 | LessThan
41 | LessThanOrEqualTo
42 | GreaterThan
43 | GreaterThanOrEqualTo
44 | And
45 | Or
46 | BitwiseAnd
47 | BitwiseOr
48 | BitwiseXor
49 | ShiftLeft
50 | ShiftRight
51 | ZeroFillShiftRight
52 | Concat deriving (Show, Eq, Data, Typeable)
54data Value
55 = NumericLiteral (Either Integer Double)
56 | StringLiteral String
57 | BooleanLiteral Bool
58 | Unary UnaryOperator Value
59 | Binary BinaryOperator Value Value
60 | BinaryNoParens (Qualified Ident) Value Value
61 | Parens Value
62 | ArrayLiteral [Value]
63 | Indexer Value Value
64 | ObjectLiteral [(String, Value)]
65 | Accessor String Value
66 | ObjectUpdate Value [(String, Value)]
67 | Abs [Ident] Value
68 | App Value [Value]
69 | Var (Qualified Ident)
70 | IfThenElse Value Value Value
71 | Block [Statement]
72 | Constructor (Qualified ProperName)
73 | Case [Value] [([Binder], Maybe Guard, Value)]
74 | TypedValue Bool Value Type
75 | Do [DoNotationElement]
76 | TypeClassDictionary (Qualified ProperName, Type) [TypeClassDictionaryInScope] deriving (Show, Data, Typeable)
78data TypeClassDictionaryType
79 = TCDRegular
80 | TCDAlias (Qualified Ident) deriving (Show, Eq, Data, Typeable)
82data TypeClassDictionaryInScope
83 = TypeClassDictionaryInScope { tcdName :: Qualified Ident
84 , tcdClassName :: Qualified ProperName
85 , tcdInstanceType :: Type
86 , tcdDependencies :: Maybe [(Qualified ProperName, Type)]
87 , tcdType :: TypeClassDictionaryType
88 } deriving (Show, Data, Typeable)
90data DoNotationElement
91 = DoNotationValue Value
92 | DoNotationBind Binder Value
93 | DoNotationLet Binder Value deriving (Show, Data, Typeable)
95data Statement
96 = VariableIntroduction Ident Value
97 | Assignment Ident Value
98 | While Value [Statement]
99 | For Ident Value Value [Statement]
100 | If IfStatement
101 | Return Value deriving (Show, Data, Typeable)
103data IfStatement = IfStatement Value [Statement] (Maybe ElseStatement) deriving (Show, Data, Typeable)
105data ElseStatement
106 = Else [Statement]
107 | ElseIf IfStatement deriving (Show, Data, Typeable)
109data Binder
110 = NullBinder
111 | BooleanBinder Bool
112 | StringBinder String
113 | NumberBinder (Either Integer Double)
114 | VarBinder Ident
115 | NullaryBinder (Qualified ProperName)
116 | UnaryBinder (Qualified ProperName) Binder
117 | ObjectBinder [(String, Binder)]
118 | ArrayBinder [Binder]
119 | ConsBinder Binder Binder
120 | NamedBinder Ident Binder deriving (Show, Data, Typeable)