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

(Hun) Handle dashes separately from multiwords

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-28 14:10:37 +02:00
parent 9922d750db
commit 7f2a5bf18f
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/hungarian/NounMorphoHun.gf
View File

@@ -631,18 +631,23 @@ oper
} ; } ;
Multiword : Type = {p1,p2 : Str} ; Multiword : Type = {p1,p2 : Str} ;
splitMultiword : Str -> Multiword = \multi_word -> case multi_word of { splitMultiword : Str -> Multiword = \mw -> case mw of {
x + "-" + y
=> <x+"-", y> ;
v + " " + w + " " + x + " " + y + " " + z v + " " + w + " " + x + " " + y + " " + z
=> <v ++ w ++ x ++ y+" ", z> ; => splitDash <v ++ w ++ x ++ y+" ", z> ;
w + " " + x + " " + y + " " + z w + " " + x + " " + y + " " + z
=> <w ++ x ++ y+" ", z> ; => splitDash <w ++ x ++ y+" ", z> ;
x + " " + y + " " + z x + " " + y + " " + z
=> <x ++ y+" ", z> ; => splitDash <x ++ y+" ", z> ;
y + " " + z y + " " + z
=> <y + " ", z> ; => splitDash <y + " ", z> ;
_ => <"", multi_word> _ => splitDash <"", mw>
} ; } ;
splitDash : Multiword -> Multiword = \mw ->
case mw of {
<prefix, x + "-" + y>
=> <prefix ++ x + "-", y> ;
_ => mw
} ;
} }