msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

gfi linearization with flags -table -record -term

Browse Source
This commit is contained in:
aarne
2007-11-08 16:37:30 +00:00
parent 23b2826a44
commit 44df29f52d
4 changed files with 87 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Devel/GrammarToGFCC.hs
View File

@@ -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