next-lib/src/russian/AdverbRus.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

--# -path=.:../abstract:../common:../../prelude

concrete AdverbRus of Adverb = CatRus ** open ResRus, Prelude in {
flags  coding=utf8 ;

  lin
    PositAdvAdj a = {s = a.s !Posit! AdvF} ;
    ComparAdvAdj cadv a np = {
      s = cadv.s ++ a.s !Posit! AdvF ++ "чем" ++ np.s ! PF Nom No NonPoss
      } ;
    ComparAdvAdjS cadv a s = {
      s = cadv.s ++ a.s !Posit! AdvF ++ "чем" ++ s.s
      } ;

    PrepNP na stol = ss (na.s ++ stol.s ! PF na.c Yes NonPoss) ;

    AdAdv = cc2 ;

    SubjS = cc2 ;

    AdnCAdv cadv = {s = cadv.s ++ "чем"} ;

}