some fragments of adjectives and nouns in Slovenian

2016-03-24 20:35:51 +00:00
parent 5e586c247a
commit bf0f5bcd9a
5 changed files with 69 additions and 4 deletions
@@ -0,0 +1,13 @@
+concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
+
+  lin
+    PositA a = {
+      s = \\spec,g,c,n => 
+        case <spec,c> of {
+          <Def,Nom> => a.s ! APositDefNom ;
+          <Def,Acc> => a.s ! APositDefAcc ;
+          _         => a.s ! APosit g n c
+        }
+      } ;
+
+}