implement ProgrVP

This commit is contained in:
Krasimir Angelov
2024-07-24 19:57:23 +02:00
parent 4bb96aa295
commit d3ecaadef0
11 changed files with 152 additions and 86 deletions

View File

@@ -1,7 +1,7 @@
concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
lin
PredVP np vp = {s = \\t,p => np.s ! Nom ++ vp.compl ++ vp.s ! VFin t p np.a} ;
PredVP np vp = {s = \\t,p => np.s ! Nom ++ vp.compl ++ vp.s ! Perf ! VFin t p np.a} ;
PredSCVP sc vp = variants {} ;
@@ -22,7 +22,7 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
EmbedQS _ = variants {} ;
EmbedS _ = variants {} ;
ImpVP vp = {s = \\p,n => vp.compl ++ vp.s ! VImp p n
ImpVP vp = {s = \\p,n => vp.compl ++ vp.s ! Perf ! VImp p n
} ;
AdvS _ _ = variants {} ;