msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Generate JavaScript type annotator. Use lindef in JavaScript.

Browse Source
This commit is contained in:
bringert
2006-12-21 00:01:45 +00:00
parent 5455046dd8
commit e8b8185e04
8 changed files with 171 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/JavaScript/PrintJS.hs
View File

@@ -145,6 +145,7 @@ instance Print Expr where
ENull -> prPrec i 16 (concatD [doc (showString "null")])
EThis -> prPrec i 16 (concatD [doc (showString "this")])
EFun ids stmts -> prPrec i 16 (concatD [doc (showString "function") , doc (showString "(") , prt 0 ids , doc (showString ")") , doc (showString "{") , prt 0 stmts , doc (showString "}")])
EArray exprs -> prPrec i 16 (concatD [doc (showString "[") , prt 0 exprs , doc (showString "]")])
ESeq exprs -> prPrec i 16 (concatD [doc (showString "(") , prt 0 exprs , doc (showString ")")])
prtList es = case es of