From f0bd6dc69fb71292260d03e129beda5f4789a8bd Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 6 May 2011 08:38:39 +0000
Subject: [PATCH] api for Afrikaans

---
 lib/src/afrikaans/ResAfr.gf    | 4 ++--
 lib/src/api/CombinatorsAfr.gf  | 6 ++++++
 lib/src/api/ConstructorsAfr.gf | 3 +++
 lib/src/api/SyntaxAfr.gf       | 4 ++++
 lib/src/api/TryAfr.gf          | 3 +++
 5 files changed, 18 insertions(+), 2 deletions(-)
 create mode 100644 lib/src/api/CombinatorsAfr.gf
 create mode 100644 lib/src/api/ConstructorsAfr.gf
 create mode 100644 lib/src/api/SyntaxAfr.gf
 create mode 100644 lib/src/api/TryAfr.gf

diff --git a/lib/src/afrikaans/ResAfr.gf b/lib/src/afrikaans/ResAfr.gf
index cd8163da2..1d3488767 100644
--- a/lib/src/afrikaans/ResAfr.gf
+++ b/lib/src/afrikaans/ResAfr.gf
@@ -296,8 +296,8 @@ param
 
   oper
     vForm : Tense -> VForm = \t -> case t of {
-      Pres  => VPres ;
-      Fut   => VPres  --# notpresent
+      Pres  => VPres 
+     ; Fut   => VPres  --# notpresent
      ;  Past | Cond => VPast   -- Fut and Cond affect zullen --# notpresent
       } ;
 
diff --git a/lib/src/api/CombinatorsAfr.gf b/lib/src/api/CombinatorsAfr.gf
new file mode 100644
index 000000000..a4a491d24
--- /dev/null
+++ b/lib/src/api/CombinatorsAfr.gf
@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsAfr = Combinators with 
+  (Cat = CatAfr),
+  (Structural = StructuralAfr),
+  (Constructors = ConstructorsAfr) ;
diff --git a/lib/src/api/ConstructorsAfr.gf b/lib/src/api/ConstructorsAfr.gf
new file mode 100644
index 000000000..495c4e6a4
--- /dev/null
+++ b/lib/src/api/ConstructorsAfr.gf
@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsAfr = Constructors with (Grammar = GrammarAfr) ;
diff --git a/lib/src/api/SyntaxAfr.gf b/lib/src/api/SyntaxAfr.gf
new file mode 100644
index 000000000..a0ad84a6b
--- /dev/null
+++ b/lib/src/api/SyntaxAfr.gf
@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxAfr of Syntax = ConstructorsAfr, CatAfr, StructuralAfr, CombinatorsAfr ;
+
diff --git a/lib/src/api/TryAfr.gf b/lib/src/api/TryAfr.gf
new file mode 100644
index 000000000..b776e18d1
--- /dev/null
+++ b/lib/src/api/TryAfr.gf
@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryAfr = SyntaxAfr, LexiconAfr, ParadigmsAfr - [mkAdv,mkOrd] ;