GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-25 02:56:28 -06:00
Code Issues Packages Projects Releases Wiki Activity

compound

Browse Source
This commit is contained in:
Roman Suzi
2020-08-16 09:34:36 +03:00
parent 4abec966a9
commit 1d726ed956
7 changed files with 38 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/ResRus.gf
+24
View File
@@ -550,6 +550,30 @@ oper
Ag GPl _ => af.sp
} ;
mkCompoundA : AdjForms -> Str -> AdjForms -> AdjForms
= \a1,link,a2 ->
let l : Str=case link of {x+"-" => BIND ++ "-" ++ BIND ; _ => link} in
a2 ** {
msnom = a1.sn ++ l ++ a2.msnom ;
fsnom = a1.sn ++ l ++ a2.fsnom ;
nsnom = a1.sn ++ l ++ a2.nsnom ;
pnom = a1.sn ++ l ++ a2.pnom ;
msgen = a1.sn ++ l ++ a2.msgen ;
fsgen = a1.sn ++ l ++ a2.fsgen ;
pgen = a1.sn ++ l ++ a2.pgen ;
msdat = a1.sn ++ l ++ a2.msdat ;
fsacc = a1.sn ++ l ++ a2.fsacc ;
msins = a1.sn ++ l ++ a2.msins ;
fsins = a1.sn ++ l ++ a2.fsins ;
pins = a1.sn ++ l ++ a2.pins ;
msprep= a1.sn ++ l ++ a2.msprep;
sm = a1.sn ++ l ++ a2.sm ;
sf = a1.sn ++ l ++ a2.sf ;
sn = a1.sn ++ l ++ a2.sn ;
sp = a1.sn ++ l ++ a2.sp ;
comp = a1.sn ++ l ++ a2.comp ;
} ;
---------------------
-- Verbs -- Глаголы