summaryrefslogtreecommitdiff
path: root/examples/app/App.gf
blob: cfd56bb4cfa89a0ed6bf6559bb902f23b5c0bd66 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49


abstract 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

              ** {
flags
  startcat=Phr ;
  heuristic_search_factor=0.80; -- doesn't seem to affect speed or quality much

fun
  PhrasePhr : Phrase -> Phr ;
  Phrase_Chunk : Phrase -> Chunk ;

  ComplV2 : V2 -> NP -> VP ;  -- sees him
  
  ComplV2V : V2V -> NP -> VP -> VP ;  -- forces him to leave
--  ComplV2A : V2A -> NP -> AP -> VP ;
--  ComplV2Q : V2Q -> NP -> QS -> VP ;
--  ComplV2S : V2S -> NP -> S  -> VP ;
  ComplV3  : V3  -> NP -> NP -> VP ;  -- gives him an apple

  PassV2       : V2 -> VP ;  -- is seen
  PassAgentV2  : V2 -> NP -> VP ;  -- is seen by her
  RelV2        : RP -> NP -> V2 -> RCl ; -- that she sees
  QuestV2      : IP -> NP -> V2 -> QCl ; -- whom does she see

}