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

fix linVP: use the same functions as mkClause

Browse Source
This commit is contained in:
Inari Listenmaa
2017-10-02 16:16:28 +02:00
parent 1c9e90f74d
commit 1426c07f97
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/basque/ResEus.gf
View File

@@ -370,20 +370,17 @@ param
oper
--to be used in linref, PhraseEus ... anything where a VP is turned into string!
linVP : VerbPhrase -> Str = linVPTense Pres Pres ;
linVP : VerbPhrase -> Str = linVPTense Pres Simul ;
-- TODO: fix trinkoak
linVPTense : Tense -> Tense -> VerbPhrase -> Str =
\tnsPrc,tnsAux,vp ->
let prc = case vp.val of {
Da Izan => vp.nstem ;
Da Egon => vp.nstem ;
_ => vp.prc ! tnsPrc } ;
linVPTense : Tense -> Anteriority -> VerbPhrase -> Str = \t,a,vp ->
let verb = case isSynthetic vp.val of {
True => verbformSynthetic t a vp ;
False => verbformPeriphrastic t a vp } ;
in
vp.adv
++ vp.iobj.s ++ vp.dobj.s ! Pos ++ vp.comp ! Hau --all the compls!
++ prc
++ (chooseAux vp ! tnsAux ! Hau).indep ;
++ verb.prc
++ (verb.aux ! Hau).indep ;
-- Used in ComplVV : does not include aux!
linVPPrc : VerbPhrase -> Str = \vp -> --TODO make it less of a hack.