From edb8bd6b16aec4829a69500c2dd6af3508c91e43 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 9 Nov 2011 08:41:26 +0000
Subject: [PATCH] Latvian api/ modules, and an entry in lib/src/Make.hs; api
 not yet compilable

---
 lib/src/Make.hs                |  5 +++--
 lib/src/api/CombinatorsLav.gf  |  6 ++++++
 lib/src/api/ConstructorsLav.gf |  3 +++
 lib/src/api/SyntaxLav.gf       |  5 +++++
 lib/src/api/TryLav.gf          | 22 ++++++++++++++++++++++
 5 files changed, 39 insertions(+), 2 deletions(-)
 create mode 100644 lib/src/api/CombinatorsLav.gf
 create mode 100644 lib/src/api/ConstructorsLav.gf
 create mode 100644 lib/src/api/SyntaxLav.gf
 create mode 100644 lib/src/api/TryLav.gf

diff --git a/lib/src/Make.hs b/lib/src/Make.hs
index 08a80a72d..48cf40063 100644
--- a/lib/src/Make.hs
+++ b/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"]
diff --git a/lib/src/api/CombinatorsLav.gf b/lib/src/api/CombinatorsLav.gf
new file mode 100644
index 000000000..c7ba4b194
--- /dev/null
+++ b/lib/src/api/CombinatorsLav.gf
@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsLav = Combinators with 
+  (Cat = CatLav),
+  (Structural = StructuralLav),
+  (Constructors = ConstructorsLav) ;
diff --git a/lib/src/api/ConstructorsLav.gf b/lib/src/api/ConstructorsLav.gf
new file mode 100644
index 000000000..fad2aaf3c
--- /dev/null
+++ b/lib/src/api/ConstructorsLav.gf
@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsLav = Constructors with (Grammar = GrammarLav) ;
diff --git a/lib/src/api/SyntaxLav.gf b/lib/src/api/SyntaxLav.gf
new file mode 100644
index 000000000..e170a4730
--- /dev/null
+++ b/lib/src/api/SyntaxLav.gf
@@ -0,0 +1,5 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxLav of Syntax = 
+  ConstructorsLav, CatLav, StructuralLav, CombinatorsLav ;
+
diff --git a/lib/src/api/TryLav.gf b/lib/src/api/TryLav.gf
new file mode 100644
index 000000000..7689546d3
--- /dev/null
+++ b/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 ;
+  } ;
+
+
+}