next-lib/src/bulgarian/RelativeBul.gf


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

concrete RelativeBul of Relative = CatBul ** open ResBul in {
  flags coding=cp1251 ;


  flags optimize=all_subs ;

  lin
    RelCl cl = {
      s = \\t,a,p,agr => suchRP ! agr.gn ++ "÷å" ++ cl.s ! t ! a ! p ! Main ; 
      role = RSubj
      } ;

    RelVP rp vp = {
      s = \\t,a,p,agr => 
        let 
          cl = mkClause (rp.s ! agr.gn) agr vp
        in
        cl.s ! t ! a ! p ! Main ;
      role = RSubj
      } ;

    RelSlash rp slash = {
      s = \\t,a,p,agr => slash.c2.s ++ rp.s ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
      role = RObj Acc
      } ;

    FunRP p np rp = {
      s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "íà"}) ++ rp.s ! gn ;
      } ;

    IdRP = {
      s = whichRP ;
      } ;
}