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

a couple of functions necessary for the Russian WordNet

Browse Source
This commit is contained in:
Krasimir Angelov
2022-08-13 22:40:13 +02:00
parent 81218506d9
commit 9cdb7ec37b
1 changed files with 31 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/russian/ParadigmsRus.gf
View File

@@ -170,6 +170,7 @@ oper
mkV3 : V -> Prep -> Prep -> V3 ;
} ;
mkVA : V -> VA ;
mkVS : V -> VS ;
mkVQ : V -> VQ ;
mkV2V : overload {
@@ -189,6 +190,26 @@ oper
tvDirDir : V -> V3 ;
mkVV : V -> VV;
compoundV : V -> Str -> V = \v,s -> v ** {
inf = v.inf ++ s ;
infrefl = v.infrefl ++ s ;
prsg1 = v.prsg1 ++ s ;
prsg2 = v.prsg2 ++ s ;
prsg3 = v.prsg2 ++ s ;
prpl1 = v.prpl1 ++ s ;
prpl2 = v.prpl2 ++ s ;
prpl3 = v.prpl3 ++ s ;
psgm = v.psgm ++ s ;
psgs = v.psgs ++ s ;
isg2 = v.isg2 ++ s ;
ipl1 = v.ipl1 ++ s ;
isg2refl = v.isg2refl ++ s ;
ppps = v.ppps ++ s ;
pppss = v.pppss ++ s ;
prtr = v.prtr ++ s ;
ptr = v.ptr ++ s
} ;
------------------------
--2 Adverbs, prepositions, conjunctions, ...
@@ -413,6 +434,7 @@ oper
tvDirDir v = mkV3 v Acc Dat ;
mkVV = \v -> lin VV {v=v; modal=\\a=>[]} ;
mkVA v = lin VA v ;
mkVS v = lin VS v ;
mkVQ v = lin VQ v ;
mkV2V = overload {
@@ -448,6 +470,15 @@ oper
= \s -> lin Adv (makeAdverb s) ;
} ;
mkAdV : Str -> AdV
= \s -> lin AdV (makeAdverb s) ;
mkAdA : Str -> AdA
= \s -> lin AdA (makeAdverb s) ;
mkAdN : Str -> AdN
= \s -> lin AdN (makeAdverb s) ;
mkIAdv : Str -> IAdv
= \s -> lin IAdv (makeAdverb s) ;