msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

cleaned up new GFCC, but added RP as deprecated

Browse Source
This commit is contained in:
aarne
2007-10-05 09:02:47 +00:00
parent cc104236df
commit 945a49214b
10 changed files with 244 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Devel/GrammarToGFCC.hs
View File

@@ -48,7 +48,7 @@ canon2gfcc opts cgr@(M.MGrammar ((a,M.ModMod abm):cms)) =
cns = map (i2i . fst) cms
abs = D.Abstr aflags funs cats catfuns
aflags = Map.fromAscList [] ---- flags
lfuns = [(f', (mkType ty,CM.tree (C.AC f') [])) | ---- defs
lfuns = [(f', (mkType ty,CM.primNotion)) | ---- defs
(f,AbsFun (Yes ty) _) <- tree2list (M.jments abm), let f' = i2i f]
funs = Map.fromAscList lfuns
lcats = [(i2i c,[]) | ---- context