forked from GitHub/gf-rgl
fix some bugs in synthetic verbs
This commit is contained in:
@@ -79,10 +79,12 @@ oper
|
|||||||
|
|
||||||
norkUkanMid : Agr => Str = table {
|
norkUkanMid : Agr => Str = table {
|
||||||
Hi Masc => "a" ; Hi Fem => "na" ;
|
Hi Masc => "a" ; Hi Fem => "na" ;
|
||||||
Ni => "da" ; x => norkUkanLast ! x } ;
|
Ni => "da" ; Hauek => "e" ;
|
||||||
|
x => norkUkanLast ! x } ;
|
||||||
|
|
||||||
noriUkanLast : Agr => Str = table {
|
noriUkanLast : Agr => Str = table {
|
||||||
Hau => "o" ; x => norkUkanLast ! x } ;
|
Hau => "o" ; Hauek => "e" ;
|
||||||
|
x => norkUkanLast ! x } ;
|
||||||
|
|
||||||
noriUkanMid : Agr => Str = table {
|
noriUkanMid : Agr => Str = table {
|
||||||
Hau => "o" ; Hauek => "e" ;
|
Hau => "o" ; Hauek => "e" ;
|
||||||
@@ -250,7 +252,7 @@ oper
|
|||||||
---
|
---
|
||||||
|
|
||||||
te : Str = case nor of { Zuek => "te" ; _ => [] } ;
|
te : Str = case nor of { Zuek => "te" ; _ => [] } ;
|
||||||
zki : Str = case getNum nori of { Sg => [] ; Pl => "zki" } ;
|
zki : Str = case nor of { (Zu|Zuek|Gu|Hauek) => "zki" ; _ => [] } ;
|
||||||
|
|
||||||
tenses : Tense => Str = table {
|
tenses : Tense => Str = table {
|
||||||
Past => let zin : Str = norPast ! nor ;
|
Past => let zin : Str = norPast ! nor ;
|
||||||
|
|||||||
Reference in New Issue
Block a user