Tēzaurs noun lexicon export

src/latvian/PortedMorphoParadigmsLav.gf

@@ -1,7 +1,7 @@
 --# -path=.:abstract:common:prelude
 
 -- Contents of this file are automatically ported paradigms from
--- https://github.com/PeterisP/morphology/blob/master/src/main/resources/Lexicon_v2.xml
+-- https://github.com/LUMII-AILab/Morphology/blob/master/src/main/resources/Lexicon_v2.xml
 -- NB: Do NOT edit this without consulting lauma@ailab.lv or normundsg@ailab.lv
 --     Otherwise your changes might get accidentally revoked!
 
@@ -11,7 +11,7 @@ flags coding = utf8 ;
 
 oper
 
-  noun_1a : Str -> Noun = \stem ->
+  noun_1a_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -34,7 +34,19 @@ oper
     gend = Masc
   } ;
 
-  noun_1b : Str -> Noun = \stem ->
+  noun_1a_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "s" => noun_1a_fromStems stem ;
+      _ => Predef.error ("noun_1a_fromLemma is only applicable for words that end in -s, tried to apply to" ++ lemma)
+    } ;
+
+  noun_1a_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_1a_fromStems stem ;
+      _ => Predef.error ("noun_1a_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
+
+  noun_1b_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -57,7 +69,19 @@ oper
     gend = Masc
   } ;
 
-  noun_2a : Str -> Noun = \stem ->
+  noun_1b_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "š" => noun_1b_fromStems stem ;
+      _ => Predef.error ("noun_1b_fromLemma is only applicable for words that end in -š, tried to apply to" ++ lemma)
+    } ;
+
+  noun_1b_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_1b_fromStems stem ;
+      _ => Predef.error ("noun_1b_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2a_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -80,7 +104,19 @@ oper
     gend = Masc
   } ;
 
-  noun_2c : Str -> Noun = \stem ->
+  noun_2a_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "is" => noun_2a_fromStems stem ;
+      _ => Predef.error ("noun_2a_fromLemma is only applicable for words that end in -is, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2a_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_2a_fromStems stem ;
+      _ => Predef.error ("noun_2a_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2c_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -103,7 +139,19 @@ oper
     gend = Masc
   } ;
 
-  noun_2d : Str -> Noun = \stem ->
+  noun_2c_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "s" => noun_2c_fromStems stem ;
+      _ => Predef.error ("noun_2c_fromLemma is only applicable for words that end in -s, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2c_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_2c_fromStems stem ;
+      _ => Predef.error ("noun_2c_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2d_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -126,7 +174,19 @@ oper
     gend = Masc
   } ;
 
-  noun_3m : Str -> Noun = \stem ->
+  noun_2d_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "s" => noun_2d_fromStems stem ;
+      _ => Predef.error ("noun_2d_fromLemma is only applicable for words that end in -s, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2d_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_2d_fromStems stem ;
+      _ => Predef.error ("noun_2d_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
+
+  noun_3m_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -149,7 +209,19 @@ oper
     gend = Masc
   } ;
 
-  noun_4f : Str -> Noun = \stem ->
+  noun_3m_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "us" => noun_3m_fromStems stem ;
+      _ => Predef.error ("noun_3m_fromLemma is only applicable for words that end in -us, tried to apply to" ++ lemma)
+    } ;
+
+  noun_3m_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_3m_fromStems stem ;
+      _ => Predef.error ("noun_3m_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
+
+  noun_4f_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -172,7 +244,19 @@ oper
     gend = Fem
   } ;
 
-  noun_4m : Str -> Noun = \stem ->
+  noun_4f_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "a" => noun_4f_fromStems stem ;
+      _ => Predef.error ("noun_4f_fromLemma is only applicable for words that end in -a, tried to apply to" ++ lemma)
+    } ;
+
+  noun_4f_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "as" => noun_4f_fromStems stem ;
+      _ => Predef.error ("noun_4f_fromNomPl is only applicable for words that end in -as, tried to apply to" ++ lemma)
+    } ;
+
+  noun_4m_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -195,7 +279,19 @@ oper
     gend = Masc
   } ;
 
-  noun_5fa : Str -> Noun = \stem ->
+  noun_4m_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "a" => noun_4m_fromStems stem ;
+      _ => Predef.error ("noun_4m_fromLemma is only applicable for words that end in -a, tried to apply to" ++ lemma)
+    } ;
+
+  noun_4m_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "as" => noun_4m_fromStems stem ;
+      _ => Predef.error ("noun_4m_fromNomPl is only applicable for words that end in -as, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5fa_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -218,7 +314,19 @@ oper
     gend = Fem
   } ;
 
