GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 13:09:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

repaired JS generation after GFCC changes

Browse Source
This commit is contained in:
aarne
2007-09-19 14:10:04 +00:00
parent 7825a1a1c5
commit aff4aa20c1
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/Canon/CanonToJS.hs
View File

@@ -53,17 +53,19 @@ term2js l t = f t
C.R xs -> new "Arr" (map f xs)
C.P x y -> JS.ECall (JS.EMember (f x) (JS.Ident "sel")) [f y]
C.S xs -> new "Seq" (map f xs)
C.K (C.KS s) -> new "Str" [JS.EStr s]
C.K (C.KP ss vs) -> new "Seq" (map JS.EStr ss) -- FIXME
C.K t -> tokn2js t
C.V i -> JS.EIndex (JS.EVar children) (JS.EInt i)
C.C i -> new "Int" [JS.EInt i]
C.F (C.CId f) -> JS.ECall (JS.EMember (JS.EVar l) (JS.Ident "rule")) [JS.EStr f, JS.EVar children]
C.FV xs -> new "Variants" (map f xs)
C.W str (C.R r) ->
new "Suffix" (JS.EStr str : [JS.EStr s | C.K (C.KS s) <- r])
C.W str x -> new "Suffix" [JS.EStr str, f x]
C.RP x y -> new "Rp" [f x, f y]
C.TM -> new "Meta" []
tokn2js :: C.Tokn -> JS.Expr
tokn2js (C.KS s) = new "Str" [JS.EStr s]
tokn2js (C.KP ss vs) = new "Seq" (map JS.EStr ss) -- FIXME
argIdent :: Integer -> JS.Ident
argIdent n = JS.Ident ("x" ++ show n)