GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

text-like unlexer for phrasebook web service

Browse Source
This commit is contained in:
aarne
2010-03-26 22:08:48 +00:00
parent 40763b5f61
commit 5c0fb2cb7e
2 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/server/PGFService.hs
View File

@@ -116,19 +116,20 @@ doTranslate pgf input mcat mfrom mto =
("tree", showJSON tree), ("tree", showJSON tree),
("linearizations",showJSON ("linearizations",showJSON
[toJSObject [("to", PGF.showLanguage to),("text",output)] [toJSObject [("to", PGF.showLanguage to),("text",output)]
| (to,output) <- linearize' pgf mto tree] | (to,output) <- linearizeAndBind pgf mto tree]
) )
] ]
| (from,trees) <- parse' pgf input mcat mfrom, | (from,trees) <- parse' pgf input mcat mfrom,
tree <- trees] tree <- trees]
-- used in phrasebook
doTranslateGroup :: PGF -> String -> Maybe PGF.Type -> Maybe PGF.Language -> Maybe PGF.Language -> JSValue doTranslateGroup :: PGF -> String -> Maybe PGF.Type -> Maybe PGF.Language -> Maybe PGF.Language -> JSValue
doTranslateGroup pgf input mcat mfrom mto = doTranslateGroup pgf input mcat mfrom mto =
showJSON showJSON
[toJSObject [("from", showJSON (langOnly (PGF.showLanguage from))), [toJSObject [("from", showJSON (langOnly (PGF.showLanguage from))),
("to", showJSON (langOnly (PGF.showLanguage to))), ("to", showJSON (langOnly (PGF.showLanguage to))),
("linearizations",showJSON ("linearizations",showJSON
[toJSObject [("text", doBind alt)] | alt <- output]) [toJSObject [("text", doText (doBind alt))] | alt <- output])
] ]
| |
(from,trees) <- parse' pgf input mcat mfrom, (from,trees) <- parse' pgf input mcat mfrom,
@@ -141,6 +142,9 @@ doTranslateGroup pgf input mcat mfrom mto =
more (l,s) = more (l,s) =
Map.insertWith (\ [x] xs -> if elem x xs then xs else (x : xs)) l s Map.insertWith (\ [x] xs -> if elem x xs then xs else (x : xs)) l s
doBind = unwords . bind . words doBind = unwords . bind . words
doText s = case s of
c:cs | elem (last s) ".?!" -> toUpper c : init (init cs) ++ [last s]
_ -> s
bind ws = case ws of bind ws = case ws of
w : "&+" : u : ws2 -> bind ((w ++ u) : ws2) w : "&+" : u : ws2 -> bind ((w ++ u) : ws2)
w : ws2 -> w : bind ws2 w : ws2 -> w : bind ws2
@@ -276,6 +280,14 @@ linearize' pgf mto tree =
Nothing -> PGF.linearizeAllLang pgf tree Nothing -> PGF.linearizeAllLang pgf tree
Just to -> [(to,PGF.linearize pgf to tree)] Just to -> [(to,PGF.linearize pgf to tree)]
linearizeAndBind pgf mto t = [(la, binds s) | (la,s) <- linearize' pgf mto t]
where
binds = unwords . bs . words
bs ws = case ws of
u:"&+":v:ws2 -> bs ((u ++ v):ws2)
u:ws2 -> u : bs ws2
_ -> []
random' :: PGF -> Maybe PGF.Type -> IO [PGF.Tree] random' :: PGF -> Maybe PGF.Type -> IO [PGF.Tree]
random' pgf mcat = PGF.generateRandom pgf (fromMaybe (PGF.startCat pgf) mcat) random' pgf mcat = PGF.generateRandom pgf (fromMaybe (PGF.startCat pgf) mcat)

3
src/server/lighttpd.conf
View File

@@ -6,7 +6,8 @@ server.modules = (
"mod_access", "mod_access",
"mod_fastcgi", "mod_fastcgi",
"mod_accesslog", "mod_accesslog",
"mod_redirect" "mod_redirect",
"mod_cgi"
) )
var.basedir = var.CWD var.basedir = var.CWD