(Por) Implement AForm+related opers in DiffPor

This commit is contained in:
Inari Listenmaa
2021-09-17 11:33:16 +08:00
parent 258cd95cca
commit 99469eeb54
3 changed files with 15 additions and 5 deletions
+4 -4
View File
@@ -151,8 +151,8 @@ oper
mkAdj : (_,_,_,_,_ : Str) -> Adj =
\burro,burra,burros,burras,burramente ->
{s = table {
ASg g _ => genForms burro burra ! g ;
APl g => genForms burros burras ! g ;
AF g Sg => genForms burro burra ! g ;
AF g Pl => genForms burros burras ! g ;
AA => burramente
}
} ;
@@ -169,8 +169,8 @@ oper
} + "mente" ;
in {
s = table {
ASg g _ => genForms ms fs ! g ;
APl g => genForms mp fp ! g ;
AF g Sg => genForms ms fs ! g ;
AF g Pl => genForms mp fp ! g ;
AA => adv
}
} ;