diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-07 16:30:56 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-07 16:30:56 +0000 |
| commit | 947949648f3dacffa2bb075e1bd561ba31760908 (patch) | |
| tree | 8573f08513bcd59613df8fc9d0a382fd17090f53 /src/GF/GFCC/Macros.hs | |
| parent | 0be4e801f45e7ec4b2d75575c0cf36053cc62754 (diff) | |
added fields for global options and showable lincats to gfcc
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 = |