msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Symbolic and Nound fixes for Russian

Browse Source
This commit is contained in:
Nick Frolov
2011-11-24 16:13:08 +00:00
parent c05be64838
commit dc121c6bd3
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Setup.hs
View File

@@ -231,7 +231,7 @@ langsLang = langs `except` ["Amh","Ara","Lat","Hin","Tha","Tur"]
langsAPI = langsLang `except` ["Hin","Ina","Tha"] langsAPI = langsLang `except` ["Hin","Ina","Tha"]
-- languages for which to compile Symbolic -- languages for which to compile Symbolic
langsSymbolic = langsAPI `except` ["Rus"] langsSymbolic = langsAPI -- `except` ["Rus"]
-- languages for which to run demo test -- languages for which to run demo test
langsDemo = langsLang `except` ["Ara","Hin","Ina","Tha"] langsDemo = langsLang `except` ["Ara","Hin","Ina","Tha"]

6
examples/phrasebook/SentencesRus.gf
View File

@@ -2,8 +2,8 @@ concrete SentencesRus of Sentences = NumeralRus ** SentencesI - [
NameNN, SHave, SHaveNo, SHaveNoMass, QDoHave, AHaveCurr NameNN, SHave, SHaveNo, SHaveNoMass, QDoHave, AHaveCurr
] with ] with
(Syntax = SyntaxRus), (Syntax = SyntaxRus),
-- (Symbolic = SymbolicRus), (Symbolic = SymbolicRus),
(Lexicon = LexiconRus), (Grammar = GrammarRus) ** open Prelude, SyntaxRus in { (Lexicon = LexiconRus), (Grammar = GrammarRus) ** open Prelude, SyntaxRus, (P = ParadigmsRus) in {
lin lin
SHave p obj = mkS (mkCl (mkVP have_V3 obj p.name)) ; SHave p obj = mkS (mkCl (mkVP have_V3 obj p.name)) ;
SHaveNo p obj = mkS (mkCl (mkVP have_not_V3 (mkNP 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) ; AHaveCurr p curr = mkCl (mkVP have_V3 (mkNP aPl_Det curr) p.name) ;
lin NameNN = mkNP (P.mkN "NN") ;
} }

5
examples/phrasebook/WordsRus.gf
View File

@@ -185,6 +185,7 @@ flags coding = utf8 ;
Husband = xOf sing (P.mkN "муж") ; Husband = xOf sing (P.mkN "муж") ;
Son = xOf sing (P.mkN "сын") ; Son = xOf sing (P.mkN "сын") ;
Daughter = xOf sing (P.mkN "дочь" "дочери" "дочери" "дочь" "дочерью" "дочери" "дочь" "дочери" "дочерей" "дочерям" "дочерей" "дочерьми" "дочерях" P.feminine P.animate) ; Daughter = xOf sing (P.mkN "дочь" "дочери" "дочери" "дочь" "дочерью" "дочери" "дочь" "дочери" "дочерей" "дочерям" "дочерей" "дочерьми" "дочерях" P.feminine P.animate) ;
-- Daughter = xOf sing E.daughter_N ;
Children = xOf plur L.child_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 ; 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 -> { mkTransport : N -> {name : CN ; by : Adv} = \n -> {
name = mkCN n ; name = mkCN n ;
by = SyntaxRus.mkAdv on_Prep (mkNP the_Det n) by = SyntaxRus.mkAdv on_Prep (mkNP the_Det n)
} ; } ;
far_IAdv = ss "как далеко" ** {lock_IAdv = <>} ; far_IAdv = ss "как далеко" ** {lock_IAdv = <>} ;