diff options
| author | bringert <bringert@cs.chalmers.se> | 2008-01-03 17:10:05 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2008-01-03 17:10:05 +0000 |
| commit | af1a3a2473747942dcec647a42e5724fcb21d1b9 (patch) | |
| tree | e08020dce28ad35a5434328e6483ec695693fc20 /src/GF/Compile/ShellState.hs | |
| parent | 43ddb41d314e7d547fa8f8bb1cd23397dfa30f65 (diff) | |
Store FCFPInfo (all information needed for FCFG parsing) in GFCC files, and in the internal DataGFCC.GFCC structure. The parsing information format is still in flux.
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index e2e5486ca..0e24da601 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -19,6 +19,7 @@ import GF.Canon.GFC import GF.Canon.AbsGFC import GF.GFCC.CId --import GF.GFCC.DataGFCC(mkGFCC) +import GF.GFCC.Macros (lookFCFG) import GF.Canon.CanonToGFCC import GF.Grammar.Macros import GF.Grammar.MMacros @@ -263,9 +264,8 @@ updateShellState opts ign mcnc sh ((_,sgr,gr,eenv),rts) = do let fromGFC = snd . snd . Cnv.convertGFC opts (mcfgs, cfgs) = unzip $ map (curry fromGFC cgr) concrs - fcfgs0 = [(IC id,g) | (CId id,g) <- - FCnv.convertGrammar (canon2gfcc opts cgr)] ---- UTF8 - fcfgs = [(c,g) | c <- concrs, Just g <- [lookup c fcfgs0]] + gfcc = canon2gfcc opts cgr ---- UTF8 + fcfgs = [(c,g) | c@(IC cn) <- concrs, Just g <- [lookFCFG gfcc (CId cn)]] pInfos = zipWith3 Prs.buildPInfo mcfgs (map snd fcfgs) cfgs let funs = funRulesOf cgr |