blob: 5773b98dbbfec55766849a27efd7cf4f8435ff1f (
plain)
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
|
module GF.JavaScript.SkelJS where
-- Haskell module generated by the BNF converter
import GF.JavaScript.AbsJS
import GF.JavaScript.ErrM
type Result = Err String
failure :: Show a => a -> Result
failure x = Bad $ "Undefined case: " ++ show x
transIdent :: Ident -> Result
transIdent x = case x of
Ident str -> failure x
transProgram :: Program -> Result
transProgram x = case x of
Program elements -> failure x
transElement :: Element -> Result
transElement x = case x of
FunDef id ids stmts -> failure x
ElStmt stmt -> failure x
transStmt :: Stmt -> Result
transStmt x = case x of
Compound stmts -> failure x
ReturnVoid -> failure x
Return expr -> failure x
transExpr :: Expr -> Result
transExpr x = case x of
ENew id exprs -> failure x
EMember expr0 expr -> failure x
EIndex expr0 expr -> failure x
ECall expr exprs -> failure x
EVar id -> failure x
EInt n -> failure x
EDbl d -> failure x
EStr str -> failure x
ETrue -> failure x
EFalse -> failure x
ENull -> failure x
EThis -> failure x
|
