forked from GitHub/gf-rgl
Krasimir Angelov
15 lines
253 B
Plaintext
15 lines
253 B
Plaintext
concrete ExtendAfr of Extend =
|
|
CatAfr ** ExtendFunctor
|
|
with
|
|
(Grammar = GrammarAfr) **
|
|
|
|
open
|
|
ResAfr in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
|
|
lin FullName gn sn = {
|
|
s = \\c => gn.s ! NPNom ++ sn.s ! c ;
|
|
} ;
|
|
|
|
}
|