forked from GitHub/gf-rgl
50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
concrete NamesRon of Names = CatRon ** open ResRon, Prelude in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \pn -> -- KA: guessed
|
|
let
|
|
g = pn.g ;
|
|
n = pn.n ;
|
|
ag = agrP3 g n ;
|
|
hc = getClit pn.a
|
|
in {
|
|
s = \\c => {comp = pn.s ! c ;
|
|
clit = \\cs => if_then_Str hc ((genCliticsCase ag c).s ! cs) [] } ;
|
|
|
|
a = ag;
|
|
nForm = if_then_else NForm hc HasClit (HasRef False) ;
|
|
isPronoun = False ; isPol = False;
|
|
indForm = pn.s ! No
|
|
} ;
|
|
|
|
lin FullName gn sn = -- KA: guessed
|
|
let
|
|
g = gn.g ;
|
|
n = gn.n ;
|
|
ag = agrP3 g n ;
|
|
hc = getClit gn.a
|
|
in {
|
|
s = \\c => {comp = gn.s ! No ++ sn.s ! c ;
|
|
clit = \\cs => if_then_Str hc ((genCliticsCase ag c).s ! cs) [] } ;
|
|
a = ag;
|
|
nForm = if_then_else NForm hc HasClit (HasRef False) ;
|
|
isPronoun = False ; isPol = False;
|
|
indForm = gn.s ! No ++ sn.s ! No
|
|
} ;
|
|
|
|
lin UseLN pn = let
|
|
g = pn.g ;
|
|
n = pn.n ;
|
|
ag = agrP3 g n ;
|
|
hc = getClit pn.a
|
|
in {
|
|
s = \\c => {comp = pn.s ! c ;
|
|
clit = \\cs => if_then_Str hc ((genCliticsCase ag c).s ! cs) [] } ;
|
|
|
|
a = ag;
|
|
nForm = if_then_else NForm hc HasClit (HasRef False) ;
|
|
isPronoun = False ; isPol = False;
|
|
indForm = pn.s ! No
|
|
} ;
|
|
|
|
}
|