From 947949648f3dacffa2bb075e1bd561ba31760908 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 7 Nov 2007 16:30:56 +0000 Subject: added fields for global options and showable lincats to gfcc --- src/GF/GFCC/Macros.hs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/GF/GFCC/Macros.hs') 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 = -- cgit v1.2.3