UseComparA in Slovenian

2016-06-15 10:21:57 +00:00
parent 2a874fada8
commit b6552c4bf7
1 changed files with 7 additions and 0 deletions
--- a/lib/src/slovenian/AdjectiveSlv.gf
+++ b/lib/src/slovenian/AdjectiveSlv.gf
@@ -9,6 +9,13 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
          _                 => a.s ! APosit g n c
        }
      } ;
+    UseComparA a = {
+      s = \\spec,g,c,n => 
+        case <spec,g,n,c> of {
+          <Def,Masc,Sg,Acc> => a.s ! AComparDefAcc ;
+          _                 => a.s ! ACompar g n c
+        }
+      } ;

    AdvAP ap adv = {s = \\spec,g,c,n => ap.s ! spec ! g ! c ! n ++ adv.s} ;
 }