From 8a84ca1a454e7df1566e0ed8bb7e682f4d20dc49 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Thu, 16 Apr 2026 08:50:21 +0200 Subject: [PATCH] added QuantityNP --- src/maltese/NounMlt.gf | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/maltese/NounMlt.gf b/src/maltese/NounMlt.gf index 408e7aa8..2b7a6585 100644 --- a/src/maltese/NounMlt.gf +++ b/src/maltese/NounMlt.gf @@ -310,6 +310,13 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude, Maybe in { isDefn = np.isDefn ; } ; + QuantityNP n m = { -- quessed + s = \\c => preOrPost m.isPre m.s (n.s ! NumNom) ; + a = agrP3 (numform2num n.n) Masc ; + isPron = False ; + isDefn = False ; + } ; + oper -- Overwrite the s field in an NP overwriteNPs : NounPhrase -> (NPCase => Str) -> NounPhrase = \np,tbl -> {