git.iko.soy/rowtype-yoga/purescript-native
on 6fa5829 help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Values.hs
100 lines 2.5 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
24data UnaryOperator
25 = Negate
26 | Not
27 | BitwiseNot deriving (Show, Eq, Data, Typeable)
29data BinaryOperator
30 = Add
31 | Subtract
32 | Multiply
33 | Divide
34 | Modulus
35 | EqualTo
36 | NotEqualTo
37 | LessThan
38 | LessThanOrEqualTo
39 | GreaterThan
40 | GreaterThanOrEqualTo
41 | And
42 | Or
43 | BitwiseAnd
44 | BitwiseOr
45 | BitwiseXor
46 | ShiftLeft
47 | ShiftRight
48 | ZeroFillShiftRight
49 | Concat
50 | Cons deriving (Show, Eq, Data, Typeable)
52data Value
53 = NumericLiteral (Either Integer Double)
54 | StringLiteral String
55 | BooleanLiteral Bool
56 | Unary UnaryOperator Value
57 | Binary BinaryOperator Value Value
58 | BinaryNoParens (Qualified Ident) Value Value
59 | Parens Value
60 | ArrayLiteral [Value]
61 | Indexer Value Value
62 | ObjectLiteral [(String, Value)]
63 | Accessor String Value
64 | ObjectUpdate Value [(String, Value)]
65 | Abs [Ident] Value
66 | App Value [Value]
67 | Var (Qualified Ident)
68 | IfThenElse Value Value Value
69 | Block [Statement]
70 | Constructor (Qualified ProperName)
71 | Case Value [(Binder, Value)]
72 | TypedValue Value PolyType deriving (Show, Data, Typeable)
74data Statement
75 = VariableIntroduction Ident Value
76 | Assignment Ident Value
77 | While Value [Statement]
78 | For Ident Value Value [Statement]
79 | ForEach Ident Value [Statement]
80 | If IfStatement
81 | Return Value deriving (Show, Data, Typeable)
83data IfStatement = IfStatement Value [Statement] (Maybe ElseStatement) deriving (Show, Data, Typeable)
85data ElseStatement
86 = Else [Statement]
87 | ElseIf IfStatement deriving (Show, Data, Typeable)
89data Binder
90 = NullBinder
91 | BooleanBinder Bool
92 | StringBinder String
93 | NumberBinder (Either Integer Double)
94 | VarBinder Ident
95 | NullaryBinder (Qualified ProperName)
96 | UnaryBinder (Qualified ProperName) Binder
97 | ObjectBinder [(String, Binder)]
98 | ArrayBinder [Binder] (Maybe Binder)
99 | NamedBinder Ident Binder
100 | GuardedBinder Value Binder deriving (Show, Data, Typeable)