AppEst was missing from darcs, oops

1 files changed, 54 insertions, 0 deletions

diff --git a/examples/app/AppEst.gf b/examples/app/AppEst.gf
new file mode 100644
index 000000000..dd4111f50
--- /dev/null
+++ b/examples/app/AppEst.gf
@@ -0,0 +1,54 @@
+--# -path=.:../../lib/src/chunk:../../lib/src/translator:../../lib/src/estonian:../phrasebook/gfos:alltenses
+
+concrete AppEst of App = 
+
+  TranslateEst - [
+  -- 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
+  ]
+
+  ,PhrasebookEst - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_A, open_Adv]
+
+    ** open ParadigmsEst, SyntaxEst, Prelude in {
+
+flags
+  literal=Symb ;
+
+lin
+  PSentence, PQuestion = \s -> lin Text (mkUtt s) ;
+  PGreetingMale, PGreetingFemale = \s -> lin Text s ;
+  GObjectPlease o = lin Text (mkUtt o) ;
+
+  PhrasePhr p = {s = "+" ++ p.s} | p ;
+  Phrase_Chunk p = p ;
+
+
+ComplV2V v np vp = mkVP v np vp ;
+ComplV2A v np vp = mkVP v np vp ;
+ComplV2Q v np vp = mkVP v np vp ;
+ComplV2S v np vp = mkVP v np vp ;
+ComplV3  v np vp = mkVP v np vp ;
+
+
+ComplV2 v np = mkVP v np ;
+
+  PassV2 v2 = passiveVP v2 ;
+  PassV2 v2 = passiveVP v2 ;
+}