Latvian RG: approaching RGL API

lib/src/latvian/MorphoLav.gf

@@ -1,43 +1,12 @@
---# -path=.:../../prelude
+--# -path=.:../abstract:../common:../prelude
 
---1 A Simple English Resource Morphology
---
--- Aarne Ranta 2002 -- 2005
---
 -- This resource morphology contains definitions needed in the resource
--- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which
+-- syntax. To build a lexicon, it is better to use $ParadigmsLav$, which
 -- gives a higher-level access to this module.
 
-resource MorphoLav = open Prelude, (Predef=Predef), ResLav in {
+resource MorphoLav = ResLav ** {
 
-  flags optimize=all ;
-
---2 Determiners
-{-
-  oper
-
-  mkDeterminer : Number -> Str ->
-    {s : Str ; sp : NPCase => Str; n : Number ; hasNum : Bool} = \n,s ->
-    {s = s;
-     sp = \\c => regGenitiveS s ! npcase2case c ;
-     n = n ;
-     hasNum = True ; -- doesn't matter since s = sp
-     } ;
-
---2 Pronouns
-
-
-  mkPron : (i,me,my,mine : Str) -> Number -> Person -> Gender ->
-    {s : NPCase => Str ; sp : Case => Str ; a : Agr} =
-     \i,me,my,mine,n,p,g -> {
-     s = table {
-       NCase Nom => i ;
-       NPAcc => me ;
-       NCase Gen => my
-       } ;
-     a = toAgr n p g ;
-     sp = regGenitiveS mine
-   } ;
--}
-} ;
+flags
+  optimize = all ;
 
+}