JPN

lib/src/japanese/TextJpn.gf

@@ -0,0 +1,14 @@
+concrete TextJpn of Text = CatJpn ** open ResJpn, Prelude in {
+
+flags coding = utf8 ;
+
+lin
+
+    TEmpty = {s = ""} ;
+    
+    TFullStop phr txt = {s = phr.s ++ "。" ++ txt.s} ;
+    
+    TQuestMark phr txt = {s = phr.s ++ "？" ++ txt.s} ;
+    
+    TExclMark phr txt = {s = phr.s ++ "！" ++ txt.s} ;
+}