summaryrefslogtreecommitdiff
path: root/examples/slowApp/AppTha.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/slowApp/AppTha.gf')
-rw-r--r--examples/slowApp/AppTha.gf48
1 files changed, 0 insertions, 48 deletions
diff --git a/examples/slowApp/AppTha.gf b/examples/slowApp/AppTha.gf
deleted file mode 100644
index c1fc138e7..000000000
--- a/examples/slowApp/AppTha.gf
+++ /dev/null
@@ -1,48 +0,0 @@
---# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos
-
-concrete AppTha of App =
-
- TranslateTha - [
- -- 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
- ]
-
- ,PhrasebookTha - [at_Prep, closed_A, open_A] --- - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv, closed_A, open_A, at_Prep, by_Prep]
-
- ** open ParadigmsTha, SyntaxTha, Prelude in {
-
-flags
- literal=Symb ;
-
-
--- to suppress punctuation
-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 ;
-
-}