From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/GF/Embed/TemplateApp.hs | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 src/GF/Embed/TemplateApp.hs

(limited to 'src/GF/Embed/TemplateApp.hs')

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"
-  ]
-- 
cgit v1.2.3