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

Added /cats and /langs to fastcgi server.

Browse Source
This commit is contained in:
bjorn
2008-08-14 15:56:38 +00:00
parent b2e7b6f89d
commit 094150fde1
1 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/server/MainFastCGI.hs
View File

@@ -38,15 +38,32 @@ cgiMain pgf =
do path <- pathInfo do path <- pathInfo
case path of case path of
"/translate" -> do input <- liftM (fromMaybe "") $ getInput "input" "/translate" -> do input <- liftM (fromMaybe "") $ getInput "input"
mcat <- getInput "cat" mcat <- getCat pgf "cat"
mfrom <- getInput "from" mfrom <- getLang pgf "from"
mto <- getInput "to" mto <- getLang pgf "to"
maybe (return ()) (checkCategory pgf) mcat
maybe (return ()) (checkLanguage pgf) mfrom
maybe (return ()) (checkLanguage pgf) mto
outputJSON $ translate pgf input mcat mfrom mto outputJSON $ translate pgf input mcat mfrom mto
"/cats" -> outputJSON $ categories pgf
"/langs" -> outputJSON $ languages pgf
_ -> outputNotFound path _ -> outputNotFound path
getCat :: PGF -> String -> CGI (Maybe Category)
getCat pgf i =
do mcat <- getInput i
case mcat of
Just "" -> return Nothing
Just cat | cat `notElem` categories pgf ->
throwCGIError 400 "Unknown category" ["Unknown category: " ++ cat]
_ -> return mcat
getLang :: PGF -> String -> CGI (Maybe Language)
getLang pgf i =
do mlang <- getInput i
case mlang of
Just "" -> return Nothing
Just lang | lang `notElem` languages pgf ->
throwCGIError 400 "Unknown language" ["Unknown language: " ++ lang]
_ -> return mlang
outputJSON :: JSON a => a -> CGI CGIResult outputJSON :: JSON a => a -> CGI CGIResult
outputJSON x = do setHeader "Content-Type" "text/json; charset=utf-8" outputJSON x = do setHeader "Content-Type" "text/json; charset=utf-8"
outputStrict $ UTF8.encodeString $ encode x outputStrict $ UTF8.encodeString $ encode x
@@ -55,14 +72,6 @@ outputStrict :: String -> CGI CGIResult
outputStrict x | x == x = output x outputStrict x | x == x = output x
| otherwise = fail "I am the pope." | otherwise = fail "I am the pope."
checkCategory :: PGF -> Category -> CGI ()
checkCategory pgf cat = unless (cat `elem` categories pgf) $
throwCGIError 400 "Unknown category" ["Unknown category: " ++ cat]
checkLanguage :: PGF -> Category -> CGI ()
checkLanguage pgf lang = unless (lang `elem` languages pgf) $
throwCGIError 400 "Unknown language" ["Unknown language: " ++ lang]
translate :: PGF -> String -> Maybe Category -> Maybe Language -> Maybe Language -> Translation translate :: PGF -> String -> Maybe Category -> Maybe Language -> Maybe Language -> Translation
translate pgf input mcat mfrom mto = translate pgf input mcat mfrom mto =
Record [(from, [Record [(to, linearize pgf to tree) | to <- toLangs] | tree <- trees]) Record [(from, [Record [(to, linearize pgf to tree) | to <- toLangs] | tree <- trees])