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

Added tests, fixes, etc

Browse Source
This commit is contained in:
Roman Suzi
2020-07-31 22:58:24 +03:00
parent f9437f01a9
commit 642beb9169
10 changed files with 594 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/IdiomRus.gf
+3 -4
View File
@@ -30,7 +30,7 @@ lin
} ;
-- : NP -> Cl ; -- there is a house
ExistNP np = {subj=np.s ! Nom ; compl="" ; verb=to_exist ; dep=[] ; adv=[] ; a=np.a} ; -- TODO: Different order!
ExistNP np = {subj=np.s ! Nom ; compl="" ; verb=to_exist ; dep=[] ; adv=[] ; a=np.a} ; -- TODO: Different order?
-- : IP -> QCl ; -- which houses are there
ExistIP ip = {
@@ -55,11 +55,10 @@ lin
} ;
-- : NP -> VP -> Utt ; -- let John walk
ImpP3 np vp =
let a = Ag (GSg Neut) P3 in
let pol = PPos in
let parts = verbAgr vp.verb Ind Pres a pol.p in
let parts = verbAgr vp.verb Ind Pres np.a pol.p in
let p1 = "пусть" in {
s = p1 ++ pol.s ++ vp.adv ! a ++ np.s ! Nom ++ parts.p2 ++ vp.dep ++ vp.compl ! a
s = p1 ++ pol.s ++ vp.adv ! np.a ++ np.s ! Nom ++ parts.p2 ++ vp.dep ++ vp.compl ! np.a
} ;
-- : VP -> VP ; -- is at home himself