added an API for Turkish

This commit is contained in:
krangelov
2020-03-25 15:51:05 +01:00
parent fcae1c65f1
commit da377fa4e7
13 changed files with 128 additions and 3 deletions
+20
View File
@@ -4,10 +4,30 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
PredSCVP sc vp = variants {} ;
-- TODO: Check how correct this is.
EmbedVP vp = {s = (vp.s ! Gerund Sg Acc)} ;
-- TODO: rudimentary implementation; revise this.
UseCl temp pol cl = {s = temp.s ++ cl.s ! temp.t; subord=cl.subord} ;
UseQCl _ _ = variants {} ;
UseRCl _ _ _ = variants {} ;
SlashVP _ _ = variants {} ;
AdvSlash _ _ = variants {} ;
SlashPrep _ _ = variants {} ;
SlashVS v = variants {} ;
EmbedQS _ = variants {} ;
EmbedS _ = variants {} ;
ImpVP _ = variants {} ;
AdvS _ _ = variants {} ;
UseSlash _ = variants {} ;
}