mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
32 lines
951 B
Plaintext
32 lines
951 B
Plaintext
--1 Functions that are not in the API, but common in Russian
|
|
--
|
|
-- Aarne Ranta, Janna Khegai 2003
|
|
|
|
resource ExtraIta = open PredicationIta, Prelude, SyntaxIta, MorphoIta, ResourceIta in {
|
|
|
|
oper
|
|
|
|
averBisogno : CN -> VP = \cn ->
|
|
PosVG (PredTV (mkTransVerbPrep (verbPres avere) "bisogno"** {lock_TV = <>}) (IndefOneNP cn)) ;
|
|
|
|
-- the following are too low-level and should be provided by the resources
|
|
|
|
injuredBody: AP -> NP -> CN -> S = \injured, patient, head ->
|
|
(PredVP patient
|
|
{s = \\g,v => pronRefl patient.n patient.p ++
|
|
verbEssere.s ! v ++
|
|
injured.s ! (AF g patient.n) ++
|
|
(DefOneNP head).s ! case2pform accusative ;
|
|
lock_VP = <>
|
|
} ) ** {lock_S = <> };
|
|
|
|
partitNP : CN -> NP = \cn ->
|
|
let {np = DefOneNP cn} in {s = \\_ => np.s ! Aton genitive} ** np ;
|
|
|
|
datAdv : NP -> AdV = \np ->
|
|
{s = np.s ! Aton dative; lock_AdV = <> } ;
|
|
|
|
};
|
|
|
|
|