From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 25 Jun 2008 16:43:48 +0000 Subject: removed src for 2.9 --- src/GF/Translate/GFT.hs | 56 ------------------------------------------------- 1 file changed, 56 deletions(-) delete mode 100644 src/GF/Translate/GFT.hs (limited to 'src/GF/Translate') diff --git a/src/GF/Translate/GFT.hs b/src/GF/Translate/GFT.hs deleted file mode 100644 index e4a9d8193..000000000 --- a/src/GF/Translate/GFT.hs +++ /dev/null @@ -1,56 +0,0 @@ ----------------------------------------------------------------------- --- | --- Maintainer : AR --- Stability : (stable) --- Portability : (portable) --- --- > CVS $Date: 2005/04/21 16:23:43 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.7 $ --- --- (Description of the module) ------------------------------------------------------------------------------ - -module GF.Translate.GFT (main) where - -import GF.Compile.ShellState -import GF.Canon.GetGFC -import GF.API - -import GF.Text.Unicode -import GF.Text.UTF8 -import GF.Infra.UseIO -import GF.Infra.Option -import GF.Infra.Modules (emptyMGrammar) ---- -import GF.Data.Operations - -import System -import Data.List - - -main :: IO () -main = do - file:_ <- getArgs - let opts = noOptions - can <- useIOE (error "no grammar file") $ getCanonGrammar file - st <- err error return $ - grammar2shellState opts (can, emptyMGrammar) - let grs = allStateGrammars st - let cat = firstCatOpts opts (firstStateGrammar st) - ----- interact (doTranslate grs cat) - s <- getLine - putStrLnFlush $ doTranslate grs cat $ drop 2 s -- to remove "n=" - -doTranslate grs cat s = - let ss = [l +++ ":" +++ s | (l,s) <- zip (map (prIdent . cncId) grs) - (translateBetweenAll grs cat s)] - in mkHTML ss - -mkHTML = unlines . htmlDoc . intersperse "

" . map (encodeUTF8 . mkUnicode) . sort - -htmlDoc ss = "":metaHead:"": ss ++ ["",""] - -metaHead = - "" - -- cgit v1.2.3