diff options
| author | aarne <aarne@chalmers.se> | 2015-06-02 12:59:29 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2015-06-02 12:59:29 +0000 |
| commit | 3643e20406abf83d2a41d8d46dd5c66237ef1727 (patch) | |
| tree | 0256c6bfd6b2a4b356ff5a648763b15d96c2cd48 /examples/app/AppFreInput.gf | |
| parent | eb07e4e8622e11087c5f6c14cd35d1575fcea3a8 (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.gf | 68 |
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 ; --} - -} |
