GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

using form lists for disambiguating fun names in MkMorphoDict

Browse Source
This commit is contained in:
aarneranta
2021-05-28 11:48:04 +02:00
parent 71d7de2577
commit 73050c74a1
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/morphodict/MkMorphodict.hs
View File

@@ -138,7 +138,11 @@ mkMorphoDict env =
_ -> [] _ -> []
renames :: [RawRule] -> [RuleData] renames :: [RawRule] -> [RuleData]
renames fls = [((mkFun (f ++ [show i,c]),c),l) | (i,((f,c),l)) <- zip [1..] fls] ---- TODO disambiguate with a form, not int -- renames fls = [((mkFun (f ++ [show i,c]),c),l) | (i,((f,c),l)) <- zip [1..] fls] -- disambiguate with int
renames fls = [((mkFun (f ++ diff l ++ [c]),c),l) | (i,((f,c),l)) <- zip [1..] fls] -- disambiguate with different forms
where
diff l = let (_:ws, fs) = snd l in ws ++ fs
---- formlists = [ws ++ fs | (_:ws,fs) <- map (snd . snd) ls]
mkFun = showCId . mkCId . concat . intersperse "_" mkFun = showCId . mkCId . concat . intersperse "_"