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

(Morphodict) Replace space/- in identifiers with _

Browse Source
This commit is contained in:
Inari Listenmaa
2021-06-04 13:27:26 +08:00
parent d2d841e949
commit 9275d5e720
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/morphodict/MkMorphodict.hs
View File

@@ -163,14 +163,18 @@ mkMorphoDict env =
_ | length (nub (map tail fls)) == length fls -> shrinkMore (map tail fls)
_ -> fls
mkFun = showCId . mkCId . concat . intersperse "_"
-- >>> mkFun ["hello", "world", "hello friends", "hello-all"]
-- "hello_world_hello_friends_hello_all"
mkFun :: [String] -> String -- if word contains space or hyphen, replace with underscore
mkFun = showCId . mkCId . concat . intersperse "_" . concatMap (words . removeHyphen)
where
removeHyphen [] = []
removeHyphen ['-'] = ['-'] -- If hyphen is the last character, it's usually meaningful, leave it
removeHyphen ('-':cs) = ' ' : removeHyphen cs
removeHyphen (c:cs) = c : removeHyphen cs
quote s = "\"" ++ s ++ "\""
{- ---- let us ignore this
findCompounds :: [RuleData] -> [RuleData]
findCompounds = getCompounds . sortOn cat_orthrevforms