modernized parser in EmbedAPI

1 files changed, 16 insertions, 0 deletions

diff --git a/examples/tutorial/embedded/Translator.hs b/examples/tutorial/embedded/Translator.hs
new file mode 100644
index 000000000..c227420f6
--- /dev/null
+++ b/examples/tutorial/embedded/Translator.hs
@@ -0,0 +1,16 @@
+module Main where
+
+import GF.Embed.EmbedAPI
+import System (getArgs)
+
+main :: IO () 
+main = do
+  file:_ <- getArgs
+  gr <- file2grammar file
+  interact (translate gr)
+
+translate :: MultiGrammar -> String -> String
+translate gr = unlines . map transLine . lines where
+  transLine s =
+    let (lang,tree:_):_ = parseAllLang gr (startCat gr) s
+    in unlines [linearize gr lg tree | lg <- languages gr, lg /= lang]