diff options
| author | aarne <unknown> | 2003-10-03 06:31:34 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-10-03 06:31:34 +0000 |
| commit | cfe8ebc1fbbf60d7d90aaa4776b029b5eb84ae98 (patch) | |
| tree | 825960028ae55f135419f12a900cfd017cadb772 /src/GF/Compile/ShellState.hs | |
| parent | 3f328521917263f2b3dbe225edaf9e919c30156e (diff) | |
Restored read term in editor.
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 85bc24ae0..3c1dffb07 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -23,11 +23,11 @@ import Arch (ModTime) -- multilingual state with grammars and options data ShellState = ShSt { - abstract :: Maybe Ident , -- pointer to actual abstract; nothing in empty st + abstract :: Maybe Ident , -- pointer to actual abstract, if not empty st concrete :: Maybe Ident , -- pointer to primary concrete concretes :: [(Ident,Ident)], -- list of all concretes - canModules :: CanonGrammar , -- the place where abstracts and concretes reside - srcModules :: G.SourceGrammar , -- the place of saved resource modules + canModules :: CanonGrammar , -- compiled abstracts and concretes + srcModules :: G.SourceGrammar , -- saved resource modules cfs :: [(Ident,CF)] , -- context-free grammars morphos :: [(Ident,Morpho)], -- morphologies gloptions :: Options, -- global options @@ -69,6 +69,7 @@ data StateGrammar = StGr { cncId :: Ident, grammar :: CanonGrammar, cf :: CF, +---- parser :: StaticParserInfo, morpho :: Morpho } @@ -91,7 +92,8 @@ cncModuleIdST = stateGrammarST -- form a shell state from a canonical grammar grammar2shellState :: Options -> (CanonGrammar, G.SourceGrammar) -> Err ShellState -grammar2shellState opts (gr,sgr) = updateShellState opts emptyShellState (gr,(sgr,[])) +grammar2shellState opts (gr,sgr) = + updateShellState opts emptyShellState (gr,(sgr,[])) -- update a shell state from a canonical grammar |