Latvian resource started by Normunds Gruzitis

lib/src/latvian/MorphoLav.gf

@@ -0,0 +1,43 @@
+--# -path=.:../../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
+-- gives a higher-level access to this module.
+
+resource MorphoLav = open Prelude, (Predef=Predef), ResLav in {
+
+  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
+   } ;
+-}
+} ;
+