GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 02:02:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

simplified 1.5 by removing mathematical/

Browse Source
This commit is contained in:
aarne
2008-10-06 12:49:13 +00:00
parent f376576af0
commit e56e6483f6
29 changed files with 308 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/PGF/Macros.hs
View File

@@ -34,6 +34,10 @@ lookType :: PGF -> CId -> Type
lookType pgf f =
fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract pgf))
lookDef :: PGF -> CId -> Expr
lookDef pgf f =
snd $ lookMap (error $ "lookDef " ++ show f) f (funs (abstract pgf))
lookValCat :: PGF -> CId -> CId
lookValCat pgf = valCat . lookType pgf
@@ -137,4 +141,4 @@ combinations t = case t of
aa:uu -> [a:u | a <- aa, u <- combinations uu]
isLiteralCat :: CId -> Bool
isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])
isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])