forked from GitHub/gf-rgl
(Por) Implement AForm+related opers in DiffPor
This commit is contained in:
@@ -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
|
||||
}
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user