mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-26 03:26:27 -06:00
added an API for Turkish
This commit is contained in:
@@ -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 {} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user