GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki 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 ; mkV3 : V -> Prep -> Prep -> V3 ;
} ; } ;
mkVA : V -> VA ;
mkVS : V -> VS ; mkVS : V -> VS ;
mkVQ : V -> VQ ; mkVQ : V -> VQ ;
mkV2V : overload { mkV2V : overload {
@@ -189,6 +190,26 @@ oper
tvDirDir : V -> V3 ; tvDirDir : V -> V3 ;
mkVV : V -> VV; 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, ... --2 Adverbs, prepositions, conjunctions, ...
@@ -413,6 +434,7 @@ oper
tvDirDir v = mkV3 v Acc Dat ; tvDirDir v = mkV3 v Acc Dat ;
mkVV = \v -> lin VV {v=v; modal=\\a=>[]} ; mkVV = \v -> lin VV {v=v; modal=\\a=>[]} ;
mkVA v = lin VA v ;
mkVS v = lin VS v ; mkVS v = lin VS v ;
mkVQ v = lin VQ v ; mkVQ v = lin VQ v ;
mkV2V = overload { mkV2V = overload {
@@ -448,6 +470,15 @@ oper
= \s -> lin Adv (makeAdverb s) ; = \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 mkIAdv : Str -> IAdv
= \s -> lin IAdv (makeAdverb s) ; = \s -> lin IAdv (makeAdverb s) ;