some fragments of adjectives and nouns in Slovenian

lib/src/slovenian/AdjectiveSlv.gf

@@ -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
+        }
+      } ;
+
+}

lib/src/slovenian/CatSlv.gf

@@ -1,13 +1,21 @@
 concrete CatSlv of Cat = open ResSlv in {
 
 lincat
+  -- Adjective
+  AP = {s : Species => Gender => Case => Number => Str} ;
+
+  -- Noun
+  CN = {s : Species => Case => Number => Str; g : Gender} ;
+
+  -- Structural
   Prep = {s : Str; c : Case} ;
 
+  -- Open lexical classes, e.g. Lexicon
+  V = {s : VForm => Str};
+
+  A = {s : AForm => Str};
+  
   N = {s : Case => Number => Str; g : Gender};
   PN = {s : Case => Number => Str; g : Gender};
 
-  A = {s : AForm => Str};
-
-  V = {s : VForm => Str};
-
 }

lib/src/slovenian/GrammarSlv.gf

@@ -0,0 +1,22 @@
+--# -path=.:../abstract:../common:prelude
+
+concrete GrammarSlv of Grammar = 
+  NounSlv,
+--  VerbEng,
+  AdjectiveSlv
+{-  AdverbEng,
+  NumeralEng,
+  SentenceEng,
+  QuestionEng,
+  RelativeEng,
+  ConjunctionEng,
+  PhraseEng,
+  TextX - [Pol,PPos,PNeg],
+  StructuralEng,
+  IdiomEng,
+  TenseX  -}
+  ** {
+
+flags startcat = Phr ; unlexer = text ; lexer = text ;
+
+} ;

lib/src/slovenian/LexiconSlv.gf

@@ -0,0 +1,11 @@
+concrete LexiconSlv of Lexicon = CatSlv **
+  open ParadigmsSlv, Prelude in {
+
+flags
+  optimize=values ;
+
+lin
+  apple_N = mkN "jabolko" "jabolka" "jabolku" "jabolko" "jabolku" "jabolkom" "jabolki" "jabolk" "jabolkoma" "jabolki" "jabolkih" "jabolkoma" "jabolka" "jabolk" "jabolkom" "jabolka" "jabolkih" "jabolki" neuter ;
+  red_A = mkA "rdeč" "rdeči" "rdečega" "rdečemu" "rdečega" "rdeč" "rdeči" "rdečem" "rdečim" "rdeča" "rdečih" "rdečima" "rdeča" "rdečih" "rdečima" "rdeči" "rdečih" "rdečim" "rdeče" "rdečih" "rdečimi" "rdeča" "rdeče" "rdeči" "rdečo" "rdeči" "rdečo" "rdeči" "rdečih" "rdečima" "rdeči" "rdečih" "rdečima" "rdeče" "rdečih" "rdečim" "rdeče" "rdečih" "rdečimi" "rdeče" "rdečega" "rdečemu" "rdeče" "rdečem" "rdečim" "rdeči" "rdečih" "rdečima" "rdeči" "rdečih" "rdečima" "rdeča" "rdečih" "rdečim" "rdeča" "rdečih" "rdečimi" nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist nonExist ;
+
+} ;

lib/src/slovenian/NounSlv.gf

@@ -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
+      } ;
+
+}