1 files changed, 39 insertions, 0 deletions
diff --git a/grammars/health/ExtraIta.gf b/grammars/health/ExtraIta.gf
new file mode 100644
index 000000000..68b5d40c2
--- /dev/null
+++ b/grammars/health/ExtraIta.gf
@@ -0,0 +1,39 @@
+--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 = <>} ;
+ 
+};
+
+