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

updated morphodict/README.md with MkMorphodict help

Browse Source
This commit is contained in:
aarneranta
2021-05-28 14:44:52 +02:00
parent 7c4546f3c3
commit 38d852a5bb
2 changed files with 47 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/morphodict/MkMorphodict.hs
+1 -2
View File
@@ -20,7 +20,6 @@ import System.Environment (getArgs)
-- example:
-- gf -make ../english/DictEng.gf
-- runghc
-- runghc MkMorphodict.hs pgf MorphoDictEng.config DictEngAbs.pgf MorphoDictEng
-- 64923 -> 56599 functions
@@ -138,7 +137,7 @@ mkMorphoDict env =
_ -> []
renames :: [RawRule] -> [RuleData]
-- renames fls = [((mkFun (f ++ [show i,c]),c),l) | (i,((f,c),l)) <- zip [1..] fls] -- disambiguate with int
--- renames fls = [((mkFun (f ++ [show i,c]),c),l) | (i,((f,c),l)) <- zip [1..] fls] -- disambiguate with int
renames fls = [((mkFun (f ++ fs ++ [c]),c),l) | (i,(((f,c),l),fs)) <- zip [1..] (zip fls (minimize fls))] -- disambiguate with different forms
minimize :: [RawRule] -> [[String]]