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

Updated AJAX translator to make use of canParse and the fixed parseAllLangs.

Browse Source
This commit is contained in:
bjorn
2008-08-18 09:38:21 +00:00
parent 686dd71041
commit ae90af3211
2 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/server/MainFastCGI.hs
View File

@@ -44,7 +44,7 @@ cgiMain pgf =
mto <- getLang pgf "to"
outputJSON $ translate pgf input mcat mfrom mto
"/categories" -> outputJSON $ PGF.categories pgf
"/languages" -> outputJSON $ PGF.languages pgf
"/languages" -> outputJSON $ toJSObject $ listLanguages pgf
_ -> outputNotFound path
getCat :: PGF -> String -> CGI (Maybe PGF.Category)
@@ -75,12 +75,26 @@ outputStrict x | x == x = output x
translate :: PGF -> String -> Maybe PGF.Category -> Maybe PGF.Language -> Maybe PGF.Language -> Translation
translate pgf input mcat mfrom mto =
Record [(from, [Record [(to, PGF.linearize pgf to tree) | to <- toLangs] | tree <- trees])
| from <- fromLangs, let trees = PGF.parse pgf from cat input, not (null trees)]
where cat = fromMaybe (PGF.startCat pgf) mcat
fromLangs = maybe (PGF.languages pgf) (:[]) mfrom
toLangs = maybe (PGF.languages pgf) (:[]) mto
Record [(from,[Record (linearize' pgf mto tree) | tree <- trees])
| (from,trees) <- parse' pgf input mcat mfrom]
parse' :: PGF -> String -> Maybe PGF.Category -> Maybe PGF.Language -> [(PGF.Language,[PGF.Tree])]
parse' pgf input mcat mfrom =
case mfrom of
Nothing -> PGF.parseAllLang pgf cat input
Just from -> [(from, PGF.parse pgf from cat input)]
where cat = fromMaybe (PGF.startCat pgf) mcat
linearize' :: PGF -> Maybe PGF.Language -> PGF.Tree -> [(PGF.Language,String)]
linearize' pgf mto tree =
case mto of
Nothing -> PGF.linearizeAllLang pgf tree
Just to -> [(to,PGF.linearize pgf to tree)]
listLanguages :: PGF -> [(PGF.Language,JSObject JSValue)]
listLanguages pgf = [(l,toJSObject (info l)) | l <- PGF.languages pgf]
where info l = [("languageCode", showJSON (fromMaybe "" (PGF.languageCode pgf l))),
("canParse", showJSON (PGF.canParse pgf l))]
-- * General CGI Error exception mechanism

8
src/server/gf-client.html
View File

@@ -23,8 +23,10 @@
var f = document.getElementById('fromLang');
var t = document.getElementById('toLang');
for (var i in langs) {
addOption(f, langs[i], langs[i]);
addOption(t, langs[i], langs[i]);
if (langs[i].canParse) {
addOption(f, i, i);
}
addOption(t, i, i);
}
}
@@ -32,7 +34,7 @@
gf.getLanguages(populateLangs);
}
</script>
<title>Web-based GF Translator</title>
<title>AJAX GF Translator</title>
</head>
<body onload="initialize()">
<form id="translate">