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

fix in Fin.CardCNCard

Browse Source
This commit is contained in:
aarneranta
2021-07-30 11:27:19 +02:00
parent bd8550b652
commit decdfac926
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/finnish/ExtendFin.gf
View File

@@ -7,6 +7,7 @@ concrete ExtendFin of Extend =
,ExistCN, ExistMassCN, ICompAP, ByVP ,ExistCN, ExistMassCN, ICompAP, ByVP
,CompoundN, GenNP, GenIP, AdvIsNP, EmbedSSlash ,CompoundN, GenNP, GenIP, AdvIsNP, EmbedSSlash
,PassVPSlash, PassAgentVPSlash ,PassVPSlash, PassAgentVPSlash
,CardCNCard
] ]
with with
(Grammar = GrammarFin) ** (Grammar = GrammarFin) **
@@ -226,7 +227,11 @@ lin
isPron = False ; isNeg = dap.isNeg isPron = False ; isNeg = dap.isNeg
} ; } ;
lin CardCNCard card cn = lin CardCNCard card cn = {
{s = \\n,c => card.s ! n ! c ++ cn.s ! card.n ! NCase n c ; n = Pl} ; s = \\n,c =>
let k = case <card.n, c> of {<Pl,Nom> => Part ; _ => c}
in card.s ! n ! c ++ cn.s ! NCase Sg k ;
n = Pl
} ;
} }