diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-08 16:37:30 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-08 16:37:30 +0000 |
| commit | 44df29f52d074f372053e7b622849c65608728c4 (patch) | |
| tree | c4365b2af7a0f12e8afdddeff591115cce8a842f /src/GF/Devel | |
| parent | 23b2826a4476c1514e368d86e09434108da7836f (diff) | |
gfi linearization with flags -table -record -term
Diffstat (limited to 'src/GF/Devel')
| -rw-r--r-- | src/GF/Devel/GrammarToGFCC.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs index 66b238267..9c052b35c 100644 --- a/src/GF/Devel/GrammarToGFCC.hs +++ b/src/GF/Devel/GrammarToGFCC.hs @@ -175,16 +175,17 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do mkPType typ = case typ of RecType lts -> do ts <- mapM (mkPType . snd) lts - return $ C.R ts + return $ C.R [ C.P (kks $ prt_ l) t | ((l,_),t) <- zip lts ts] Table p v -> do p' <- mkPType p v' <- mkPType v return $ C.S [p',v'] Sort "Str" -> return $ C.S [] _ -> return $ - C.FV $ map (C.K . C.KS . filter showable . prt_) $ + C.FV $ map (kks . filter showable . prt_) $ errVal [] $ Look.allParamValues sgr typ showable c = not (isSpace c) ---- || (c == ' ') -- to eliminate \n in records + kks = C.K . C.KS -- return just one module per language |