From e682f0972d4e6ca4c2b7ba52125512565ed2020b Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 4 Jun 2016 17:07:35 +0000 Subject: made App into a functor to make its body easier to modify; unfortunately, the import list must be copied however --- examples/app/AppEng.gf | 30 +----------------------------- 1 file changed, 1 insertion(+), 29 deletions(-) (limited to 'examples/app/AppEng.gf') diff --git a/examples/app/AppEng.gf b/examples/app/AppEng.gf index 12e5624e8..2317a6023 100644 --- a/examples/app/AppEng.gf +++ b/examples/app/AppEng.gf @@ -24,33 +24,5 @@ concrete AppEng of App = PassVPSlash, PassAgentVPSlash -- not reachable anyway ] ---P ,PhrasebookEng - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv] + ** AppFunctor with (Syntax = SyntaxEng) ; - ** open MorphoEng, ResEng, ParadigmsEng, SyntaxEng, (G = GrammarEng), (E = ExtraEng), Prelude in { - -flags - literal=Symb ; - --- to suppress punctuation -lin ---P PSentence, PQuestion = \s -> lin Text (mkUtt s) ; ---P PGreetingMale, PGreetingFemale = \s -> lin Text s ; ---P GObjectPlease o = lin Text (mkUtt o) ; ---P PhrasePhr p = {s = "+" ++ p.s} | p ; ---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 ; - - -ComplV2 v np = mkVP v np ; - -PassV2 v2 = passiveVP v2 ; - -RelV2 rp np v2 = mkRCl rp (mkClSlash np (mkVPSlash v2)) ; -QuestV2 ip np v2 = mkQCl ip (mkClSlash np (mkVPSlash v2)) ; - -} -- cgit v1.2.3