msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Extend.CardCNCard for 5 million, 5 dozen, etc

Browse Source
This commit is contained in:
aarneranta
2021-07-30 10:11:21 +02:00
parent cb502488d1
commit bd8550b652
5 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/english/ExtendEng.gf
View File

@@ -17,7 +17,8 @@ concrete ExtendEng of Extend =
GerundAdv, GerundCN, GerundNP, IAdvAdv, ICompAP, InOrderToVP, NominalizeVPSlashNP,
PassAgentVPSlash, PassVPSlash, ProgrVPSlash, PastPartAP, PastPartAgentAP, PositAdVAdj, PredVPSVV, PredetRNP, PrepCN,
EmbedSSlash, PredIAdvVP, PresPartAP, PurposeVP, ReflPoss, ReflPron, ReflRNP, SlashBareV2S, SlashV2V, StrandQuestSlash, StrandRelSlash,
UncontractedNeg, UttAccIP, UttAccNP, UttAdV, UttDatIP, UttDatNP, UttVPShort, WithoutVP, A2VPSlash, N2VPSlash
UncontractedNeg, UttAccIP, UttAccNP, UttAdV, UttDatIP, UttDatNP, UttVPShort, WithoutVP, A2VPSlash, N2VPSlash,
CardCNCard
]
with
(Grammar = GrammarEng) **
@@ -467,4 +468,7 @@ lin UseDAPFem dap = {
a = agrgP3 dap.n Fem
} ;
lin CardCNCard card cn =
{s,sp = \\d,c => card.s ! d ! Nom ++ cn.s ! card.n ! c ; n = Pl} ;
}