More or less complete Latvian RG (by Peteris Paikens and Normunds Gruzitis)

2011-11-07 14:21:04 +00:00
parent 7fe47ebc99
commit c3b052db58
23 changed files with 1748 additions and 1077 deletions
@@ -1,9 +1,65 @@
-concrete IdiomLav of Idiom = CatLav ** open Prelude, ResLav in {
-{-
-  flags optimize=all_subs ;
+concrete IdiomLav of Idiom = CatLav ** open Prelude, ResLav, VerbLav, ParadigmsVerbsLav in {
+flags optimize=all_subs ;

  lin
+	ImpersCl vp = let
+	  a = AgP3 Sg Masc
+	in{
+      s = \\mood,pol =>
+		buildVerb vp.v mood pol a ++ -- Verb
+        vp.s2 ! a					-- Object(s), complements, adverbial modifiers; 
+    } ;  
+  
+	GenericCl vp = let
+	  a = AgP3 Sg Masc
+	in{
+      s = \\mood,pol =>
+		buildVerb vp.v mood pol a ++ -- Verb
+        vp.s2 ! a					-- Object(s), complements, adverbial modifiers; 
+    } ;  
+	
+	ExistNP np = let
+	  v = lin V mkVerb_toBe;
+	  a = np.a
+	in {
+      s = \\mood,pol =>
+		buildVerb v mood pol a ++ -- Verb
+        np.s ! Nom				  
+    } ;  
+	
+	ExistIP ip = let
+	  v = lin V mkVerb_toBe;
+	  a = AgP3 ip.n Masc
+	in {
+      s = \\mood,pol =>
+	    ip.s ! Nom ++
+		buildVerb v mood pol a -- Verb          
+    } ;  
+	
+	ProgrVP v = v; -- FIXME - needs restriction so that only VerbMood Indicative _ _ Present is allowed; but can't do that on VP level..
+	
+	ImpPl1 vp = let
+	  a = AgP1 Pl
+	in {
+      s = 
+	    vp.v.s ! Pos ! (Indicative P1 Pl Pres) ++ -- Verb
+        vp.s2 ! a		         		  -- Object(s), complements, adverbial modifiers; 
+    } | {
+      s = 
+	    vp.v.s ! Pos ! (Indicative P1 Pl Fut) ++ -- Verb
+        vp.s2 ! a		         		  -- Object(s), complements, adverbial modifiers; 
+	};  
+	
+	ImpP3 np vp = {
+      s = "lai" ++ np.s ! Nom ++ buildVerb vp.v (Ind Simul Pres) Pos np.a ++ vp.s2 ! np.a;
+    };  
+	
+	--FIXME placeholder
+	CleftNP np rs = { s = \\_,_ => NON_EXISTENT } ;
+	CleftAdv ad s = { s = \\_,_ => NON_EXISTENT } ;
+{-  
    ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
+	
    GenericCl vp = mkClause "one" (agrP3 Sg) vp ;

    CleftNP np rs = mkClause "it" (agrP3 Sg)