examples/stoneage/StoneageResFin.gf


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

resource StoneageResFin = open ResourceFin, ParadigmsFin in {

oper
  PresV : V -> NP -> Phr = \v,s -> PresCl (SPredV s v) ;
  PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> PresCl (SPredV2 s v o) ;
  PresV3 : V3 -> NP -> NP -> NP -> Phr = \v,s,o,r -> PresCl (SPredV3 s v o r) ;
  PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
  PresPartV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (caseV2 v partitive) ;

  PresCl : Cl -> Phr = 
    \c -> { s = (UseCl (PosTP TPresent ASimul) c).s } ** {lock_Phr = <>} ;
 
  ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
  ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;

  partV2 : V -> V2 = \v -> caseV2 v partitive ;

}