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

UTF8 encoding of strings in terms in GFCC in gfc

Browse Source
This commit is contained in:
aarne
2007-10-08 14:20:37 +00:00
parent 5a881a90dd
commit 38a517aafa
4 changed files with 49 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/GFCC/Macros.hs
View File

@@ -24,6 +24,14 @@ lookType :: GFCC -> CId -> Type
lookType gfcc f =
fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract gfcc))
lookAbsFlag :: GFCC -> CId -> String
lookAbsFlag gfcc f =
lookMap (error $ "lookAbsFlag " ++ show f) f (aflags (abstract gfcc))
lookFlag :: GFCC -> CId -> CId -> String
lookFlag gfcc lang fun =
lookMap "?" fun $ flags $ lookMap (error "no lang") lang $ concretes gfcc
functionsToCat :: GFCC -> CId -> [(CId,Type)]
functionsToCat gfcc cat =
[(f,ty) | f <- fs, Just (ty,_) <- [Data.Map.lookup f $ funs $ abstract gfcc]]