mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-29 04:46:30 -06:00
(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