From 84e0e2c08ffb1f775da53e4b1b14c4f1307b2657 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 1 Apr 2026 16:21:58 +0200
Subject: [PATCH] (Jpn) add GN, LN, SN + constructors

---
 src/japanese/CatJpn.gf       | 2 +-
 src/japanese/ParadigmsJpn.gf | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/japanese/CatJpn.gf b/src/japanese/CatJpn.gf
index fa667d1fe..5e28fa6ed 100644
--- a/src/japanese/CatJpn.gf
+++ b/src/japanese/CatJpn.gf
@@ -83,6 +83,6 @@ flags coding = utf8 ;
                                   --  counter : Str ; counterReplace : Bool ; counterTsu : Bool} ;
     N2 = Noun ** {prep : Str; object : Style => Str} ;
     N3 = Noun ** {prep1 : Str; prep2 : Str} ;
-    PN = PropNoun ;               -- {s : Style => Str ; anim : Animateness} ;
+    PN,LN,GN,SN = PropNoun ;               -- {s : Style => Str ; anim : Animateness} ;
 
 }
diff --git a/src/japanese/ParadigmsJpn.gf b/src/japanese/ParadigmsJpn.gf
index 707d8aa0b..cbae3384a 100644
--- a/src/japanese/ParadigmsJpn.gf
+++ b/src/japanese/ParadigmsJpn.gf
@@ -50,6 +50,10 @@ oper
       = \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 : (kare : Str) -> (Pron1Sg : Bool) -> (anim : Animacy) -> Pron
       = \kare,b,a -> lin Pron (regPron kare b a) ;