From d9d797b1f11a2927589c9db54bab9ebb6b2c2992 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 11 May 2016 11:24:31 +0000
Subject: [PATCH] skeletal version of AppRus.gf

---
 src/chunk/ChunkRus.gf           |  3 +++
 src/translator/ExtensionsRus.gf | 12 ++++++++++
 src/translator/TranslateRus.gf  | 42 +++++++++++++++++++++++++++++++++
 3 files changed, 57 insertions(+)
 create mode 100644 src/chunk/ChunkRus.gf
 create mode 100644 src/translator/ExtensionsRus.gf
 create mode 100644 src/translator/TranslateRus.gf

diff --git a/src/chunk/ChunkRus.gf b/src/chunk/ChunkRus.gf
new file mode 100644
index 000000000..ab5a047a8
--- /dev/null
+++ b/src/chunk/ChunkRus.gf
@@ -0,0 +1,3 @@
+concrete ChunkRus of Chunk = CatRus, ExtensionsRus [VPS,VPI] **  {
+
+}
diff --git a/src/translator/ExtensionsRus.gf b/src/translator/ExtensionsRus.gf
new file mode 100644
index 000000000..443649d64
--- /dev/null
+++ b/src/translator/ExtensionsRus.gf
@@ -0,0 +1,12 @@
+--# -path=.:../abstract
+
+concrete ExtensionsRus of Extensions = 
+  CatRus ** open ResRus, (E = ExtraRus), Prelude, SyntaxRus in {
+
+flags 
+  coding = utf8 ;
+
+lincat
+  VPI = {s:Str} ;
+
+}
diff --git a/src/translator/TranslateRus.gf b/src/translator/TranslateRus.gf
new file mode 100644
index 000000000..377e292f7
--- /dev/null
+++ b/src/translator/TranslateRus.gf
@@ -0,0 +1,42 @@
+--# -path=.:../chunk:alltenses
+
+concrete TranslateRus of Translate = 
+  TenseX - [IAdv, CAdv],
+  CatRus,
+  NounRus - [PPartNP],
+  AdjectiveRus,
+  NumeralRus,
+  SymbolRus [
+    PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
+    ],
+  ConjunctionRus,
+  VerbRus -  [
+    UseCopula,  
+    PassV2  -- generalized in Extensions
+    ],
+  AdverbRus,
+  PhraseRus,
+  SentenceRus,
+  QuestionRus,
+  RelativeRus,
+  IdiomRus,
+  --ConstructionRus,
+  --DocumentationBul,
+
+  ChunkRus,
+  ExtensionsRus [
+    ListVPS,BaseVPS,ConsVPS,ConjVPS,ListVPI,BaseVPI,ConsVPI,ConjVPI,
+    CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+    DirectComplVS, DirectComplVQ, FocusObjS,
+    PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv,
+    WithoutVP, InOrderToVP, ByVP
+    ],
+
+  DictionaryRus ** 
+{
+
+flags
+  literal=Symb ;
+
+}
+