From 5c713d8f027a9b6be687ee3f7e917e8bd2115773 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 27 Jun 2008 09:18:50 +0000
Subject: took away old-examples

---
 old-examples/tutorial/embedded/Translator.hs | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 old-examples/tutorial/embedded/Translator.hs

(limited to 'old-examples/tutorial/embedded/Translator.hs')

diff --git a/old-examples/tutorial/embedded/Translator.hs b/old-examples/tutorial/embedded/Translator.hs
deleted file mode 100644
index c227420f6..000000000
--- a/old-examples/tutorial/embedded/Translator.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module Main where
-
-import GF.Embed.EmbedAPI
-import System (getArgs)
-
-main :: IO () 
-main = do
-  file:_ <- getArgs
-  gr <- file2grammar file
-  interact (translate gr)
-
-translate :: MultiGrammar -> String -> String
-translate gr = unlines . map transLine . lines where
-  transLine s =
-    let (lang,tree:_):_ = parseAllLang gr (startCat gr) s
-    in unlines [linearize gr lg tree | lg <- languages gr, lg /= lang]      
-- 
cgit v1.2.3