mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-30 02:18:55 -06:00
Implement DetQuantOrd
This commit is contained in:
@@ -25,6 +25,12 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
|
|||||||
useGen = quant.useGen
|
useGen = quant.useGen
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
DetQuantOrd quant num o = {
|
||||||
|
s = quant.s ++ num.s ! Sg ! Nom ++ o.s ! num.n ! Nom ;
|
||||||
|
n = num.n;
|
||||||
|
useGen = quant.useGen
|
||||||
|
} ;
|
||||||
|
|
||||||
NumSg = {s = \\num,c => []; n = Sg} ;
|
NumSg = {s = \\num,c => []; n = Sg} ;
|
||||||
NumPl = {s = \\num,c => []; n = Pl} ;
|
NumPl = {s = \\num,c => []; n = Pl} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user