JPN

lib/src/japanese/AdverbJpn.gf

@@ -0,0 +1,41 @@
+concrete AdverbJpn of Adverb = CatJpn ** open ResJpn, ParadigmsJpn, Prelude in {
+
+flags coding = utf8 ;
+
+  lin
+  
+    PositAdvAdj a = {s = \\st => a.adv ! Pos ; prepositive = False} ;
+  
+    PrepNP prep np = {s = \\st => np.s ! st ++ prep.s ; 
+                      prepositive = False} ;
+    
+    ComparAdvAdj cadv a np = {
+      s = \\st => case cadv.less of {
+        True => np.s ! st ++ cadv.s ++ a.adv ! Neg ;
+        False => np.s ! st ++ cadv.s ++ a.adv ! Pos 
+        } ; 
+      prepositive = False} ;
+    
+    ComparAdvAdjS cadv a s = {
+      s = \\st => case cadv.less of {
+        True => s.subj ! Ga ! st ++ s.pred ! Plain ++ "こと" ++ cadv.s ++ a.adv ! Neg ; 
+        False => s.subj ! Ga ! st ++ s.pred ! Plain ++ "こと" ++ cadv.s ++ a.adv ! Pos
+        } ;
+      prepositive = False} ;
+    
+    AdAdv ada adv = {s = \\st => ada.s ++ adv.s ! st ; 
+                     prepositive = adv.prepositive} ;
+    
+    PositAdAAdj a = {s = a.adv ! Pos } ;
+    
+    SubjS subj s = {
+      s = \\st => case subj.type of {
+      
+        If => s.ba ! Wa ! st ++ subj.s ;
+        _ => s.s ! Wa ! st ++ subj.s
+        } ; 
+      prepositive = True
+      } ;
+    
+    AdnCAdv cadv = {s = cadv.s_adn ; postposition = True} ;
+}