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

Added lookPrintName.

Browse Source
This commit is contained in:
bjorn
2008-06-03 19:56:51 +00:00
parent c334b15abf
commit 783f5a0aec
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src-3.0/PGF/Macros.hs
View File

@@ -26,6 +26,10 @@ lookParamLincat :: PGF -> CId -> CId -> Term
lookParamLincat pgf lang fun = lookParamLincat pgf lang fun =
lookMap tm0 fun $ paramlincats $ lookMap (error "no lang") lang $ concretes pgf lookMap tm0 fun $ paramlincats $ lookMap (error "no lang") lang $ concretes pgf
lookPrintName :: PGF -> CId -> CId -> Term
lookPrintName pgf lang fun =
lookMap tm0 fun $ printnames $ lookMap (error "no lang") lang $ concretes pgf
lookType :: PGF -> CId -> Type lookType :: PGF -> CId -> Type
lookType pgf f = lookType pgf f =
fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract pgf)) fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract pgf))