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

UseDAP* moved from ParseExtendMlt to ExtendMlt

Browse Source
This commit is contained in:
Krasimir Angelov
2026-08-26 09:33:46 +02:00
parent 34576e5ec5
commit 0c9e995cb2
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/maltese/ExtendMlt.gf
+12 -2
View File
@@ -14,12 +14,12 @@ concrete ExtendMlt of Extend =
PresPartAP, EmbedPresPart, PastPartAP, PastPartAgentAP, PresPartAP, EmbedPresPart, PastPartAP, PastPartAgentAP,
PassVPSlash, PassAgentVPSlash, PassVPSlash, PassAgentVPSlash,
CompoundN, CompoundAP, GerundCN, GerundNP, GerundAdv, CompoundN, CompoundAP, GerundCN, GerundNP, GerundAdv,
WithoutVP, ByVP, InOrderToVP, WithoutVP, ByVP, InOrderToVP, ProgrVPSlash,
RNP, RNPList, RNP, RNPList,
ReflRNP, ReflPron, ReflPoss, PredetRNP, AdvRNP, AdvRVP, AdvRAP, ReflRNP, ReflPron, ReflPoss, PredetRNP, AdvRNP, AdvRVP, AdvRAP,
ReflA2RNP, PossPronRNP, ConjRNP, ReflA2RNP, PossPronRNP, ConjRNP,
Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP, Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP,
AdAdV, UttAdV, PositAdVAdj AdAdV, UttAdV, PositAdVAd, UseDAP, UseDAPMasc, UseDAPFemj
] ]
with (Grammar = GrammarMlt) ** open Prelude, Maybe, ParadigmsMlt, MorphoMlt, ResMlt in { with (Grammar = GrammarMlt) ** open Prelude, Maybe, ParadigmsMlt, MorphoMlt, ResMlt in {
@@ -199,6 +199,10 @@ lin ReflPron = {s = \\agr => prep_lil.enclitic ! agr ++ reflPron ! toVAgr agr} ;
AdAdV ada adv = {s = ada.s ++ adv.s} ; AdAdV ada adv = {s = ada.s ++ adv.s} ;
UttAdV adv = {s = adv.s} ; UttAdV adv = {s = adv.s} ;
lin UseDAP dap = useDAP Masc dap ;
UseDAPMasc dap = useDAP Masc dap ;
UseDAPFem dap = useDAP Fem dap ;
oper oper
complNP : Compl -> NP -> Str = \c,np -> complNP : Compl -> NP -> Str = \c,np ->
case <c.isPresent,np.isDefn> of { case <c.isPresent,np.isDefn> of {
@@ -229,5 +233,11 @@ oper
gerundStr : VP -> Str = \vp -> gerundStr : VP -> Str = \vp ->
"li" ++ infVP vp Simul Pos (agrP3 Sg Masc) ; "li" ++ infVP vp Simul Pos (agrP3 Sg Masc) ;
useDAP : Gender -> DAP -> NP = \g,dap -> lin NP {
s = \\_ => dap.s ! g ++ dap.adj ! mkGenNum g (numform2num dap.n) ;
a = agrP3 (numform2num dap.n) g ;
isPron = False ;
isDefn = dap.isDefn
} ;
} }