From 2d86f7a739efe018dc5e710da330d3791675a173 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 5 Sep 2007 18:08:16 +0000 Subject: transfer exx --- examples/tutorial/embedded/TransferLoop.hs | 22 ++-------------------- 1 file changed, 2 insertions(+), 20 deletions(-) (limited to 'examples/tutorial/embedded/TransferLoop.hs') diff --git a/examples/tutorial/embedded/TransferLoop.hs b/examples/tutorial/embedded/TransferLoop.hs index 5663a1eb5..07b530f74 100644 --- a/examples/tutorial/embedded/TransferLoop.hs +++ b/examples/tutorial/embedded/TransferLoop.hs @@ -1,12 +1,12 @@ module Main where import GF.Embed.EmbedAPI -import GSyntax +import TransferDef (transfer) main :: IO () main = do gr <- file2grammar "math.gfcm" - loop (translate answerTree gr) + loop (translate transfer gr) loop :: (String -> String) -> IO () loop trans = do @@ -21,21 +21,3 @@ translate tr gr = unlines . map transLine . lines where (lg,t:_):_ -> linearize gr lg (tr t) _ -> "NO PARSE" -answerTree :: Tree -> Tree -answerTree = gf . answer . fg - -answer :: GQuestion -> GAnswer -answer p = case p of - GOdd x -> test odd x - GEven x -> test even x - GPrime x -> test prime x - -value :: GObject -> Int -value e = case e of - GNumber (GInt i) -> fromInteger i - -test :: (Int -> Bool) -> GObject -> GAnswer -test f x = if f (value x) then GYes else GNo - -prime :: Int -> Bool -prime = (< 8) ---- -- cgit v1.2.3