GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-17 16:59:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

Preparing for release.

Browse Source
This commit is contained in:
aarne
2004-08-03 11:47:32 +00:00
parent dba69cf2fd
commit fb8a7357c4
9 changed files with 174 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Shell/ShellCommands.hs
View File

@@ -161,7 +161,7 @@ optionsOfCommand co = case co of
CShowTerm -> flags "printer"
CSystemCommand _ -> none
CPrintGrammar -> both "utf8" "printer"
CPrintGrammar -> both "utf8" "printer lang"
CPrintMultiGrammar -> opts "utf8"
CHelp _ -> opts "all"

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

@@ -9,6 +9,8 @@ import API
import CommandL
import ArchEdit
import List
-- AR 20/4/2000 -- 12/11/2001
editSession :: Options -> ShellState -> IO ()
@@ -26,10 +28,10 @@ translateSession :: Options -> ShellState -> IO ()
translateSession opts st = do
let grs = allStateGrammars st
cat = firstCatOpts opts (firstStateGrammar st)
trans s = unlines $
trans s = unlines $
if oElem showLang opts then
[l +++ ":" +++ s | (l,s) <- zip (map (prIdent . cncId) grs)
(translateBetweenAll grs cat s)]
sort $ [l +++ ":" +++ s | (l,s) <- zip (map (prIdent . cncId) grs)
(translateBetweenAll grs cat s)]
else translateBetweenAll grs cat s
translateLoop opts trans