mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-17 07:46:01 -06:00
make it possible to add more cardinals
This commit is contained in:
@@ -443,7 +443,8 @@ mkInterj : Str -> Interj
|
||||
s = \\_ => table { Sg => sg ; Pl => pl } ;
|
||||
sp = \\g,_ => table {
|
||||
Sg => \\c => regGenitiveS (case g of {Masc=>sg1'; Fem=>sg1'; Neutr=>sg2'}) ! npcase2case c ;
|
||||
Pl => \\c => regGenitiveS (case g of {Masc=>pl1'; Fem=>pl1'; Neutr=>pl2'}) ! npcase2case c}
|
||||
Pl => \\c => regGenitiveS (case g of {Masc=>pl1'; Fem=>pl1'; Neutr=>pl2'}) ! npcase2case c} ;
|
||||
isDef = True
|
||||
} ;
|
||||
|
||||
mkOrd : Str -> Ord = \x -> lin Ord { s = regGenitiveS x};
|
||||
|
||||
Reference in New Issue
Block a user