mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-17 15:12:50 -06:00
moved Names to Construction, to make the structure simpler ; use months and weeks as PN's as well
This commit is contained in:
@@ -134,7 +134,8 @@ oper
|
||||
|
||||
mkPN : overload {
|
||||
mkPN : Str -> PN ; -- feminine if ends with "e", otherwise masculine
|
||||
mkPN : Str -> Gender -> PN -- gender deviant from the simple rule
|
||||
mkPN : Str -> Gender -> PN ; -- gender deviant from the simple rule
|
||||
mkPN : N -> PN ; -- gender inherited from noun
|
||||
} ;
|
||||
|
||||
|
||||
@@ -382,7 +383,8 @@ oper
|
||||
|
||||
mkPN = overload {
|
||||
mkPN : Str -> PN = regPN ;
|
||||
mkPN : Str -> Gender -> PN = \x,g -> {s = x ; g = g} ** {lock_PN = <>} ;
|
||||
mkPN : Str -> Gender -> PN = \x,g -> lin PN {s = x ; g = g} ;
|
||||
mkPN : N -> PN = \x -> lin PN {s = x.s ! Sg ; g = x.g} ;
|
||||
} ;
|
||||
|
||||
mk4A a b c d = compADeg {s = \\_ => (mkAdj a c b d).s ; isPre = False ; lock_A = <>} ;
|
||||
|
||||
Reference in New Issue
Block a user