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

Various cleanups

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 17:49:40 +03:00
parent 4b0e198742
commit d06a76bab9
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/turkish/LangTur.gf
View File

@@ -2,7 +2,8 @@
concrete LangTur of Lang = concrete LangTur of Lang =
GrammarTur, GrammarTur,
LexiconTur LexiconTur,
AdverbTur
** { ** {
flags startcat = Phr ; unlexer = text ; lexer = text ; coding=utf8 ; flags startcat = Phr ; unlexer = text ; lexer = text ; coding=utf8 ;

6
src/turkish/ResTur.gf
View File

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