support for measurement units

src/estonian/NounEst.gf

@@ -219,6 +219,18 @@ concrete NounEst of Noun = CatEst ** open ResEst, HjkEst, MorphoEst, Prelude in
 
     ApposCN cn np = cn ** {postmod = cn.postmod ++ linNP (NPCase Nom) np} ; --- luvun x
 
+    QuantityNP n m = emptyNP ** {
+      s = \\c => preOrPost m.isPre m.s (n.s ! NCard (NCase Sg Nom)) ;
+      a = agrP3 n.n ;
+      isPron = False
+      } ;
+
+    QuantityFloatNP n1 n2 m = emptyNP ** {
+      s = \\role => preOrPost m.isPre m.s (n1.s ! NCard (NCase Sg Nom) ++ BIND ++ "." ++ BIND ++ n2.s ! NCard (NCase Sg Nom)) ;
+      a = agrP3 Pl ;
+      isPron = False
+      } ;
+
   oper
     numN : NForm -> Number = \nf -> case nf of {
       NCase n _ => n

src/estonian/ParadigmsEst.gf

@@ -922,4 +922,6 @@ oper
   mkAV  a = a ;
   mkA2V a p = mkA2 a p ;
 
+  mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
+
 } ;