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

Made generated JavaScript more object-oriented. Moved common JS stuff to lib/javascript/gflib.js

Browse Source
This commit is contained in:
bringert
2006-12-06 13:52:24 +00:00
parent ae43c55ae0
commit 6645233be0
1 changed files with 19 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -8,32 +8,36 @@ import qualified GF.JavaScript.PrintJS as JS
prCanon2js :: CanonGrammar -> String
prCanon2js gr = unlines [trees, terms, linearize, utils, (gfcc2js $ mkCanon2gfcc gr)]
prCanon2js gr = gfcc2js $ mkCanon2gfcc gr
gfcc2js :: C.Grammar -> String
gfcc2js (C.Grm _ _ cs) = JS.printTree (concrete2js (head cs)) -- FIXME
concrete2js :: C.Concrete -> JS.Program
concrete2js (C.Cnc c ds) = JS.Program ([JS.ElStmt $ JS.SDeclOrExpr $ JS.Decl [JS.DInit (JS.Ident "lin") (new "Array" [])]]
++ concatMap cncdef2js ds)
concrete2js (C.Cnc (C.CId c) ds) =
JS.Program ([JS.ElStmt $ JS.SDeclOrExpr $ JS.Decl [JS.DInit l (new "Linearizer" [])]]
++ concatMap (cncdef2js l) ds)
where l = JS.Ident c
cncdef2js :: C.CncDef -> [JS.Element]
cncdef2js (C.Lin (C.CId f) t) =
[JS.ElStmt $ JS.SDeclOrExpr $ JS.DExpr $ JS.EAssign (lin (JS.EStr f)) (JS.EFun [children] [JS.SReturn (term2js t)])]
cncdef2js :: JS.Ident -> C.CncDef -> [JS.Element]
cncdef2js l (C.Lin (C.CId f) t) =
[JS.ElStmt $ JS.SDeclOrExpr $ JS.DExpr $ JS.ECall (JS.EMember (JS.EVar l) (JS.Ident "addRule")) [JS.EStr f, JS.EFun [children] [JS.SReturn (term2js l t)]]]
term2js :: C.Term -> JS.Expr
term2js t =
term2js :: JS.Ident -> C.Term -> JS.Expr
term2js l t = f t
where
f t =
case t of
C.R xs -> new "Arr" (map term2js xs)
C.P x y -> JS.ECall (JS.EMember (term2js x) (JS.Ident "sel")) [term2js y]
C.S xs -> new "Seq" (map term2js xs)
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 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 (lin (JS.EStr f)) [JS.EVar children]
C.FV xs -> new "Variants" (map term2js xs)
C.W str x -> new "Suffix" [JS.EStr str, term2js x]
C.RP x y -> new "Rp" [term2js x, term2js y]
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 x -> new "Suffix" [JS.EStr str, f x]
C.RP x y -> new "Rp" [f x, f y]
C.TM -> new "Meta" []
argIdent :: Integer -> JS.Ident
@@ -46,82 +50,5 @@ tokn2js (C.KP ss vs) = new "Seq" (map JS.EStr ss) -- FIXME
children :: JS.Ident
children = JS.Ident "cs"
lin :: JS.Expr -> JS.Expr
lin = JS.EIndex (JS.EVar (JS.Ident "lin"))
new :: String -> [JS.Expr] -> JS.Expr
new f xs = JS.ENew (JS.Ident f) xs
trees :: String
trees = unlines
[
"function Fun(name) {",
" this.name = name;",
" this.children = copy_arguments(arguments, 1);",
"}"
]
terms :: String
terms = unlines
[
"function Arr() { this.values = copy_arguments(arguments, 0); }",
"Arr.prototype.print = function() { return this.values[0].print(); }",
"Arr.prototype.sel = function(i) { return this.values[i.toIndex()]; }",
"function Seq() { this.values = copy_arguments(arguments, 0); }",
"Seq.prototype.print = function() { return join_print(this.values, \" \"); }",
"function Variants() { this.values = copy_arguments(arguments, 0); }",
"Variants.prototype.print = function() { return join_print(this.values, \"/\"); }",
"function Glue() { this.values = copy_arguments(arguments, 0); }",
"Glue.prototype.print = function() { return join_print(this.values, \"\"); }",
"function Rp(index,value) { this.index = index; this.value = value; }",
"Rp.prototype.print = function() { return this.index; }",
"Rp.prototype.toIndex = function() { return this.index.toIndex(); }",
"function Suffix(prefix,suffix) { this.prefix = prefix; this.suffix = suffix; }",
"Suffix.prototype.print = function() { return this.prefix.print() + this.suffix.print(); }",
"Suffix.prototype.sel = function(i) { new Glue(this.prefix, this.suffix.sel(i)); }",
"function Meta() { }",
"Meta.prototype.print = function() { return \"?\"; }",
"Meta.prototype.toIndex = function() { return 0; }",
"Meta.prototype.sel = function(i) { return this; }",
"function Str(value) { this.value = value; }",
"Str.prototype.print = function() { return this.value; }",
"function Int(value) { this.value = value; }",
"Int.prototype.print = function() { return this.value; }",
"Int.prototype.toIndex = function() { return this.value; }"
]
linearize :: String
linearize = unlines
[
"function linearize(tree) { return linearizeToTerm(tree).print(); }",
"function linearizeToTerm(tree) {",
" var cs = new Array();",
" for (var i = 0; i < tree.children.length; i++) {",
" cs[i] = linearizeToTerm(tree.children[i]);",
" }",
" return lin[tree.name](cs);",
"}"
]
utils :: String
utils = unlines
[
"function copy_arguments(args, start) {",
" var arr = new Array();",
" for (var i = 0; i < args.length - start; i++) {",
" arr[i] = args[i + start];",
" }",
" return arr;",
"}",
"",
"function join_print(values, glue) {",
" var str = \"\";",
" for (var i = 0; i < values.length; i++) {",
" str += values[i].print();",
" if (i < values.length - 1) {",
" str += glue;",
" }",
" }",
" return str;",
"}"
]