GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki 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

3
src/abstract/Extend.gf
View File

@@ -289,4 +289,7 @@ fun UseDAP : DAP -> NP ;
cat X ; -- for words that are difficult to classify, mainly for MorphoDict cat X ; -- for words that are difficult to classify, mainly for MorphoDict
fun
CardCNCard : Card -> CN -> Card ; -- three million, four lakh, six dozen etc
} }

6
src/common/ExtendFunctor.gf
View File

@@ -132,6 +132,12 @@ lin
ExistNPQS t p np = UseQCl t p (QuestCl (ExistNP np)) ; ExistNPQS t p np = UseQCl t p (QuestCl (ExistNP np)) ;
ExistIPQS t p np = UseQCl t p (ExistIP np) ; ExistIPQS t p np = UseQCl t p (ExistIP np) ;
lincat
X = {s : Str} ;
lin
CardCNCard = variants {} ;
oper oper
quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude? quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?

6
src/english/ExtendEng.gf
View File

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

3
src/finnish/ExtendFin.gf
View File

@@ -226,4 +226,7 @@ lin
isPron = False ; isNeg = dap.isNeg isPron = False ; isNeg = dap.isNeg
} ; } ;
lin CardCNCard card cn =
{s = \\n,c => card.s ! n ! c ++ cn.s ! card.n ! NCase n c ; n = Pl} ;
} }

10
src/german/ExtendGer.gf
View File

@@ -6,7 +6,8 @@ concrete ExtendGer of Extend =
InOrderToVP, InOrderToVP,
VPS, ListVPS, VPI, ListVPI, VPS, ListVPS, VPI, ListVPI,
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
CardCNCard
] ]
with with
(Grammar = GrammarGer) ** (Grammar = GrammarGer) **
@@ -125,4 +126,11 @@ lin
rc, ext = [] rc, ext = []
} ; } ;
lin
CardCNCard card cn = {
s = \\g,c =>
(Grammar.DetCN (Grammar.DetQuant Grammar.IndefArt (Grammar.NumCard card)) cn).s ! NPC c ;
n = Pl
} ;
} }