summaryrefslogtreecommitdiff
path: root/examples/app/AppFreInput.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2015-06-02 12:59:29 +0000
committeraarne <aarne@chalmers.se>2015-06-02 12:59:29 +0000
commit3643e20406abf83d2a41d8d46dd5c66237ef1727 (patch)
tree0256c6bfd6b2a4b356ff5a648763b15d96c2cd48 /examples/app/AppFreInput.gf
parenteb07e4e8622e11087c5f6c14cd35d1575fcea3a8 (diff)
copied examples/app to examples/slowApp; the new app is a bit scaled down but much faster
Diffstat (limited to 'examples/app/AppFreInput.gf')
-rw-r--r--examples/app/AppFreInput.gf68
1 files changed, 0 insertions, 68 deletions
diff --git a/examples/app/AppFreInput.gf b/examples/app/AppFreInput.gf
deleted file mode 100644
index d0c95fe90..000000000
--- a/examples/app/AppFreInput.gf
+++ /dev/null
@@ -1,68 +0,0 @@
---# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos
-
-concrete AppFreInput 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,SlashV2a,ComplSlash],
- SentenceFre [PredVP,UseCl],
- QuestionFre - [QuestCl,QuestIAdv,ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP],
- ConjunctionFre,
- ConstructionFre,
- TranslateFre [QuestCl,QuestIAdv],
- IdiomFre - [CleftNP, CleftAdv,ImpP3],
- 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 ;
--}
-
-}