GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-10 05:29:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Introduced output of stripped format gfcm.

Browse Source
This commit is contained in:
aarne
2003-12-09 16:39:24 +00:00
parent 75c67f82f5
commit 054ef0a1ac
14 changed files with 147 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Shell/SubShell.hs
View File

@@ -26,7 +26,11 @@ translateSession :: Options -> ShellState -> IO ()
translateSession opts st = do
let grs = allStateGrammars st
cat = firstCatOpts opts (firstStateGrammar st)
trans = unlines . translateBetweenAll grs cat
trans s = unlines $
if oElem showLang opts then
[l +++ ":" +++ s | (l,s) <- zip (map (prIdent . cncId) grs)
(translateBetweenAll grs cat s)]
else translateBetweenAll grs cat s
translateLoop opts trans
translateLoop opts trans = do