mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
(Hun) For multiwords, get harmony of the last word.
This commit is contained in:
@@ -471,7 +471,11 @@ oper
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
-- Function to get a harmony from a string
|
-- Function to get a harmony from a string
|
||||||
getHarm : Str -> Harm = \s -> case s of {
|
getHarm : Str -> Harm = \s ->
|
||||||
|
let lastWord : Str = case s of {
|
||||||
|
x + " " + y => y ;
|
||||||
|
_ => s } ;
|
||||||
|
in case lastWord of {
|
||||||
_ + #back + _ => H_a ;
|
_ + #back + _ => H_a ;
|
||||||
_ + #front_rounded + (#c|"") + (#c|"") => H_o ;
|
_ + #front_rounded + (#c|"") + (#c|"") => H_o ;
|
||||||
_ => H_e
|
_ => H_e
|
||||||
|
|||||||
Reference in New Issue
Block a user