forked from GitHub/gf-core
52 lines
1.0 KiB
Haskell
52 lines
1.0 KiB
Haskell
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
|
|
|
|
|
|
|