mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-23 10:11:10 -06:00
started a separate module for names
This commit is contained in:
@@ -81,6 +81,6 @@ concrete CatDut of Cat =
|
||||
N = Noun ;
|
||||
N2 = {s : NForm => Str ; g : Gender} ** {c2 : Preposition} ;
|
||||
N3 = {s : NForm => Str ; g : Gender} ** {c2,c3 : Preposition} ;
|
||||
GN, SN, PN = {s : NPCase => Str} ;
|
||||
GN, SN, LN, PN = {s : NPCase => Str} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -121,9 +121,4 @@ lin
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
|
||||
lin FullName gn sn = {
|
||||
s = \\c => gn.s ! NPNom ++ sn.s ! c
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -14,4 +14,5 @@ concrete GrammarDut of Grammar =
|
||||
TextX,
|
||||
IdiomDut,
|
||||
StructuralDut,
|
||||
TenseX ;
|
||||
TenseX,
|
||||
NamesDut ;
|
||||
|
||||
7
src/dutch/NamesDut.gf
Normal file
7
src/dutch/NamesDut.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
concrete NamesDut of Names = CatDut ** open Prelude, ResDut in {
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname = \n -> noMerge ** {s = n.s ; a = agrP3 Sg ; isPron = False} ;
|
||||
lin FullName gn sn =
|
||||
noMerge ** {s = \\c => gn.s ! NPNom ++ sn.s ! c ; a = agrP3 Sg ; isPron = False} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user