diff options
| author | odanoburu <bcclaro@gmail.com> | 2018-06-20 12:33:05 -0300 |
|---|---|---|
| committer | odanoburu <bcclaro@gmail.com> | 2018-06-20 12:33:05 -0300 |
| commit | f0672679535e59c53ed68729bbb5a201ce507b02 (patch) | |
| tree | 839216d85c207fc4d8fc0565466899ff4a41d5b1 /examples/app/AppFunctor.gf | |
| parent | 8b05ed9469a970590e1b11cc4e83320d8b94e846 (diff) | |
| parent | 427f8d84788fc3757fb4dacda931c878bf253fa1 (diff) | |
Merge remote-tracking branch 'upstream/master' into por
Diffstat (limited to 'examples/app/AppFunctor.gf')
| -rw-r--r-- | examples/app/AppFunctor.gf | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/examples/app/AppFunctor.gf b/examples/app/AppFunctor.gf deleted file mode 100644 index fafb82c54..000000000 --- a/examples/app/AppFunctor.gf +++ /dev/null @@ -1,51 +0,0 @@ -incomplete concrete AppFunctor of App = - - Translate - [ - -- 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 - ], - Phrasebook - [open_Adv] - - ** open Syntax in { - -flags - literal=Symb ; --- case_sensitive=off ; - -lin - PhrasePhr p = {s = "+" ++ p.s} | p ; - Phrase_Chunk p = p ; - - ComplV2 v np = mkVP v np ; - - 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 ; - - - - PassV2 v2 = passiveVP v2 ; - PassAgentV2 v2 np = mkVP (passiveVP v2) (mkAdv by8agent_Prep np) ; - RelV2 rp np v2 = mkRCl rp (mkClSlash np (mkVPSlash v2)) ; - QuestV2 ip np v2 = mkQCl ip (mkClSlash np (mkVPSlash v2)) ; - -} |
