summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorNick Frolov <nf@mkmks.org>2011-11-24 16:13:08 +0000
committerNick Frolov <nf@mkmks.org>2011-11-24 16:13:08 +0000
commitdc121c6bd3068f2800f87414b80b3ebff09c197c (patch)
tree0f1402f00d37cf37b139704c572dcb2001c3a5bf /examples
parentc05be648384aa6ca1b1753d6541530fc8841b42a (diff)
Symbolic and Nound fixes for Russian
Diffstat (limited to 'examples')
-rw-r--r--examples/phrasebook/SentencesRus.gf6
-rw-r--r--examples/phrasebook/WordsRus.gf5
2 files changed, 7 insertions, 4 deletions
diff --git a/examples/phrasebook/SentencesRus.gf b/examples/phrasebook/SentencesRus.gf
index a88953ea1..67e06d7f1 100644
--- a/examples/phrasebook/SentencesRus.gf
+++ b/examples/phrasebook/SentencesRus.gf
@@ -2,8 +2,8 @@ concrete SentencesRus of Sentences = NumeralRus ** SentencesI - [
NameNN, SHave, SHaveNo, SHaveNoMass, QDoHave, AHaveCurr
] with
(Syntax = SyntaxRus),
--- (Symbolic = SymbolicRus),
- (Lexicon = LexiconRus), (Grammar = GrammarRus) ** open Prelude, SyntaxRus in {
+ (Symbolic = SymbolicRus),
+ (Lexicon = LexiconRus), (Grammar = GrammarRus) ** open Prelude, SyntaxRus, (P = ParadigmsRus) in {
lin
SHave p obj = mkS (mkCl (mkVP have_V3 obj p.name)) ;
SHaveNo p obj = mkS (mkCl (mkVP have_not_V3 (mkNP obj) p.name)) ;
@@ -12,4 +12,6 @@ concrete SentencesRus of Sentences = NumeralRus ** SentencesI - [
AHaveCurr p curr = mkCl (mkVP have_V3 (mkNP aPl_Det curr) p.name) ;
+ lin NameNN = mkNP (P.mkN "NN") ;
+
} \ No newline at end of file
diff --git a/examples/phrasebook/WordsRus.gf b/examples/phrasebook/WordsRus.gf
index 63b2e6e8b..ea9348eba 100644
--- a/examples/phrasebook/WordsRus.gf
+++ b/examples/phrasebook/WordsRus.gf
@@ -185,6 +185,7 @@ flags coding = utf8 ;
Husband = xOf sing (P.mkN "муж") ;
Son = xOf sing (P.mkN "сын") ;
Daughter = xOf sing (P.mkN "дочь" "дочери" "дочери" "дочь" "дочерью" "дочери" "дочь" "дочери" "дочерей" "дочерям" "дочерей" "дочерьми" "дочерях" P.feminine P.animate) ;
+-- Daughter = xOf sing E.daughter_N ;
Children = xOf plur L.child_N ;
@@ -256,8 +257,8 @@ flags coding = utf8 ;
relativePerson n (mkCN x) (\a,b,c -> mkNP (mkNP the_Quant a c) (SyntaxRus.mkAdv possess_Prep b)) p ;
mkTransport : N -> {name : CN ; by : Adv} = \n -> {
- name = mkCN n ;
- by = SyntaxRus.mkAdv on_Prep (mkNP the_Det n)
+ name = mkCN n ;
+ by = SyntaxRus.mkAdv on_Prep (mkNP the_Det n)
} ;
far_IAdv = ss "как далеко" ** {lock_IAdv = <>} ;