mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 13:29:32 -06:00
19 lines
674 B
Plaintext
19 lines
674 B
Plaintext
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 ;
|
|
|
|
}
|