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

a first version of PGF.AbsCompute

Browse Source
This commit is contained in:
aarne
2008-10-10 15:53:17 +00:00
parent 76e9964d98
commit 8555c65c36
5 changed files with 123 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Command/Commands.hs
View File

@@ -384,7 +384,7 @@ allCommands cod pgf = Map.fromList [
"p \"foo\" | pt -typecheck -- type check parse results"
],
exec = \opts -> return . fromTrees . treeOps (map prOpt opts),
options = treeOpOptions
options = treeOpOptions pgf
}),
("q", emptyCommandInfo {
longname = "quit",
@@ -608,7 +608,7 @@ allCommands cod pgf = Map.fromList [
app f = maybe id id (stringOp f)
treeOps opts s = foldr app s (reverse opts) where
app f = maybe id id (treeOp f)
app f = maybe id id (treeOp pgf f)
showAsString t = case t of
Lit (LStr s) -> s
@@ -641,7 +641,7 @@ stringOpOptions = [
("words","lexer that assumes tokens separated by spaces (default)")
]
treeOpOptions = [(op,expl) | (op,(expl,_)) <- allTreeOps]
treeOpOptions pgf = [(op,expl) | (op,(expl,_)) <- allTreeOps pgf]
translationQuiz :: String -> PGF -> Language -> Language -> Category -> IO ()
translationQuiz cod pgf ig og cat = do