mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 05:29:30 -06:00
GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3
This commit is contained in:
80
src-3.0/GF/JavaScript/SkelJS.hs
Normal file
80
src-3.0/GF/JavaScript/SkelJS.hs
Normal file
@@ -0,0 +1,80 @@
|
||||
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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user