From 5c713d8f027a9b6be687ee3f7e917e8bd2115773 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 27 Jun 2008 09:18:50 +0000 Subject: took away old-examples --- old-examples/tutorial/embedded/haskell/Run.hs | 38 --------------------------- 1 file changed, 38 deletions(-) delete mode 100644 old-examples/tutorial/embedded/haskell/Run.hs (limited to 'old-examples/tutorial/embedded/haskell/Run.hs') diff --git a/old-examples/tutorial/embedded/haskell/Run.hs b/old-examples/tutorial/embedded/haskell/Run.hs deleted file mode 100644 index c3fd87466..000000000 --- a/old-examples/tutorial/embedded/haskell/Run.hs +++ /dev/null @@ -1,38 +0,0 @@ -module Main where - -import GSyntax -import GF.Embed.EmbedAPI - -main :: IO () -main = do - gr <- file2grammar "math.gfcm" - loop gr - -loop :: MultiGrammar -> IO () -loop gr = do - s <- getLine - interpret gr s - loop gr - -interpret :: MultiGrammar -> String -> IO () -interpret gr s = do - let ltss = parseAllLang gr "Question" s - case ltss of - [] -> putStrLn "no parse" - (l,t:_):_ -> putStrLn $ linearize gr l $ gf $ answer $ fg t - -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