From ea31c1e63ba137b943f7fd5e0ffe91cd64673875 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 16 Jun 2008 11:15:38 +0000 Subject: new languages in resource Make; moved GF-specific stuff from Quiz --- src-3.0/GF/Command/Commands.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src-3.0/GF/Command') diff --git a/src-3.0/GF/Command/Commands.hs b/src-3.0/GF/Command/Commands.hs index b68ad7470..f586125b2 100644 --- a/src-3.0/GF/Command/Commands.hs +++ b/src-3.0/GF/Command/Commands.hs @@ -454,3 +454,18 @@ allCommands pgf = Map.fromList [ -- ps -f -g s returns g (f s) stringOps opts s = foldr app s (reverse (map prOpt opts)) where app f = maybe id id (stringOp f) + +translationQuiz :: PGF -> Language -> Language -> Category -> IO () +translationQuiz pgf ig og cat = do + tts <- translationList pgf ig og cat infinity + mkQuiz "Welcome to GF Translation Quiz." tts + +morphologyQuiz :: PGF -> Language -> Category -> IO () +morphologyQuiz pgf ig cat = do + tts <- morphologyList pgf ig cat infinity + mkQuiz "Welcome to GF Morphology Quiz." tts + +-- | the maximal number of precompiled quiz problems +infinity :: Int +infinity = 256 + -- cgit v1.2.3