summaryrefslogtreecommitdiff
path: root/src/GF/JavaScript/SkelJS.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:43:48 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:43:48 +0000
commitb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch)
tree0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/JavaScript/SkelJS.hs
parentfe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff)
removed src for 2.9
Diffstat (limited to 'src/GF/JavaScript/SkelJS.hs')
-rw-r--r--src/GF/JavaScript/SkelJS.hs80
1 files changed, 0 insertions, 80 deletions
diff --git a/src/GF/JavaScript/SkelJS.hs b/src/GF/JavaScript/SkelJS.hs
deleted file mode 100644
index f8cd588a7..000000000
--- a/src/GF/JavaScript/SkelJS.hs
+++ /dev/null
@@ -1,80 +0,0 @@
-module GF.JavaScript.SkelJS where
-
--- Haskell module generated by the BNF converter
-
-import GF.JavaScript.AbsJS
-import GF.Data.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
- 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 expr id -> 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
- EFun ids stmts -> failure x
- EArray exprs -> failure x
- EObj propertys -> failure x
- ESeq exprs -> failure x
-
-
-transProperty :: Property -> Result
-transProperty x = case x of
- Prop propertyname expr -> failure x
-
-
-transPropertyName :: PropertyName -> Result
-transPropertyName x = case x of
- IdentPropName id -> failure x
- StringPropName str -> failure x
-
-
-