mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
(Jpn) add GN, LN, SN + constructors
This commit is contained in:
@@ -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} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -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) ;
|
||||||
|
|||||||
Reference in New Issue
Block a user