Latvian api/ modules, and an entry in lib/src/Make.hs; api not yet compilable

lib/src/Make.hs

@@ -43,6 +43,7 @@ langsCoding = [
   (("interlingua","Ina"),""),
   (("italian",  "Ita"),"Romance"),
   (("latin",    "Lat"),""),
+  (("latvian",  "Lav"),""),
   (("nepali",   "Nep"),""),
   (("norwegian","Nor"),"Scand"),
   (("persian",  "Pes"),""),
@@ -68,7 +69,7 @@ langsLangAll = langs
 langsLang = langs `except` langsIncomplete ---- []
 
 -- languagues that have notpresent marked
-langsPresent = langsLang `except` ["Nep","Pes","Tha"]
+langsPresent = langsLang `except` ["Lav","Nep","Pes","Tha"]
 
 -- languages for which Lang can be compiled but which are incomplete
 langsIncomplete = ["Amh","Ara","Hin","Lat","Tha","Tur"]
@@ -77,7 +78,7 @@ langsIncomplete = ["Amh","Ara","Hin","Lat","Tha","Tur"]
 langsAPI = langsLang `except` langsIncomplete
 
 -- languages for which to compile Symbolic
-langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Nep","Pes","Pnb","Rus","Tha"])
+langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Lav","Nep","Pes","Pnb","Rus","Tha"])
 
 -- languages for which to compile minimal Syntax
 langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]

lib/src/api/CombinatorsLav.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsLav = Combinators with 
+  (Cat = CatLav),
+  (Structural = StructuralLav),
+  (Constructors = ConstructorsLav) ;

lib/src/api/ConstructorsLav.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsLav = Constructors with (Grammar = GrammarLav) ;

lib/src/api/SyntaxLav.gf

@@ -0,0 +1,5 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxLav of Syntax = 
+  ConstructorsLav, CatLav, StructuralLav, CombinatorsLav ;
+

lib/src/api/TryLav.gf

@@ -0,0 +1,22 @@
+--# -path=.:alltenses:prelude
+
+resource TryLav = SyntaxLav-[mkAdN], LexiconLav, ParadigmsLav - [mkAdv,mkAdN,mkOrd,mkQuant] ** 
+  open (P = ParadigmsLav) in {
+
+oper
+
+  mkAdv = overload SyntaxLav {
+    mkAdv : Str -> Adv = P.mkAdv ;
+  } ;
+
+  mkAdN = overload {
+    mkAdN : CAdv -> AdN = SyntaxLav.mkAdN ;
+    mkAdN : Str -> AdN = P.mkAdN ;
+  } ;
+
+  mkOrd = overload SyntaxLav {
+    mkOrd : Str -> Ord = P.mkOrd ;
+  } ;
+
+
+}