diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-11-30 22:50:25 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-11-30 22:50:25 +0000 |
| commit | ba13ff08d2dd38de9abdb8b59125b73471404d44 (patch) | |
| tree | 0df109b56f1827042f6b6d7ad71cc1dd22decf99 /src/GF/JavaScript/SkelJS.hs | |
| parent | c2ecc9d5543a7fc495edbe03ec8cb2e9632dc774 (diff) | |
Added the beginnings of GFCC to JavaScript conversion.
Diffstat (limited to 'src/GF/JavaScript/SkelJS.hs')
| -rw-r--r-- | src/GF/JavaScript/SkelJS.hs | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/src/GF/JavaScript/SkelJS.hs b/src/GF/JavaScript/SkelJS.hs new file mode 100644 index 000000000..5773b98db --- /dev/null +++ b/src/GF/JavaScript/SkelJS.hs @@ -0,0 +1,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 + + + |
