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

(Ara) Add GerundNP in ExtendAra

Browse Source
This commit is contained in:
Inari Listenmaa
2022-01-23 18:28:58 +08:00
committed by Meowyam
parent a435b6b8dc
commit d021ebd527
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/arabic/ExtendAra.gf
View File

@@ -6,7 +6,7 @@ concrete ExtendAra of Extend =
EmptyRelSlash, PredAPVP, EmptyRelSlash, PredAPVP,
ComplDirectVS, ComplDirectVQ, -- because of Utt ComplDirectVS, ComplDirectVQ, -- because of Utt
VPS, MkVPS, PredVPS, BaseVPS, ConsVPS, ConjVPS, VPS, MkVPS, PredVPS, BaseVPS, ConsVPS, ConjVPS,
EmbedSSlash, AdjAsNP EmbedSSlash, AdjAsNP, GerundNP
] ]
with (Grammar=GrammarAra) with (Grammar=GrammarAra)
** open ** open
@@ -44,7 +44,7 @@ lin
DetNPFem det = emptyNP ** {s = det.s ! NoHum ! Fem} ; DetNPFem det = emptyNP ** {s = det.s ! NoHum ! Fem} ;
-- : AP -> NP -- : AP -> NP
AdjAsNP ap = AdjAsNP ap =
let adjAsN : Noun = { let adjAsN : Noun = {
s = ap.s ! NoHum ! Masc ; s = ap.s ! NoHum ! Masc ;
s2 = emptyNTable ; s2 = emptyNTable ;
@@ -59,6 +59,11 @@ lin
-- : SSlash -> SC -- : SSlash -> SC
EmbedSSlash = Grammar.EmbedS ; EmbedSSlash = Grammar.EmbedS ;
-- : VP -> NP
GerundNP vp = emptyNP ** {
s = \\_ => uttVP VPGer vp ! Masc ; -- NB. NP should inflect in case, but there are no cases for masdar in the inflection table of VP. If desired, can add here with BIND. /IL
} ; -- The Gender param here doesn't make a difference, because the VPGer in VP's inflection table doesn't have gender to start with. So we could equally well choose Fem too.
lincat lincat
VPS = {s : PerGenNum => Str} ; -- finite VP's with tense and polarity VPS = {s : PerGenNum => Str} ; -- finite VP's with tense and polarity
[VPS] = {s1,s2 : PerGenNum => Str} ; [VPS] = {s1,s2 : PerGenNum => Str} ;