msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests 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

8
src/morphodict/MkMorphodict.hs
View File

@@ -138,8 +138,12 @@ mkMorphoDict env =
_ -> []
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 "_"
quote s = "\"" ++ s ++ "\""