diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-05 22:10:28 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-05 22:10:28 +0000 |
| commit | 18ec82b54deb9be67a9c541bf69fca0ac020fe9b (patch) | |
| tree | 0cdda01326b69edb3d5b8a7cc078c6f3fcdb767a /src/GF/JavaScript/SkelJS.hs | |
| parent | 3d68f22b95fcae256f05fb7a35815fd481b876a0 (diff) | |
Got GFCC to JavaScript compilation working. Variants are still printed in a weird way.
Diffstat (limited to 'src/GF/JavaScript/SkelJS.hs')
| -rw-r--r-- | src/GF/JavaScript/SkelJS.hs | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/src/GF/JavaScript/SkelJS.hs b/src/GF/JavaScript/SkelJS.hs index 5773b98db..08e202588 100644 --- a/src/GF/JavaScript/SkelJS.hs +++ b/src/GF/JavaScript/SkelJS.hs @@ -27,15 +27,29 @@ transElement x = case x of transStmt :: Stmt -> Result transStmt x = case x of - Compound stmts -> failure x - ReturnVoid -> failure x - Return expr -> failure x + SCompound stmts -> failure x + SReturnVoid -> failure x + SReturn expr -> failure x + SDeclOrExpr declorexpr -> failure x + + +transDeclOrExpr :: DeclOrExpr -> Result +transDeclOrExpr x = case x of + Decl declvars -> failure x + DExpr expr -> failure x + + +transDeclVar :: DeclVar -> Result +transDeclVar x = case x of + DVar id -> failure x + DInit id expr -> failure x transExpr :: Expr -> Result transExpr x = case x of + EAssign expr0 expr -> failure x ENew id exprs -> failure x - EMember expr0 expr -> failure x + EMember expr id -> failure x EIndex expr0 expr -> failure x ECall expr exprs -> failure x EVar id -> failure x @@ -46,6 +60,7 @@ transExpr x = case x of EFalse -> failure x ENull -> failure x EThis -> failure x + EFun ids stmts -> failure x |
