From ba13ff08d2dd38de9abdb8b59125b73471404d44 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 30 Nov 2006 22:50:25 +0000
Subject: Added the beginnings of GFCC to JavaScript conversion.

---
 src/GF/JavaScript/SkelJS.hs | 51 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 src/GF/JavaScript/SkelJS.hs

(limited to 'src/GF/JavaScript/SkelJS.hs')

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
+
+
+
-- 
cgit v1.2.3