diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-08 14:20:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-08 14:20:37 +0000 |
| commit | 38a517aafa380a58e5398b71904b054ddefa4555 (patch) | |
| tree | 8696014a9fa0e4160dba7b309d5d4e765cc85b5e /src/GF/GFCC/Macros.hs | |
| parent | 5a881a90dde265720cf2d537787acfc842d0475d (diff) | |
UTF8 encoding of strings in terms in GFCC in gfc
Diffstat (limited to 'src/GF/GFCC/Macros.hs')
| -rw-r--r-- | src/GF/GFCC/Macros.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/GF/GFCC/Macros.hs b/src/GF/GFCC/Macros.hs index 2fe6770f1..a44250e98 100644 --- a/src/GF/GFCC/Macros.hs +++ b/src/GF/GFCC/Macros.hs @@ -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]] |