From e80c5779cbac878dc25b97eddd6274cd75f0d102 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 2 Jun 2015 09:13:15 +0000
Subject: [PATCH] an input grammar for French - 40 times faster, makes all the
 difference in the app!

---
 examples/app/AppFreInput.gf | 63 +++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 examples/app/AppFreInput.gf

diff --git a/examples/app/AppFreInput.gf b/examples/app/AppFreInput.gf
new file mode 100644
index 000000000..884d1c01f
--- /dev/null
+++ b/examples/app/AppFreInput.gf
@@ -0,0 +1,63 @@
+--# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos
+
+concrete AppFre of App = 
+{-
+  TranslateFre - [
+----    SlashVP, SlashVS, ---- expensive functions in Fre
+  -- Verb
+    SlashV2V,             -- replaced by more efficient inlined versions
+    Slash2V3, Slash3V3, SlashV2S, SlashV2Q, SlashV2A, 
+    SlashVV, SlashV2VNP,
+    AdvVPSlash, AdVVPSlash, VPSlashPrep,
+  -- Sentence
+    PredSCVP, 
+    AdvSlash, SlashPrep, SlashVS,
+    EmbedS, EmbedQS, EmbedVP, RelS,
+  -- Question
+    ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP,
+  -- Idiom
+    CleftNP, CleftAdv,
+    ImpP3    
+  -- Construction
+  -- Extensions
+  ]
+-}
+  NounFre - [PPartNP],
+  AdjectiveFre,
+  VerbFre [UseV,CompAP,CompAdv,UseComp,AdvVP],
+  SentenceFre [PredVP,UseCl],
+  TenseFre,
+  PhraseFre,
+  AdverbFre,
+  NumeralFre,
+  DocumentationFre,
+  SymbolFre [
+    PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
+    ],
+  DictionaryFre,
+  ChunkFre
+
+  ,PhrasebookFre - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_A, closed_A]
+
+    ** open ParadigmsFre, SyntaxFre, 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 ;
+-}
+
+}