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

Some progress on the implementation of mkClause

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 12:03:59 +03:00
parent 27357ad684
commit 27da43c37d
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/turkish/GrammarTur.gf
View File

@@ -2,9 +2,11 @@
concrete GrammarTur of Grammar = concrete GrammarTur of Grammar =
NounTur, NounTur,
VerbTur,
AdjectiveTur, AdjectiveTur,
NumeralTur, NumeralTur,
StructuralTur StructuralTur,
SentenceTur
** { ** {
flags startcat = Phr ; unlexer = text ; lexer = text ; flags startcat = Phr ; unlexer = text ; lexer = text ;

2
src/turkish/ResTur.gf
View File

@@ -68,5 +68,5 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
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 -> Verb -> {s : Str} =
\np, v -> ss "TODO" ; \np, v -> ss (np ++ v.s ! VInfinitive) ;
} }