Latvian resource started by Normunds Gruzitis

2026-05-14 13:42:50 -06:00 · 2011-08-14 16:52:15 +00:00
parent 726b3cc199
commit 86ab6c4c6e
34 changed files with 92020 additions and 0 deletions
--- a/lib/src/latvian/SentenceLav.gf
+++ b/lib/src/latvian/SentenceLav.gf
@@ -0,0 +1,100 @@
+concrete SentenceLav of Sentence = CatLav ** open Prelude, ResLav, ParadigmsVerbsLav in {
+  flags optimize=all_subs ;
+
+  lin
+
+  UseCl t p cl = {s = t.s ++ p.s ++ cl.s ! (Ind t.a t.t) ! p.p} ;
+  
+  PredVP np vp =
+    let
+      part = vp.v.s ! ResLav.Pos ! (Participle np.g np.n Nom) ;
+      obj  = vp.obj ! (Ag np.g np.n)
+    in {
+      s = \\mood,pol =>
+        case mood of {		-- Subject
+          Deb _ _ => np.s ! Dat ;
+          _ => np.s ! Nom
+        } ++
+        case mood of {		-- Verb
+          Ind Simul tense  => vp.v.s ! pol ! (Indicative np.p np.n tense) ;
+          Ind Anter tense => mkVerb_toBe.s ! pol ! (Indicative np.p np.n tense) ++ part ;
+
+          Rel _       Past  => ResLav.NON_EXISTENT ;		-- FIXME (?)
+          Rel Simul tense => vp.v.s ! pol ! (Relative tense) ;
+          Rel Anter tense => mkVerb_toBe.s ! pol ! (Relative tense) ++ part ;
+
+          Deb Simul tense => mkVerb_toBe.s ! pol ! (Indicative P3 Sg tense) ++
+            vp.v.s ! ResLav.Pos ! Debitive ;
+          Deb Anter tense => mkVerb_toBe.s ! pol ! (Indicative P3 Sg tense) ++
+            mkVerb_toBe.s ! ResLav.Pos ! (Participle Masc Sg Nom) ++ vp.v.s ! ResLav.Pos ! Debitive ;
+
+          Condit Simul  => vp.v.s ! pol ! (Indicative np.p np.n Cond) ;
+          Condit Anter => mkVerb_toBe.s ! pol ! (Indicative np.p np.n Cond) ++ part
+        } ++
+        obj					-- Object
+    } ;
+  
+{-  
+    PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
+
+    PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp ;
+
+    ImpVP vp = {
+      s = \\pol,n => 
+        let 
+          agr   = AgP2 (numImp n) ;
+          verb  = infVP True vp agr ;
+          dont  = case pol of {
+            CNeg True => "don't" ;
+            CNeg False => "do" ++ "not" ;
+            _ => []
+            }
+        in
+        dont ++ verb
+    } ;
+
+    SlashVP np vp = 
+      mkClause (np.s ! Nom) np.a vp ** {c2 = vp.c2} ;
+
+    AdvSlash slash adv = {
+      s  = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
+      c2 = slash.c2
+    } ;
+
+    SlashPrep cl prep = cl ** {c2 = prep.s} ;
+
+    SlashVS np vs slash = 
+      mkClause (np.s ! Nom) np.a 
+        (insertObj (\\_ => conjThat ++ slash.s) (predV vs))  **
+        {c2 = slash.c2} ;
+
+    EmbedS  s  = {s = conjThat ++ s.s} ;
+    EmbedQS qs = {s = qs.s ! QIndir} ;
+    EmbedVP vp = {s = infVP False vp (agrP3 Sg)} ; --- agr
+
+    UseCl  t p cl = {
+      s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! ODir
+    } ;
+    UseQCl t p cl = {
+      s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! q
+    } ;
+    UseRCl t p cl = {
+      s = \\r => t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p ! r ;
+      c = cl.c
+    } ;
+    UseSlash t p cl = {
+      s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! ctr p.p  ! ODir ;
+      c2 = cl.c2
+    } ;
+
+    AdvS a s = {s = a.s ++ "," ++ s.s} ;
+
+    SSubjS a s b = {s = a.s ++ s.s ++ b.s} ;
+
+    RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;
+
+  oper
+    ctr = contrNeg True ;  -- contracted negations
+-}
+}
+