From 74fd6eef3b416ea07cbf21f254d397c2c534bfd9 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Mon, 21 Aug 2017 15:06:46 +0300
Subject: [PATCH] AppUrd added

---
 examples/app/AppUrd.gf       | 29 +++++++++++++++++++++++++++++
 examples/app/Makefile        |  2 ++
 examples/phrasebook/Makefile |  2 +-
 3 files changed, 32 insertions(+), 1 deletion(-)
 create mode 100644 examples/app/AppUrd.gf

diff --git a/examples/app/AppUrd.gf b/examples/app/AppUrd.gf
new file mode 100644
index 000000000..fe80e8b84
--- /dev/null
+++ b/examples/app/AppUrd.gf
@@ -0,0 +1,29 @@
+--# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos
+
+concrete AppUrd of App = 
+
+  TranslateUrd - [
+  -- Verb
+    SlashV2a,ComplSlash, -- replaced by a more efficient inlined version
+    SlashV2V,             
+    Slash2V3, Slash3V3, SlashV2S, SlashV2Q, SlashV2A, 
+    SlashVV, SlashV2VNP,
+    AdvVPSlash, AdVVPSlash, VPSlashPrep,
+  -- Sentence
+    SlashVP, SlashVS,
+    PredSCVP, 
+    AdvSlash, SlashPrep, SlashVS,
+    EmbedS, EmbedQS, EmbedVP, RelS,
+  -- Question
+    ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP,
+  -- Idiom
+    CleftNP, CleftAdv,
+    ImpP3,
+  -- Construction
+  -- Extensions
+    PassVPSlash, PassAgentVPSlash -- not reachable anyway
+  ],
+   PhrasebookUrd - [open_Adv,closed_A,open_A,at_Prep]
+   
+
+   ** AppFunctor with (Syntax = SyntaxUrd) ;
diff --git a/examples/app/Makefile b/examples/app/Makefile
index 67b0a3e6a..7c004600e 100644
--- a/examples/app/Makefile
+++ b/examples/app/Makefile
@@ -17,6 +17,7 @@ APP13=$(APP12) AppJpn.pgf
 APP14=$(APP13) AppTha.pgf
 APP15=$(APP14) AppEst.pgf
 APP16=$(APP15) AppRus.pgf
+APP17=$(APP16) AppUrd.pgf
 
 # With dependencies:
 App11.pgf: $(APP11)
@@ -56,6 +57,7 @@ AppEst.pgf:: ; $(GFMKT) -name=AppEst AppEst.gf +RTS -K64M
 AppFin.pgf:: ; $(GFMKT) -name=AppFin AppFin.gf +RTS -K64M
 AppGer.pgf:: ; $(GFMKT) -name=AppGer AppGer.gf +RTS -K64M
 AppHin.pgf:: ; $(GFMKT) -name=AppHin AppHin.gf
+AppUrd.pgf:: ; $(GFMKT) -name=AppUrd AppUrd.gf
 AppFre.pgf:: ; $(GFMKT) -name=AppFre AppFre.gf +RTS -K64M
 AppIta.pgf:: ; $(GFMKT) -name=AppIta AppIta.gf +RTS -K64M
 AppJpn.pgf:: ; $(GFMKT) -name=AppJpn AppJpn.gf +RTS -K64M
diff --git a/examples/phrasebook/Makefile b/examples/phrasebook/Makefile
index 2f9a20f34..01b14c748 100644
--- a/examples/phrasebook/Makefile
+++ b/examples/phrasebook/Makefile
@@ -1,7 +1,7 @@
 compile = runghc Compile 
 
 forApp: 
-	$(compile) -opt Bul Cat Chi Dut Eng Est Fin Fre Ger Hin Ita Jpn Rus Spa Swe Tha
+	$(compile) -opt Bul Cat Chi Dut Eng Est Fin Fre Ger Hin Ita Jpn Rus Spa Swe Tha Urd
 	make gfos
 
 .PHONY: gfos