-  noun_5ma : Str -> Noun = \stem ->
+  noun_5fa_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "e" => noun_5fa_fromStems stem ;
+      _ => Predef.error ("noun_5fa_fromLemma is only applicable for words that end in -e, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5fa_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "es" => noun_5fa_fromStems stem ;
+      _ => Predef.error ("noun_5fa_fromNomPl is only applicable for words that end in -es, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5ma_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -241,7 +349,19 @@ oper
     gend = Masc
   } ;
 
-  noun_6a : Str -> Noun = \stem ->
+  noun_5ma_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "e" => noun_5ma_fromStems stem ;
+      _ => Predef.error ("noun_5ma_fromLemma is only applicable for words that end in -e, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5ma_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "es" => noun_5ma_fromStems stem ;
+      _ => Predef.error ("noun_5ma_fromNomPl is only applicable for words that end in -es, tried to apply to" ++ lemma)
+    } ;
+
+  noun_6a_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -264,7 +384,19 @@ oper
     gend = Fem
   } ;
 
-  noun_3f : Str -> Noun = \stem ->
+  noun_6a_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "s" => noun_6a_fromStems stem ;
+      _ => Predef.error ("noun_6a_fromLemma is only applicable for words that end in -s, tried to apply to" ++ lemma)
+    } ;
+
+  noun_6a_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "is" => noun_6a_fromStems stem ;
+      _ => Predef.error ("noun_6a_fromNomPl is only applicable for words that end in -is, tried to apply to" ++ lemma)
+    } ;
+
+  noun_3f_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -287,7 +419,19 @@ oper
     gend = Fem
   } ;
 
-  noun_6b : Str -> Noun = \stem ->
+  noun_3f_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "us" => noun_3f_fromStems stem ;
+      _ => Predef.error ("noun_3f_fromLemma is only applicable for words that end in -us, tried to apply to" ++ lemma)
+    } ;
+
+  noun_3f_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "us" => noun_3f_fromStems stem ;
+      _ => Predef.error ("noun_3f_fromNomPl is only applicable for words that end in -us, tried to apply to" ++ lemma)
+    } ;
+
+  noun_6b_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -310,7 +454,19 @@ oper
     gend = Fem
   } ;
 
-  noun_5fb : Str -> Noun = \stem ->
+  noun_6b_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "s" => noun_6b_fromStems stem ;
+      _ => Predef.error ("noun_6b_fromLemma is only applicable for words that end in -s, tried to apply to" ++ lemma)
+    } ;
+
+  noun_6b_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "is" => noun_6b_fromStems stem ;
+      _ => Predef.error ("noun_6b_fromNomPl is only applicable for words that end in -is, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5fb_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -333,7 +489,19 @@ oper
     gend = Fem
   } ;
 
-  noun_5mb : Str -> Noun = \stem ->
+  noun_5fb_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "e" => noun_5fb_fromStems stem ;
+      _ => Predef.error ("noun_5fb_fromLemma is only applicable for words that end in -e, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5fb_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "es" => noun_5fb_fromStems stem ;
+      _ => Predef.error ("noun_5fb_fromNomPl is only applicable for words that end in -es, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5mb_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -356,7 +524,19 @@ oper
     gend = Masc
   } ;
 
-  noun_2b : Str -> Noun = \stem ->
+  noun_5mb_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "e" => noun_5mb_fromStems stem ;
+      _ => Predef.error ("noun_5mb_fromLemma is only applicable for words that end in -e, tried to apply to" ++ lemma)
+    } ;
+
+  noun_5mb_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "es" => noun_5mb_fromStems stem ;
+      _ => Predef.error ("noun_5mb_fromNomPl is only applicable for words that end in -es, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2b_fromStems : Str -> Noun = \stem ->
   {
     s = table {
       Pl => table {
@@ -378,5 +558,17 @@ oper
     } ;
     gend = Masc
   } ;
+
+  noun_2b_fromLemma : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "is" => noun_2b_fromStems stem ;
+      _ => Predef.error ("noun_2b_fromLemma is only applicable for words that end in -is, tried to apply to" ++ lemma)
+    } ;
+
+  noun_2b_fromNomPl : Str -> Noun = \lemma ->
+    case lemma of {
+      stem + "i" => noun_2b_fromStems stem ;
+      _ => Predef.error ("noun_2b_fromNomPl is only applicable for words that end in -i, tried to apply to" ++ lemma)
+    } ;
 }
 

src/latvian/PortedMorphoStemchangesLav.gf

@@ -1,7 +1,7 @@
 --# -path=.:abstract:common:prelude
 
 -- Here goes manually ported stemchanges from 
--- https://github.com/PeterisP/morphology/blob/master/src/main/java/lv/semti/morphology/analyzer/Mijas.java
+-- https://github.com/LUMII-AILab/Morphology/blob/master/src/main/java/lv/semti/morphology/analyzer/Mijas.java
 
 resource PortedMorphoStemchangesLav = open Prelude, Predef, ResLav in {