From df0c4f81fa9c620d7c63af79c0b183a6beccf0bd Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Thu, 22 May 2008 11:59:31 +0000
Subject: remove all files that aren't used in GF-3.0

---
 src-3.0/GF/JavaScript/SkelJS.hs | 80 -----------------------------------------
 1 file changed, 80 deletions(-)
 delete mode 100644 src-3.0/GF/JavaScript/SkelJS.hs

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

diff --git a/src-3.0/GF/JavaScript/SkelJS.hs b/src-3.0/GF/JavaScript/SkelJS.hs
deleted file mode 100644
index f8cd588a7..000000000
--- a/src-3.0/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
-
-
-
-- 
cgit v1.2.3