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

UseLN/PlainLN were missing the contracting prepositions

Browse Source
This commit is contained in:
Krasimir Angelov
2023-09-26 10:45:36 +02:00
parent 3640421022
commit 195064569d
1 changed files with 4 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/spanish/NamesSpa.gf
View File

@@ -13,28 +13,19 @@ lin FullName gn sn = pn2np {
} ; } ;
lin PlainLN n = heavyNP { lin PlainLN n = heavyNP {
s = \\c => n.s; s = \\c => prepCase c ++ n.s;
a = {g = n.g ; n = n.num ; p = P3} a = {g = n.g ; n = n.num ; p = P3}
} ; } ;
lin UseLN n = heavyNP { lin UseLN n = heavyNP {
s = \\c => case n.art of { s = \\c => case n.art of {
UseArt => case n.g of { UseArt => artDef False n.g n.num c ++ n.s;
Fem => case n.num of { NoArt => prepCase c ++ n.s
Sg => "la" ++ n.s;
Pl => "las" ++ n.s} ;
Masc => case n.num of {
Sg => "el" ++ n.s;
Pl => "los" ++ n.s
}
} ;
NoArt => n.s
} ; } ;
a = {g = n.g ; n = n.num ; p = P3} a = {g = n.g ; n = n.num ; p = P3}
} ; } ;
lin InLN n = { lin InLN n = {
s = "en" ++ s = "en" ++
case n.art of { case n.art of {