support for measurement units

This commit is contained in:
Krasimir Angelov
2023-07-25 19:38:43 +02:00
parent 5d912f78a4
commit 22a168198b
39 changed files with 198 additions and 4 deletions

View File

@@ -207,4 +207,16 @@ incomplete concrete NounRomance of Noun =
DetDAP det = det ;
QuantityNP n m = heavyNPpol False {
s = \\c => preOrPost m.isPre m.s (n.s ! NCard Masc);
a = agrP3 Masc n.n ;
hasClit = False
} ;
QuantityFloatNP n1 n2 m = heavyNPpol False {
s = \\c => preOrPost m.isPre m.s (n1.s ! NCard Masc ++ BIND ++ "." ++ BIND ++ n2.s ! NCard Masc) ;
a = agrP3 Masc Pl ;
hasClit = False
} ;
}