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

@@ -263,4 +263,16 @@ incomplete concrete NounScand of Noun =
DetDAP d = d ;
QuantityNP n m = {
s = \\c => preOrPost m.isPre m.s (n.s ! NCard neutrum);
a = agrP3 Utr n.n ;
isPron = False
} ;
QuantityFloatNP n1 n2 m = {
s = \\c => preOrPost m.isPre m.s (n1.s ! NCard neutrum ++ BIND ++ "." ++ BIND ++ n2.s ! NCard neutrum) ;
a = agrP3 Utr Pl ;
isPron = False
} ;
}