(Dut) Fixes in ComplSlash, mkClause, ProgrVP + general cleanup

This commit is contained in:
Inari Listenmaa
2018-04-18 10:13:55 +02:00
parent 100bb34dcd
commit f2a02c438d
4 changed files with 59 additions and 86 deletions
-19
View File
@@ -17,25 +17,6 @@ concrete ExtraDut of ExtraDutAbs = CatDut **
ComplVPIVV v vpi =
insertInf (vpi.s ! v.isAux) (
predVGen v.isAux BeforeObjs v) ; ----
--{-
-- insertExtrapos vpi.p3 (
-- insertInf vpi.p2 (
-- insertObj vpi.p1 (
-- predVGen v.isAux vpi.negPos v))) ;
---}
--
-- PPzuAdv cn = {s = case cn.g of {
-- Masc | Neutr => "zum" ;
-- Fem => "zur"
-- } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat
-- } ;
--
-- TImpfSubj = {s = [] ; t = Past ; m = MConjunct} ; --# notpresent
--
-- moegen_VV = auxVV mögen_V ;
--
--}
lin
ICompAP ap = {s = \\agr => "hoe" ++ ap.s ! agr ! APred} ;