diff options
Diffstat (limited to 'src/GF/GFCC/Macros.hs')
| -rw-r--r-- | src/GF/GFCC/Macros.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/GF/GFCC/Macros.hs b/src/GF/GFCC/Macros.hs index f75941f53..cb4727e61 100644 --- a/src/GF/GFCC/Macros.hs +++ b/src/GF/GFCC/Macros.hs @@ -24,13 +24,17 @@ lookType :: GFCC -> CId -> Type lookType gfcc f = fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract gfcc)) +lookGlobalFlag :: GFCC -> CId -> String +lookGlobalFlag gfcc f = + lookMap "?" f (gflags gfcc) + lookAbsFlag :: GFCC -> CId -> String lookAbsFlag gfcc f = - lookMap (error $ "lookAbsFlag " ++ show f) f (aflags (abstract gfcc)) + lookMap "?" f (aflags (abstract gfcc)) -lookFlag :: GFCC -> CId -> CId -> String -lookFlag gfcc lang fun = - lookMap "?" fun $ flags $ lookMap (error "no lang") lang $ concretes gfcc +lookCncFlag :: GFCC -> CId -> CId -> String +lookCncFlag gfcc lang f = + lookMap "?" f $ cflags $ lookMap (error "no lang") lang $ concretes gfcc functionsToCat :: GFCC -> CId -> [(CId,Type)] functionsToCat gfcc cat = |