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

(Est) Keep non-finite forms non-finite in PassV2

Browse Source 
TODO: restructure VP so we retain non-finite passive forms
This commit is contained in:
Inari Listenmaa
2022-04-12 19:01:08 +08:00
parent a72600b27c
commit 1f7e16642b
2 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/estonian/ResEst.gf
View File

@@ -163,6 +163,12 @@ param
in
preOrPost co.isPre co.s nps ;
-- Used for passive; c2 of V2/VPSlash becomes sc of VP
compl2subjcase : Compl -> NPForm = \compl ->
case compl.c of {
NPCase Gen => NPCase Nom ; -- valisin koera -> koer valitakse
_ => compl.c -- rääkisin koerale -> koerale räägitakse
} ;
-- For $Verb$.
Verb : Type = {

20
src/estonian/VerbEst.gf
View File

@@ -80,19 +80,13 @@ concrete VerbEst of Verb = CatEst ** open Prelude, ResEst in {
ReflVP v = insertObjPre (\\fin,b,agr => appCompl fin b v.c2 (reflPron agr)) v ;
PassV2 v =
let
vp = predV v ;
subjCase = case v.c2.c of { --this is probably a reason to not get rid of NPAcc; TODO check
NPCase Gen => NPCase Nom ; --valisin koera -> koer valitakse
_ => v.c2.c --rääkisin koerale -> koerale räägitakse
}
in {
s = \\_ => vp.s ! VIPass Pres ;
s2 = \\_,_,_ => [] ;
adv = [] ;
p = vp.p ;
ext = vp.ext ;
sc = subjCase -- koer valitakse ; koerale räägitakse
let vp = predV v in vp ** {
s = \\vf => case vf of {
VIFin t => vp.s ! VIPass t ;
-- VIImper => v.s ! ImperPass ; -- TODO: include these forms from V into VP
-- VIPresPart => v.s ! PresPart Pass ;
x => vp.s ! x } ;
sc = compl2subjcase v.c2 -- koer valitakse ; koerale räägitakse
} ;
----b UseVS, UseVQ = \v -> v ** {c2 = {s = [] ; c = NPAcc ; isPre = True}} ;