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
} ;
}

View File

@@ -4,7 +4,7 @@
-- Inari Listenmaa, 2020
resource ParadigmsPol = open
CatPol, MorphoPol, ResPol, (NM=NounMorphoPol)
CatPol, MorphoPol, ResPol, (NM=NounMorphoPol), Prelude
in
{
flags coding=utf8;
@@ -383,4 +383,6 @@
_ => NM.mkNTable0171 sgnom -- Alternatives: mkNTable0000,mkNTable0001,mkNTable0002,mkNTable0003,mkNTable0010,mkNTable0015,mkNTable0028,mkNTable0037,mkNTable0043,mkNTable0044,mkNTable0053,mkNTable0064,mkNTable0067,mkNTable0075,mkNTable0091,mkNTable0096,mkNTable0111,mkNTable0117,mkNTable0118,mkNTable0129,mkNTable0131,mkNTable0168,mkNTable0171,mkNTable0173,mkNTable0176,mkNTable0181,mkNTable0191,mkNTable0197,mkNTable0213,mkNTable0243,mkNTable0244,mkNTable0247,mkNTable0248,mkNTable0271,mkNTable0281,mkNTable0282,mkNTable0286,mkNTable0304,mkNTable0309,mkNTable0312,mkNTable0315,mkNTable0324,mkNTable0333,mkNTable0338,mkNTable0348,mkNTable0350,mkNTable0365,mkNTable0373,mkNTable0375,mkNTable0428,mkNTable0444,mkNTable0467,mkNTable0495,mkNTable0497,mkNTable0500,mkNTable0503,mkNTable0514,mkNTable0516,mkNTable0518,mkNTable0519,mkNTable0523,mkNTable0539,mkNTable0542,mkNTable0550,mkNTable0552,mkNTable0570,mkNTable0578,mkNTable0583,mkNTable0589,mkNTable0648,mkNTable0662,mkNTable0691,mkNTable0696,mkNTable0717,mkNTable0773,mkNTable0803,mkNTable0826,mkNTable0828,mkNTable0859,mkNTable0868,mkNTable0869,mkNTable0944,mkNTable0964,mkNTable0965,mkNTable0966,mkNTable0970,mkNTable0981,mkNTable0991,mkNTable0995
} ;
mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
}