From 65fd6edb6c57d4aed46f91d727ccf3b86b9bc982 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 10 Oct 2006 16:43:41 +0000
Subject: [PATCH] started disambiguation example

---
 examples/disamb/Conversation.gf    | 18 ++++++++++++++++++
 examples/disamb/ConversationEng.gf | 23 +++++++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 examples/disamb/Conversation.gf
 create mode 100644 examples/disamb/ConversationEng.gf

diff --git a/examples/disamb/Conversation.gf b/examples/disamb/Conversation.gf
new file mode 100644
index 000000000..fbbfccc0c
--- /dev/null
+++ b/examples/disamb/Conversation.gf
@@ -0,0 +1,18 @@
+abstract Conversation = {
+
+  cat 
+    Q ; NP ; A ;
+    Gender ; Number ; Politeness ;
+
+  fun
+    PredA : NP -> A -> Q ;
+
+    GMasc, GFem : Gender ;
+    NSg, NPl : Number ;
+    PFamiliar, PPolite : Politeness ;
+
+    You : Number -> Politeness ->  Gender -> NP ;
+
+    Ready : A ;
+
+}
diff --git a/examples/disamb/ConversationEng.gf b/examples/disamb/ConversationEng.gf
new file mode 100644
index 000000000..127ec54bd
--- /dev/null
+++ b/examples/disamb/ConversationEng.gf
@@ -0,0 +1,23 @@
+--# -path=.:prelude
+
+concrete ConversationEng of Conversation = open Prelude in {
+
+  lincat 
+    Q, NP, A = {s : Str} ;
+    Gender, Number, Politeness = {s : Str} ;
+
+  lin
+    PredA np a = ss ("are" ++ np.s ++ a.s) ;
+
+    GMasc = ss (optStr "man") ;
+    GFem  = ss (optStr "woman") ;
+    NSg   = ss (optStr "one") ;
+    NPl   = ss (optStr "many") ;
+    PFamiliar = ss (optStr "friend") ;
+    PPolite   = ss (optStr "respected") ;
+
+    You n p g = ss ("you" ++ n.s ++ p.s ++ g.s) ;
+
+    Ready = ss "ready" ;
+
+}