GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

bug fixes: too much reading of files ; lin of variant records

Browse Source
This commit is contained in:
aarne
2006-06-01 07:51:53 +00:00
parent 0e484f094f
commit 5e665fa2ac
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Infra/ReadFiles.hs
View File

@@ -96,7 +96,8 @@ selectFormat opts env (p,f) = do
(Just tenv,_,_,Just tgf) | laterModTime tenv tgf -> (CSEnvR,Just tenv) (Just tenv,_,_,Just tgf) | laterModTime tenv tgf -> (CSEnvR,Just tenv)
(_,Just tenv,_,Just tgf) | laterModTime tenv tgf -> (CSEnv, Just tenv) (_,Just tenv,_,Just tgf) | laterModTime tenv tgf -> (CSEnv, Just tenv)
(_,_,Just tgfc,Just tgf) | laterModTime tgfc tgf -> (CSRead,Just tgfc) (_,_,Just tgfc,Just tgf) | laterModTime tgfc tgf -> (CSRead,Just tgfc)
(_,_,_, Nothing) -> (CSRead,Nothing) -- source does not exist (_,Just tenv,_,Nothing) -> (CSEnv,Just tenv) -- source does not exist
(_,_,_, Nothing) -> (CSRead,Nothing) -- source does not exist
_ -> (CSComp,Nothing) _ -> (CSComp,Nothing)
return $ (f, (p,stat)) return $ (f, (p,stat))

3
src/GF/UseGrammar/Linear.hs
View File

@@ -75,7 +75,8 @@ linearizeToRecord gr mk m = lin [] where
look = lookupLin gr . redirectIdent m . rtQIdent look = lookupLin gr . redirectIdent m . rtQIdent
comp = ccompute gr comp = ccompute gr
mkBinds bs bdy = case bdy of mkBinds bs bdy = case bdy of
R fs -> R $ [Ass (LV i) (tK (prt t)) | (i,(t,_)) <- zip [0..] bs] ++ fs R fs -> R $ [Ass (LV i) (tK (prt t)) | (i,(t,_)) <- zip [0..] bs] ++ fs
FV rs -> FV $ map (mkBinds bs) rs
recS t = R [Ass (L (identC "s")) t] ---- recS t = R [Ass (L (identC "s")) t] ----