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

gfc now generates gfcc with deptypes, defs, printnames

Browse Source
This commit is contained in:
aarne
2007-10-08 12:45:39 +00:00
parent d24f495274
commit 91a1d04def
3 changed files with 71 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Source/GrammarToSource.hs
View File

@@ -102,11 +102,11 @@ trAnyDef (i,info) = let i' = tri i in case info of
CncCat (Yes ty) Nope _ ->
[P.DefLincat [P.PrintDef [mkName i'] (trt ty)]]
CncCat pty ptr ppr ->
[P.DefLindef [trDef i' pty ptr]]
---- P.DefPrintCat [P.PrintDef i' (trt pr)]]
[P.DefLindef [trDef i' pty ptr]] ++
[P.DefPrintCat [P.PrintDef [mkName i] (trt pr)] | Yes pr <- [ppr]]
CncFun _ ptr ppr ->
[P.DefLin [trDef i' nope ptr]]
---- P.DefPrintFun [P.PrintDef i' (trt pr)]]
[P.DefLin [trDef i' nope ptr]] ++
[P.DefPrintFun [P.PrintDef [mkName i] (trt pr)] | Yes pr <- [ppr]]
{-
---- encoding of AnyInd without changing syntax. AR 20/9/2007
AnyInd s b ->