some fragments of adjectives and nouns in Slovenian

2026-07-02 03:58:34 -06:00 · 2016-03-24 20:35:51 +00:00
parent fb147c27c8
commit 871dc747c0
5 changed files with 69 additions and 4 deletions
@@ -0,0 +1,11 @@
+concrete NounSlv of Noun = CatSlv ** open ResSlv in {
+
+  lin
+    UseN n = {s = \\_ => n.s; g = n.g} ;
+
+    AdjCN ap cn = {
+      s = \\spec,c,n => ap.s ! spec ! cn.g ! c ! n ++ cn.s ! Indef ! c ! n ;
+      g = cn.g
+      } ;
+
+}