GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 19:25:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

JavaScript generation: compile all concrete syntaxes, not just the first.

Browse Source
This commit is contained in:
bringert committed 2006-12-08 19:53:06 +00:00
1 parent 6645233be0
commit c038db9d7c
1 file changed
+4 -4
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Canon/CanonToJS.hs
+4 -4
View File
@@ -11,12 +11,12 @@ prCanon2js :: CanonGrammar -> String
prCanon2js gr = gfcc2js $ mkCanon2gfcc gr prCanon2js gr = gfcc2js $ mkCanon2gfcc gr
gfcc2js :: C.Grammar -> String gfcc2js :: C.Grammar -> String
gfcc2js (C.Grm _ _ cs) = JS.printTree (concrete2js (head cs)) -- FIXME gfcc2js (C.Grm _ _ cs) = JS.printTree $ JS.Program $ concatMap concrete2js cs
concrete2js :: C.Concrete -> JS.Program concrete2js :: C.Concrete -> [JS.Element]
concrete2js (C.Cnc (C.CId c) ds) = concrete2js (C.Cnc (C.CId c) ds) =
JS.Program ([JS.ElStmt $ JS.SDeclOrExpr $ JS.Decl [JS.DInit l (new "Linearizer" [])]] [JS.ElStmt $ JS.SDeclOrExpr $ JS.Decl [JS.DInit l (new "Linearizer" [])]]
++ concatMap (cncdef2js l) ds) ++ concatMap (cncdef2js l) ds
where l = JS.Ident c where l = JS.Ident c
cncdef2js :: JS.Ident -> C.CncDef -> [JS.Element] cncdef2js :: JS.Ident -> C.CncDef -> [JS.Element]