From bec718d49deb4000bbf99adbef66b27e93d08f1b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 29 Mar 2010 13:59:46 +0000
Subject: AttemptoUrd added

---
 examples/attempto/LexAttemptoUrd.gf | 39 +++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 examples/attempto/LexAttemptoUrd.gf

(limited to 'examples/attempto/LexAttemptoUrd.gf')

diff --git a/examples/attempto/LexAttemptoUrd.gf b/examples/attempto/LexAttemptoUrd.gf
new file mode 100644
index 000000000..c38885a25
--- /dev/null
+++ b/examples/attempto/LexAttemptoUrd.gf
@@ -0,0 +1,39 @@
+instance LexAttemptoUrd of LexAttempto = 
+  open 
+   ExtraUrd,  
+   SyntaxUrd, 
+   ParadigmsUrd, 
+   ConstructX, 
+   (M = MakeStructuralUrd)
+--   IrregUrd 
+   in {
+
+oper
+  possible_A = mkA "mmkn" ;
+  necessary_A = mkA "Zrwry" ;
+  own_A = mkA "apna" ;
+  have_VV = mkVV have_V ;
+  provably_Adv = ParadigmsUrd.mkAdv "sabt" ;
+  provable_A = mkA "sabt" ;
+  false_A = mkA "GlT" ;
+  such_A = mkA "aisa" ;
+ 
+  genitiveNP np = mkNP (GenNP np) ;
+
+  kilogram_CN = mkCN (mkN "klwgram") ;
+
+  each_Det = ExtraUrd.each_Det ;
+
+  that_Subj = M.mkSubj "kh" ;
+
+  comma_and_Conj = mkConj [] "awr" plural ;
+  comma_or_Conj = mkConj [] "ya" singular ;
+  slash_Conj = mkConj [] "/" singular ;
+
+  whose_IDet = M.mkIDet "ks ka" singular ;
+
+  eachOf np = mkNP (mkNP each_Det) (SyntaxUrd.mkAdv part_Prep np) ;
+
+  adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ;
+
+}
-- 
cgit v1.2.3