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

simplify the code and allow for non-standard pronouns

Browse Source
This commit is contained in:
krangelov
2021-04-27 08:42:57 +02:00
parent 6bf2555a4a
commit b3cc234c14
8 changed files with 65 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/polish/NounPol.gf
+5 -14
View File
@@ -41,18 +41,9 @@ concrete NounPol of Noun = CatPol ** open ResPol, Prelude, PronounMorphoPol, Mor
gn = cast_gennum! <piwo.g, Sg>;
p = P3 ;
} ;
UsePron p = {
nom = p.nom;
voc = p.voc;
dep = p.dep;
gn = cast_gennum! <case p.g of {
PGen x => x;
_ => Masc Personal
}, p.n>;
p = p.p;
};
UsePron p = p ;
AdjCN mily facet = {
s = \\n,c => case mily.isPost of {
True => (facet.s ! n ! c) ++ (mily.s ! AF (cast_gennum!<facet.g,n>) c) ;
@@ -77,8 +68,8 @@ concrete NounPol of Noun = CatPol ** open ResPol, Prelude, PronounMorphoPol, Mor
};
-- surface structures of NP formed with MassNP, DefArt and IndefArt are identical
DefArt = {s = \\_=>[] ; sp = (demPronTen "ten").sp ; c=Nom; g = PNoGen };
IndefArt = {s = \\_=>[] ; sp = jaki ; c=Nom; g = PNoGen };
DefArt = {s = \\_=>[] ; sp = (demPronTen "ten").sp };
IndefArt = {s = \\_=>[] ; sp = jaki };
UseN sb = {
s = \\n,c => sb.s ! SF n c;