removed src for 2.9

1 files changed, 0 insertions, 44 deletions

diff --git a/src/GF/Embed/TemplateApp.hs b/src/GF/Embed/TemplateApp.hs
deleted file mode 100644
index f8722691f..000000000
--- a/src/GF/Embed/TemplateApp.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-module Main where
-
-import GF.Embed.EmbedAPI
-import System
-
--- Simple translation application built on EmbedAPI. AR 7/10/2005
-
-main :: IO ()
-main = do
-  file:_  <- getArgs
-  grammar <- file2grammar file
-  translate grammar
-
-translate :: MultiGrammar -> IO ()
-translate grammar = do
-  s <- getLine
-  if s == "quit" then return () else do
-    treat grammar s
-    translate grammar
-
-treat :: MultiGrammar -> String -> IO ()
-treat grammar s = putStrLn $ case comm of
-  ["lin"]        -> unlines $ linearizeAll grammar $ readTree grammar rest 
-  ["lin",lang]   -> linearize grammar lang $ readTree grammar rest 
-  ["parse",cat]  -> unlines $ map showTree $ concat $ parseAll grammar cat rest
-  ["parse",lang,cat] -> unlines $ map showTree $ parse grammar lang cat rest
-  ["langs"]      -> unwords $ languages grammar
-  ["cats"]       -> unwords $ categories grammar
-  ["help"]       -> helpMsg
-  _ -> "command not interpreted: " ++ s
- where
-   (comm,rest) = (words c,drop 1 r) where
-      (c,r) = span (/=':') s
-
-helpMsg = unlines [
-  "lin : <Tree>",
-  "lin <Lang> : <Tree>",
-  "parse <Cat> : <String>",
-  "parse <Lang> <Cat> : <String>",
-  "langs",
-  "cats",
-  "help",
-  "quit"
-  ]