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

Change "proj" to "P" in GFCC parse rules to save space.

Browse Source
This commit is contained in:
bringert
2008-01-07 21:31:45 +00:00
parent ff9e6404b8
commit ad355515b0
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

@@ -115,7 +115,7 @@ toFName (App f ts) = Name f (lmap toProfile ts)
toSyntaxForest (AFlt f) = FFloat f toSyntaxForest (AFlt f) = FFloat f
toSymbol :: RExp -> FSymbol toSymbol :: RExp -> FSymbol
toSymbol (App (CId "proj") [c,n,l]) = FSymCat (expToInt c) (expToInt l) (expToInt n) toSymbol (App (CId "P") [c,n,l]) = FSymCat (expToInt c) (expToInt l) (expToInt n)
toSymbol (AStr t) = FSymTok t toSymbol (AStr t) = FSymTok t
toAssoc :: Ord a => (RExp -> a) -> ([RExp] -> b) -> [RExp] -> Assoc a b toAssoc :: Ord a => (RExp -> a) -> ([RExp] -> b) -> [RExp] -> Assoc a b
@@ -276,7 +276,7 @@ fromFName n = case n of
fromSyntaxForest (FFloat f) = AFlt f fromSyntaxForest (FFloat f) = AFlt f
fromSymbol :: FSymbol -> RExp fromSymbol :: FSymbol -> RExp
fromSymbol (FSymCat c l n) = app "proj" [intToExp c, intToExp n, intToExp l] fromSymbol (FSymCat c l n) = app "P" [intToExp c, intToExp n, intToExp l]
fromSymbol (FSymTok t) = AStr t fromSymbol (FSymTok t) = AStr t
-- ** Utilities -- ** Utilities