mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
40 lines
1.2 KiB
Plaintext
40 lines
1.2 KiB
Plaintext
--1 Functions that are not in the API, but common in Russian
|
|
--
|
|
-- Aarne Ranta, Janna Khegai 2003
|
|
|
|
resource ExtraIta = open ResourceIta, Prelude, SyntaxIta, MorphoIta in {
|
|
|
|
oper
|
|
NPLock = NounPhrase ** {lock_NP : {}} ;
|
|
CNLock = CommNounPhrase ** {lock_CN : {}} ;
|
|
SLock = Sentence ** {lock_S : {}} ;
|
|
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 -> NPLock -> CNLock -> SLock = \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 = <> } ;
|
|
|
|
-- from Predication:
|
|
predV2: TransVerb -> NPLock -> NounPhrase -> SLock = \F, x, y ->
|
|
predVerbPhrase x ((predVerbGroup True) (complTransVerb F y)) ** { lock_S = <>} ;
|
|
|
|
};
|
|
|
|
|