msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Make mkClause take an Agr

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 12:18:18 +03:00
parent af62b770b0
commit 90032d0438
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/turkish/ResTur.gf
View File

@@ -67,6 +67,6 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
no_Prep = mkPrep [] Acc; no_Prep = mkPrep [] Acc;
mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} = \s,c -> lin Prep {s=s; c=c}; mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} = \s,c -> lin Prep {s=s; c=c};
mkClause : Str -> Verb -> {s : Str} = mkClause : Str -> Agr -> Verb -> {s : Str} =
\np, v -> ss (np ++ v.s ! VInfinitive) ; \np, a, v -> ss (np ++ v.s ! VProg a) ;
} }

2
src/turkish/SentenceTur.gf
View File

@@ -2,6 +2,6 @@ concrete SentenceTur of Sentence = CatTur ** open Prelude, ResTur in {
lin lin
PredVP np vp = mkClause (np.s ! Nom) vp ; PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
} }