various extensions in Turkish

This commit is contained in:
Krasimir Angelov
2024-07-08 21:58:00 +02:00
parent f36bbade45
commit 65a05d223b
13 changed files with 112 additions and 71 deletions
+4 -4
View File
@@ -2,7 +2,7 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
lin
PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
PredVP np vp = mkClause (np.s ! Nom) np.a vp.compl vp ;
PredSCVP sc vp = variants {} ;
@@ -23,9 +23,9 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
EmbedQS _ = variants {} ;
EmbedS _ = variants {} ;
ImpVP _ = variants {} ;
ImpVP vp = {s = \\n => vp.compl ++ vp.s ! VImperative n} ;
AdvS _ _ = variants {} ;
UseSlash _ = variants {} ;