GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

added QuantityNP

Browse Source
This commit is contained in:
Krasimir Angelov
2026-04-16 08:50:21 +02:00
parent 34f5e625e3
commit 8a84ca1a45
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/maltese/NounMlt.gf
View File

@@ -310,6 +310,13 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude, Maybe in {
isDefn = np.isDefn ; 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 oper
-- Overwrite the s field in an NP -- Overwrite the s field in an NP
overwriteNPs : NounPhrase -> (NPCase => Str) -> NounPhrase = \np,tbl -> { overwriteNPs : NounPhrase -> (NPCase => Str) -> NounPhrase = \np,tbl -> {