mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-18 15:50:19 -06:00
started a separate module for names
This commit is contained in:
@@ -217,26 +217,4 @@ lin
|
||||
oper
|
||||
rus_quoted : Str -> Str = \s -> "«" ++ s ++ "»" ; ---- TODO bind ; move to Prelude?
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> n ;
|
||||
lin FullName gn sn = {
|
||||
snom = gn.snom ++ sn.snom ;
|
||||
sgen = gn.snom ++ sn.sgen ;
|
||||
sdat = gn.snom ++ sn.sdat ;
|
||||
sacc = gn.snom ++ sn.sacc ;
|
||||
sins = gn.snom ++ sn.sins ;
|
||||
sprep = gn.snom ++ sn.sprep ;
|
||||
sloc = gn.snom ++ sn.sloc ;
|
||||
sptv = gn.snom ++ sn.sptv ;
|
||||
svoc = gn.snom ++ sn.svoc ;
|
||||
pnom = gn.snom ++ sn.pnom ;
|
||||
pgen = gn.snom ++ sn.pgen ;
|
||||
pdat = gn.snom ++ sn.pdat ;
|
||||
pacc = gn.snom ++ sn.pacc ;
|
||||
pins = gn.snom ++ sn.pins ;
|
||||
pprep = gn.snom ++ sn.pprep ;
|
||||
g = gn.g ;
|
||||
mayben = gn.mayben ;
|
||||
anim = gn.anim
|
||||
} ;
|
||||
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user