gf-book/examples/chapter3/DiscontEng.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

concrete DiscontEng of Discont = {
  param
    SForm = SDecl | SQuest ;
  lincat 
    S, NP, AP = Str ;
    Cl = SForm => Str ;
    VP = {verb,comp : Str} ; 
  lin 
    DeclCl  cl = cl ! SDecl ;
    QuestCl cl = cl ! SQuest ;
    PredVP np vp = table {
      SDecl  => np ++ vp.verb ++ vp.comp ;
      SQuest => vp.verb ++ np ++ vp.comp
      } ;
    CompAP ap = {
      verb = "is" ;
      comp = ap
      } ;
    John = "John" ;
    Old = "old" ;
}