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

implement the VPS API

Browse Source
This commit is contained in:
Krasimir Angelov
2026-08-13 15:56:41 +02:00
parent 20cb49cd57
commit c3f937c667
1 changed files with 28 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/ExtendRus.gf
+28 -12
View File
@@ -13,9 +13,11 @@ concrete ExtendRus of Extend =
ComplDirectVQ, ComplDirectVQ,
-- AdvIsNPAP, AdAdV, AdjAsNP, -- AdvIsNPAP, AdAdV, AdjAsNP,
ApposNP, ApposNP,
-- BaseVPS, ConsVPS, BaseVPI, ConsVPI, BaseVPS2, ConsVPS2, BaseVPI2, ConsVPI2, BaseVPS, ConsVPS,
-- MkVPS, -- BaseVPI, ConsVPI, BaseVPS2, ConsVPS2, BaseVPI2, ConsVPI2,
-- ConjVPS, MkVPI, ConjVPI, ComplVPIVV, MkVPS,
ConjVPS,
-- MkVPI, ConjVPI, ComplVPIVV,
-- MkVPS2, ConjVPS2, ComplVPS2, MkVPI2, ConjVPI2, ComplVPI2, -- MkVPS2, ConjVPS2, ComplVPS2, MkVPI2, ConjVPI2, ComplVPI2,
-- Base_nr_RNP, Base_rn_RNP, Base_rr_RNP, ByVP, CompBareCN, -- Base_nr_RNP, Base_rn_RNP, Base_rr_RNP, ByVP, CompBareCN,
-- CompQS, CompS, CompVP, ComplBareVS, ComplGenVV, ComplSlashPartLast, ComplVPSVV, CompoundAP, -- CompQS, CompS, CompVP, ComplBareVS, ComplGenVV, ComplSlashPartLast, ComplVPSVV, CompoundAP,
@@ -56,9 +58,11 @@ concrete ExtendRus of Extend =
-- UttDatIP, UttDatNP, UttVPShort, WithoutVP -- UttDatIP, UttDatNP, UttVPShort, WithoutVP
] ]
with (Grammar=GrammarRus) with (Grammar=GrammarRus)
** open Prelude, ResRus, ParadigmsRus, (M = MorphoRus) in { ** open Prelude, ResRus, ParadigmsRus, TenseRus, Coordination, (M = MorphoRus) in {
lincat lincat
VPS = {s : Mood => Agr => Str} ;
[VPS] = {s1,s2 : Mood => Agr => Str} ;
RNP = {s : Agr => Str} ; RNP = {s : Agr => Str} ;
RNPList = {s1,s2 : Agr => Str} ; RNPList = {s1,s2 : Agr => Str} ;
@@ -318,15 +322,27 @@ lin
a=Ag (gennum g (numSizeNumber det.size)) P3 a=Ag (gennum g (numSizeNumber det.size)) P3
} ; } ;
--PredVPS np vps = {s = np.s ! Nom ++ vps.c.s } ; BaseVPS = twoTable2 Mood Agr ;
ConsVPS = consrTable2 Mood Agr comma ;
ConjVPS = conjunctDistrTable2 Mood Agr ;
-- mkVPS : Temp -> Pol -> VP -> VPS -- : NP -> VPS -> S ;
--MkVPS t p vp = { PredVPS np vps = {
-- s = \\a => s = \\m => np.s ! Nom ++ vps.s ! m ! np.a
-- let verb = vp.verb ; } ;
-- compl = vp.compl
-- in verb -- : Temp -> Pol -> VP -> VPS ;
-- } ; MkVPS temp pol vp = {
s = \\m,a =>
let vpol = case orPol vp.p pol.p of {
Neg => PNeg ;
Pos => PPos
}
in temp.s
++ verbEnvAgr [] (vp.adv ! a) vp.verb m temp.t a vpol
++ vp.dep
++ vp.compl ! vpol.p ! a
} ;
oper oper
rus_quoted : Str -> Str = \s -> "«" ++ s ++ "»" ; ---- TODO bind ; move to Prelude? rus_quoted : Str -> Str = \s -> "«" ++ s ++ "»" ; ---- TODO bind ; move to Prelude?