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

@@ -210,4 +210,18 @@ concrete NounPol of Noun = CatPol ** open ResPol, Prelude, PronounMorphoPol, Mor
DetDAP d = d ;
QuantityNP n m = {
nom,voc = preOrPost m.isPre m.s n.s;
dep = \\cc => preOrPost m.isPre m.s n.s ;
gn = OthersPl;
p = P3
} ;
QuantityFloatNP n1 n2 m = {
nom,voc = preOrPost m.isPre m.s (n1.s ++ BIND ++ "." ++ BIND ++ n2.s) ;
dep = \\cc => preOrPost m.isPre m.s (n1.s ++ BIND ++ "." ++ BIND ++ n2.s) ;
gn = OthersPl;
p = P3
} ;
}