diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:43:48 +0000 |
| commit | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (patch) | |
| tree | 0992334be13cec6538a1dea22fbbf26ad6bdf224 /src/GF/JavaScript/SkelJS.hs | |
| parent | fe367412e0aeb4ad5c02de68e6eca382e0f96984 (diff) | |
removed src for 2.9
Diffstat (limited to 'src/GF/JavaScript/SkelJS.hs')
| -rw-r--r-- | src/GF/JavaScript/SkelJS.hs | 80 |
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 - - - |
