git.iko.soy/rowtype-yoga/purescript-native
on 3a9e363 help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Values.hs
107 lines 2.6 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 deriving (Show, Eq, Data, Typeable)
31data BinaryOperator
32 = Add
33 | Subtract
34 | Multiply
35 | Divide
36 | Modulus
37 | EqualTo
38 | NotEqualTo
39 | LessThan
40 | LessThanOrEqualTo
41 | GreaterThan
42 | GreaterThanOrEqualTo
43 | And
44 | Or
45 | BitwiseAnd
46 | BitwiseOr
47 | BitwiseXor
48 | ShiftLeft
49 | ShiftRight
50 | ZeroFillShiftRight
51 | Concat deriving (Show, Eq, Data, Typeable)
53data Value
54 = NumericLiteral (Either Integer Double)
55 | StringLiteral String
56 | BooleanLiteral Bool
57 | Unary UnaryOperator Value
58 | Binary BinaryOperator Value Value
59 | BinaryNoParens (Qualified Ident) Value Value
60 | Parens Value
61 | ArrayLiteral [Value]
62 | Indexer Value Value
63 | ObjectLiteral [(String, Value)]
64 | Accessor String Value
65 | ObjectUpdate Value [(String, Value)]
66 | Abs [Ident] Value
67 | App Value [Value]
68 | Var (Qualified Ident)
69 | IfThenElse Value Value Value
70 | Block [Statement]
71 | Constructor (Qualified ProperName)
72 | Case [Value] [([Binder], Maybe Guard, Value)]
73 | TypedValue Value Type
74 | Do Value [DoNotationElement] deriving (Show, Data, Typeable)
76data DoNotationElement
77 = DoNotationValue Value
78 | DoNotationBind Binder Value
79 | DoNotationLet Binder Value
80 | DoNotationReturn Value deriving (Show, Data, Typeable)
82data Statement
83 = VariableIntroduction Ident Value
84 | Assignment Ident Value
85 | While Value [Statement]
86 | For Ident Value Value [Statement]
87 | If IfStatement
88 | Return Value deriving (Show, Data, Typeable)
90data IfStatement = IfStatement Value [Statement] (Maybe ElseStatement) deriving (Show, Data, Typeable)
92data ElseStatement
93 = Else [Statement]
94 | ElseIf IfStatement deriving (Show, Data, Typeable)
96data Binder
97 = NullBinder
98 | BooleanBinder Bool
99 | StringBinder String
100 | NumberBinder (Either Integer Double)
101 | VarBinder Ident
102 | NullaryBinder (Qualified ProperName)
103 | UnaryBinder (Qualified ProperName) Binder
104 | ObjectBinder [(String, Binder)]
105 | ArrayBinder [Binder]
106 | ConsBinder Binder Binder
107 | NamedBinder Ident Binder deriving (Show, Data, Typeable)