GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-15 07:49:31 -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

4
src/GF/Shell.hs
View File

@@ -41,6 +41,7 @@ data Command =
CImport FilePath
| CRemoveLanguage Language
| CEmptyState
| CStripState
| CTransformGrammar FilePath
| CConvertLatex FilePath
@@ -143,6 +144,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of
st1 <- shellStateFromFiles opts st file
ioeIO $ changeState (const st1) sa --- \ ((_,h),a) -> ((st,h), a))
CEmptyState -> changeState reinitShellState sa
CStripState -> changeState purgeShellState sa
{-
CRemoveLanguage lan -> changeState (removeLanguage lan) sa
@@ -209,7 +211,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of
CPrintInformation c -> justOutput (useIOE () $ showInformation opts st c) sa
CPrintLanguages -> justOutput
(putStrLn $ unwords $ map prLanguage $ allLanguages st) sa
---- CPrintMultiGrammar -> returnArg (AString (prMultiGrammar opts st)) sa
CPrintMultiGrammar -> returnArg (AString (prCanonGrammar (canModules st))) sa
---- CPrintGramlet -> returnArg (AString (Gr.prGramlet st)) sa
---- CPrintCanonXML -> returnArg (AString (Canon.prCanonXML st False)) sa
---- CPrintCanonXMLStruct -> returnArg (AString (Canon.prCanonXML st True)) sa