(Hun) Add SgAll to the forms

This commit is contained in:
Inari Listenmaa
2020-04-28 12:31:53 +02:00
parent 0a31212a9e
commit 851a0dedc8
3 changed files with 4 additions and 0 deletions

View File

@@ -458,6 +458,7 @@ oper
SgSup => harm3 "on" "en" "ön" ;
PlAcc => harm3 "ot" "et" "öt" ;
SgAccStem => harm3 "o" "e" "ö" ;
SgAll => harm3 "hoz" "hez" "höz" ;
PossdPl => harm1 "i" ; -- TODO figure out allomorphs
_ => harm1 []
} ;

View File

@@ -72,6 +72,7 @@ param
NumCaseStem =
SgNom | SgAccStem | SgSup -- These may use 2-3 different stems
| PlAcc -- May have irregular vowel in suffix
| SgAll -- May have irregular vowel in suffix
| SgInsStem -- Instrumental and translative: -v after vowels
| SgStem -- Rest of the cases in Sg
| PlStem -- Rest of the cases in Pl
@@ -150,6 +151,7 @@ oper
SgNom => "SgNom" ;
SgAccStem => "SgAccStem" ;
SgSup => "SgSup" ;
SgAll => "SgAll" ;
PlAcc => "PlAcc" ;
SgInsStem => "SgInsStem" ;
SgStem => "SgStem" ;

View File

@@ -28,6 +28,7 @@ oper
<Sg,Nom> => cn.s ! SgNom ;
<Sg,Acc> => bind (cn.s ! SgAccStem) "t" ;
<Sg,Sup> => cn.s ! SgSup ;
<Sg,All> => cn.s ! SgAll ;
<Pl,Acc> => cn.s ! PlAcc ;
<Pl,Nom> => cn.s ! PlStem ; -- don't use applyCase', it adds a BIND which breaks everything!
<Sg,Ins|Tra> => applyCase' SgInsStem ;