1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
module Language.Javascript.JMacro.Util where
import Prelude hiding (tail, init, head, last, minimum, maximum, foldr1, foldl1, (!!), read, (<), (&&))
import qualified Prelude as P
import Language.Javascript.JMacro.Base
(.) :: JExpr -> String -> JExpr
x . y = SelExpr x (StrI y)
(<>) :: (ToJExpr a) => JExpr -> a -> JExpr
x <> y = IdxExpr x (toJExpr y)
infixl 2 =:
(=:) :: ToJExpr a => JExpr -> a -> JStat
x =: y = AssignStat x (toJExpr y)
($) :: (ToJExpr a, ToJExpr b) => a -> b -> JExpr
x $ y = ApplExpr (toJExpr x) (toJExprList y)
($$) :: (ToJExpr a, ToJExpr b) => a -> b -> JStat
x $$ y = ApplStat (toJExpr x) (toJExprList y)
(==), (!=), (<), (&&) :: JExpr -> JExpr -> JExpr
x == y = InfixExpr "==" x y
x != y = InfixExpr "!=" x y
infix 4 <
x < y = InfixExpr "<" x y
infixr 3 &&
x && y = InfixExpr "&&" x y
null :: JExpr
null = jsv "null"
new :: ToJExpr a => a -> JExpr
new x = NewExpr (toJExpr x)
if' :: (ToJExpr a, ToStat b) => a -> b -> JStat
if' x y = IfStat (toJExpr x) (toStat y) (BlockStat [])
ifElse :: (ToJExpr a, ToStat b, ToStat c) => a -> b -> c -> JStat
ifElse x y z = IfStat (toJExpr x) (toStat y) (toStat z)
while :: ToJExpr a => a -> JStat -> JStat
while x y = WhileStat False (toJExpr x) y
return :: ToJExpr a => a -> JStat
return x = ReturnStat (toJExpr x)
toJExprList :: ToJExpr a => a -> [JExpr]
toJExprList x = case toJExpr x of
(ValExpr (JList l)) -> l
x' -> [x']
jstr :: P.String -> JExpr
jstr = ValExpr P.. JStr
|
