GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-21 09:16:22 -06:00
Code Issues Packages Projects Releases Wiki Activity

started a separate module for names

Browse Source
This commit is contained in:
Krasimir Angelov
2023-07-24 17:24:13 +02:00
parent 8b1309c99d
commit 645de9955a
100 changed files with 611 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/polish/CatPol.gf
View File

@@ -119,7 +119,7 @@ concrete CatPol of Cat = CommonX - [CAdv] ** open ResPol, Prelude, (R = ParamX)
N3 = Noun ** { c1, c2 : Complement } ;
GN, SN, PN = NounPhrase;
GN, SN, LN, PN = NounPhrase;
CAdv = {s,p,sn,pn : Str} ;

9
src/polish/ExtendPol.gf
View File

@@ -40,13 +40,4 @@ oper
-- KA: PassVPSlash is derived from PassV2. Objects might be ignored
lin PassVPSlash vps = setImienne vps True;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
nom = gn.nom ++ sn.nom ;
voc = gn.nom ++ sn.voc ;
dep = \\c => gn.nom ++ sn.dep ! c ;
gn = gn.gn ;
p = gn.p
} ;
}

1
src/polish/GrammarPol.gf
View File

@@ -15,6 +15,7 @@ concrete GrammarPol of Grammar =
PhrasePol,
TenseX - [CAdv],
TextX - [CAdv],
NamesPol,
StructuralPol,
IdiomPol
** { flags startcat = Phr ; unlexer = text ; lexer = text ;} ;

12
src/polish/NamesPol.gf Normal file
View File

@@ -0,0 +1,12 @@
concrete NamesPol of Names = CatPol ** {
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
nom = gn.nom ++ sn.nom ;
voc = gn.nom ++ sn.voc ;
dep = \\c => gn.nom ++ sn.dep ! c ;
gn = gn.gn ;
p = gn.p
} ;
}