mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 03:46:29 -06:00
started a separate module for names
This commit is contained in:
@@ -0,0 +1,16 @@
|
||||
concrete NamesMlt of Names = CatMlt ** open ResMlt, Prelude in {
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> {
|
||||
s = \\c => n.s ;
|
||||
a = n.a ;
|
||||
isPron = False ;
|
||||
isDefn = False
|
||||
} ;
|
||||
lin FullName gn sn = {
|
||||
s = \\c => gn.s ++ sn.s ;
|
||||
a = gn.a ;
|
||||
isPron = False ;
|
||||
isDefn = False
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user