From 1ca54cca208876f83014119da55e747d5342b434 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 28 Jan 2004 12:42:20 +0000 Subject: Unicode. Batch transl into HTML. --- src/GF/Translate/GFT.hs | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create 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 new file mode 100644 index 000000000..0dd42c6d2 --- /dev/null +++ b/src/GF/Translate/GFT.hs @@ -0,0 +1,43 @@ +module Main where + +import ShellState +import GetGFC +import API + +import Unicode +import UTF8 +import UseIO +import Option +import Modules (emptyMGrammar) ---- +import Operations + +import System +import 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 s + +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