summaryrefslogtreecommitdiff
path: root/src/GF/JavaScript/SkelJS.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/GF/JavaScript/SkelJS.hs')
-rw-r--r--src/GF/JavaScript/SkelJS.hs51
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
+
+
+