diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-11-30 22:50:25 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-11-30 22:50:25 +0000 |
| commit | ba13ff08d2dd38de9abdb8b59125b73471404d44 (patch) | |
| tree | 0df109b56f1827042f6b6d7ad71cc1dd22decf99 /src/GF/JavaScript/AbsJS.hs | |
| parent | c2ecc9d5543a7fc495edbe03ec8cb2e9632dc774 (diff) | |
Added the beginnings of GFCC to JavaScript conversion.
Diffstat (limited to 'src/GF/JavaScript/AbsJS.hs')
| -rw-r--r-- | src/GF/JavaScript/AbsJS.hs | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/GF/JavaScript/AbsJS.hs b/src/GF/JavaScript/AbsJS.hs new file mode 100644 index 000000000..4c0094bd9 --- /dev/null +++ b/src/GF/JavaScript/AbsJS.hs @@ -0,0 +1,35 @@ +module GF.JavaScript.AbsJS where + +-- Haskell module generated by the BNF converter + +newtype Ident = Ident String deriving (Eq,Ord,Show) +data Program = + Program [Element] + deriving (Eq,Ord,Show) + +data Element = + FunDef Ident [Ident] [Stmt] + | ElStmt Stmt + deriving (Eq,Ord,Show) + +data Stmt = + Compound [Stmt] + | ReturnVoid + | Return Expr + deriving (Eq,Ord,Show) + +data Expr = + ENew Ident [Expr] + | EMember Expr Expr + | EIndex Expr Expr + | ECall Expr [Expr] + | EVar Ident + | EInt Integer + | EDbl Double + | EStr String + | ETrue + | EFalse + | ENull + | EThis + deriving (Eq,Ord,Show) + |
