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

Rename gfcats to startupcats in PGF.

Browse Source
This commit is contained in:
bjorn
2008-02-15 20:13:01 +00:00
parent 5b4a228215
commit 8873196f84
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/GFCC/Raw/ConvertGFCC.hs
View File

@@ -67,7 +67,7 @@ toConcr = foldl add (Concr {
add cnc (App (CId "parser") ts) = cnc { parser = Just (toPInfo ts) } add cnc (App (CId "parser") ts) = cnc { parser = Just (toPInfo ts) }
toPInfo :: [RExp] -> FCFPInfo toPInfo :: [RExp] -> FCFPInfo
toPInfo [App (CId "rules") rs, App (CId "gfcats") cs] = buildFCFPInfo (rules, cats) toPInfo [App (CId "rules") rs, App (CId "startupcats") cs] = buildFCFPInfo (rules, cats)
where where
rules = lmap toFRule rs rules = lmap toFRule rs
cats = fromList [(c, lmap expToInt fs) | App c fs <- cs] cats = fromList [(c, lmap expToInt fs) | App c fs <- cs]
@@ -219,7 +219,7 @@ fromTerm e = case e of
fromPInfo :: FCFPInfo -> RExp fromPInfo :: FCFPInfo -> RExp
fromPInfo p = app "parser" [ fromPInfo p = app "parser" [
app "rules" [fromFRule rule | rule <- Array.elems (allRules p)], app "rules" [fromFRule rule | rule <- Array.elems (allRules p)],
app "gfcats" [App f (lmap intToExp cs) | (f,cs) <- toList (startupCats p)] app "startupcats" [App f (lmap intToExp cs) | (f,cs) <- toList (startupCats p)]
] ]
fromFRule :: FRule -> RExp fromFRule :: FRule -> RExp