(Jpn) add GN, LN, SN + constructors

This commit is contained in:
Inari Listenmaa
2026-04-01 16:21:58 +02:00
parent 4c55592af4
commit 84e0e2c08f
2 changed files with 5 additions and 1 deletions

View File

@@ -83,6 +83,6 @@ flags coding = utf8 ;
-- counter : Str ; counterReplace : Bool ; counterTsu : Bool} ; -- counter : Str ; counterReplace : Bool ; counterTsu : Bool} ;
N2 = Noun ** {prep : Str; object : Style => Str} ; N2 = Noun ** {prep : Str; object : Style => Str} ;
N3 = Noun ** {prep1 : Str; prep2 : Str} ; N3 = Noun ** {prep1 : Str; prep2 : Str} ;
PN = PropNoun ; -- {s : Style => Str ; anim : Animateness} ; PN,LN,GN,SN = PropNoun ; -- {s : Style => Str ; anim : Animateness} ;
} }

View File

@@ -50,6 +50,10 @@ oper
= \jon,jonsan -> lin PN (personPN jon jonsan) = \jon,jonsan -> lin PN (personPN jon jonsan)
} ; } ;
mkGN : Str -> GN = \s -> lin GN (regPN s);
mkLN : Str -> LN = \s -> lin LN (regPN s);
mkSN : Str -> SN = \s -> lin SN (regPN s);
mkPron = overload { mkPron = overload {
mkPron : (kare : Str) -> (Pron1Sg : Bool) -> (anim : Animacy) -> Pron mkPron : (kare : Str) -> (Pron1Sg : Bool) -> (anim : Animacy) -> Pron
= \kare,b,a -> lin Pron (regPron kare b a) ; = \kare,b,a -> lin Pron (regPron kare b a) ;