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

---
 examples/attempto/AttemptoUrd.gf     |  6 ++
 examples/attempto/LexAttemptoUrd.gf  | 39 ++++++++++++
 examples/attempto/TestAttemptoUrd.gf | 89 ++++++++++++++++++++++++++++
 3 files changed, 134 insertions(+)
 create mode 100644 examples/attempto/AttemptoUrd.gf
 create mode 100644 examples/attempto/LexAttemptoUrd.gf
 create mode 100644 examples/attempto/TestAttemptoUrd.gf

diff --git a/examples/attempto/AttemptoUrd.gf b/examples/attempto/AttemptoUrd.gf
new file mode 100644
index 000000000..10ec91af3
--- /dev/null
+++ b/examples/attempto/AttemptoUrd.gf
@@ -0,0 +1,6 @@
+--# -path=.:./present
+concrete AttemptoUrd of Attempto = SymbolsC ** AttemptoI - [mustVP] with
+  (Syntax = SyntaxUrd),
+  (Symbolic = SymbolicUrd),
+  (LexAttempto = LexAttemptoUrd) ;
+
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)) ;
+
+}
diff --git a/examples/attempto/TestAttemptoUrd.gf b/examples/attempto/TestAttemptoUrd.gf
new file mode 100644
index 000000000..87e827842
--- /dev/null
+++ b/examples/attempto/TestAttemptoUrd.gf
@@ -0,0 +1,89 @@
+--# -path=.:./present:c:/gf/lib/src/prelude:c:/gf/lib/src/abstract:c:/gf/lib/src/api:c:/gf/lib/src/urdu:c:/gf/lib/src/common 
+
+concrete TestAttemptoUrd of TestAttempto = AttemptoUrd ** 
+--  open SyntaxUrd, ParadigmsUrd, IrregUrd, (C = ConstructX) in {
+open SyntaxUrd, ParadigmsUrd,  (C = ConstructX) in {
+
+lin card_N = mkkN "kard" ;
+lin water_MCN = mkCN (mkkN "pany") ;
+lin john_PN = mkPN "John" ;
+lin apple_N = mkkN "seb" ;
+lin sleep_V = mkV "swna" ;
+lin young_A = mkA "jwan" ;
+lin dog_N = mkkN "kta" ;
+lin animal_N = mkkN "janwr" ;
+lin wait_V = compoundV "antz-ar" (mkV "krna") ;
+--lin man_N = mkCN (mkN "mrd" masculine) ;
+lin woman_N = mkCN (mkN "ewrt" feminine) ;
+lin give_V3 = mkV3 (mkV "dyna") "" "" ;
+lin tired_A = mkA "kh-ka" ;
+lin rich_A = mkA "amyr" ;
+lin customer_N = mkkN "gahk" ;
+lin enter_V2 = mkV2 (compoundV "daKl" (mkV "hwna")) "" ;
+lin bank_N = mkkN "bynk" ;
+lin satisfied_A = mkA "mt-mn" ;
+lin lucky_A = mkA "Kwx qsmt" ;
+lin well_known_A = mkA "mxhwr" ;
+lin important_A = mkA "ahm" ;
+lin expensive_A = mkA "mhnga" ;
+lin fill_in_V2 = mkV2 (mkV "bh-rna") "kw" ;
+lin form_N = mkkN "qsm" ;
+lin age_N = mkkN "emr" ;
+lin teacher_N = mkkN "astad" ;
+lin successful_A = mkA "kamyab" ;
+--lin fond_A2 = mkA2 (mkA "fond") (mkPrep "of") ;
+lin garden_N = mkkN "baG" ;
+lin morning_N = mkkN "Sbh" ;
+lin code_N = mkkN "kwd" ;
+lin drinkable_A = mkA "drinkable" ;
+lin work_V = compoundV "kam" (mkV "krna") ;
+lin admitted_A = mkA "manna" ;
+lin eat_V2 = mkV2 (mkV "kh-ana") "" ;
+lin burger_N = mkkN "brgr" ;
+lin earn_V2 = mkV2 "kmana" ;
+lin income_N = mkkN "kmay" ;
+lin england_PN = mkPN "England" ;
+lin beginning_N = mkkN "AGaz" ;
+lin office_N = mkkN "dftr" ;
+--lin interested_A2 = mkA2 (mkA "interested") (mkPrep "in") ;
+--lin morning_N = mkkN "morning" ;
+lin classroom_N = mkkN "klas rwm" ;
+lin manually_Adv = mkAdv "Kwd" ;
+lin slot_N = mkkN "jgh" ;
+lin patiently_Adv = mkAdv "sbr sE" ;
+lin course_N = mkkN "kwrs" ;
+lin carefully_Adv = mkAdv "ahtyat sE" ;
+lin time_N = mkkN "wqt" ;
+--lin believe_VS = mkVS (mkV "believe") ;
+lin seriously_Adv = mkAdv "twjh sE" ;
+lin clerk_N = mkkN "klrk" ;
+lin screen_N = mkkN "stryn" ;
+lin blink_V = mkV "cmkna" ;
+lin bed_N = mkkN "bstr" ;
+lin container_N = mkkN "kntynr" ;
+lin automated_teller_N = mkkN "Kwd bKwd" ;
+lin reject_V2 = mkV2 (mkV "rject") "kw" ;
+lin accept_V2 = mkV2 (compoundV "qbwl" (mkV "krna")) "" ;
+lin type_V2 = mkV2 (compoundV "typ2" (mkV "krna")) "" ;
+--lin know_VS = mkVS IrregEng.know_V ;
+lin manager_N = mkkN "mnyjr" ;
+--lin oversleep_V = mkV "oversleep" "overslept" "overslept" ;
+lin valid_A = mkA "lagw" ;
+lin see_V2 = mkV2 (mkV "dykh-na") "" ;
+lin bark_V = mkV "bh-wkna" ;
+lin go_V2 = mkV2 (mkV "jana") "" ;
+lin brother_N = mkkN "bh-ay" ;
+lin mary_PN = mkPN "mary" ;
+lin machine_N = mkkN "mxin" ;
+lin correct_A = mkA "SyH" ;
+
+lin kilogram_Unit = mkkN "klw gram" ;
+
+oper mkkN : Str -> CN = \n -> mkCN (ParadigmsUrd.mkN n) ;
+
+lin
+  in_Prep = mkPrep "myN" ;
+  at_Prep = mkPrep "pr" ;
+  into_Prep = mkPrep "myN" ;
+
+}