Unicode. Batch transl into HTML.

2026-04-22 19:22:50 -06:00 · 2004-01-28 12:42:20 +00:00
parent fdda9fac0a
commit dec8e76616
12 changed files with 84 additions and 12 deletions
--- a/src/GF/Translate/GFT.hs
+++ 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 "<p>" . map (encodeUTF8 . mkUnicode) . sort
+
+htmlDoc ss = "<html>":metaHead:"<body>": ss ++ ["</body>","</html>"]
+
+metaHead =
+ "<HEAD><META http-equiv=Content-Type content=\"text/html; charset=utf-8\"></HEAD>"
+