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

fixed more warnings in Turkish

Browse Source
This commit is contained in:
Krasimir Angelov
2017-08-20 15:52:26 +02:00
parent d0c7531dfa
commit 24cb6acd53
2 changed files with 14 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/turkish/ParadigmsTur.gf
View File

@@ -70,18 +70,18 @@ oper
mkV2 = overload {
-- sormak
mkV2 : V -> V2 = \verb -> verb ** {c = no_Prep} ;
mkV2 : V -> V2 = \verb -> verb ** lin V2 {c = no_Prep} ;
-- (bir şeyden) korkmak
mkV2 : V -> Prep -> V2 = \verb,c -> verb ** {c = c} ;
mkV2 : V -> Prep -> V2 = \verb,c -> verb ** lin V2 {c = c} ;
} ;
mkV3 = overload {
-- (birine bir şeyi) satmak
mkV3 : V -> V3 = \verb -> verb ** {c1 = no_Prep; c2 = no_Prep} ;
mkV3 : V -> V3 = \verb -> verb ** lin V3 {c1 = no_Prep; c2 = no_Prep} ;
-- (biri ile bir şeyi) konuşmak
mkV3 : V -> Prep -> Prep -> V3 =
\verb,c1,c2 -> verb ** {c1 = c1; c2 = c2} ;
\verb,c1,c2 -> verb ** lin V3 {c1 = c1; c2 = c2} ;
} ;
-- Paradigms for noun
@@ -128,13 +128,13 @@ oper
-- Paradigms for adjactives
mkA : overload {
-- güzel
mkA : Str -> Adjective ;
mkA : Str -> A ;
-- ak
mkA : Str -> Str -> Adjective ;
mkA : Str -> Str -> A ;
-- kahve rengi
mkA : Noun -> Noun -> Adjective ;
mkA : N -> N -> A ;
-- pürdikkat
mkA : Str -> Str -> HarVowP -> Adjective ;
mkA : Str -> Str -> HarVowP -> A ;
} ;
mkA2 : overload {
@@ -142,8 +142,6 @@ oper
mkA2 : A -> Prep -> A2 ;
} ;
mkAdj2 : A -> Prep -> A2 ;
-- Paradigms for numerals
mkNum : overload {
-- a regular numeral, obeys softening and hardening rules. e.g. "bir" "birinci"
@@ -395,22 +393,20 @@ oper
-- Implementation of adjactive paradigms
mkA = overload {
-- güzel
mkA : Str -> A = \base -> (mkN base) ** { adv = addSuffix base (getHarmony base) adjAdvSuffix; lock_A=<> } ;
mkA : Str -> A = \base -> (mkN base) ** lin A { adv = addSuffix base (getHarmony base) adjAdvSuffix} ;
-- ak
mkA : Str -> Str -> A = \base,soft -> (irregN (getComplexHarmony base soft) base soft ) ** { adv = addSuffix base (getHarmony base) adjAdvSuffix } ;
mkA : Str -> Str -> A = \base,soft -> (irregN (getComplexHarmony base soft) base soft) ** lin A { adv = addSuffix base (getHarmony base) adjAdvSuffix} ;
-- kahve rengi
mkA : (zeytin, yag : N) -> A = \n1,n2 -> let n = linkNoun n1 n2 Indef Con in n ** {adv = addSuffix (n.s ! Sg ! Nom) (getHarmony (n.s ! Sg ! Nom)) adjAdvSuffix } ;
mkA : (zeytin, yag : N) -> A = \n1,n2 -> let n = linkNoun n1 n2 Indef Con in n ** lin A {adv = addSuffix (n.s ! Sg ! Nom) (getHarmony (n.s ! Sg ! Nom)) adjAdvSuffix} ;
-- pürdikkat
mkA : (base, base1 : Str) -> (ih_har : HarVowP) -> A = \base,base1,ih_har -> (irregN_h base base ih_har) ** { adv = addSuffix base (mkHar ih_har (getHarConP base)) adjAdvSuffix };
mkA : (base, base1 : Str) -> (ih_har : HarVowP) -> A = \base,base1,ih_har -> (irregN_h base base ih_har) ** lin A {adv = addSuffix base (mkHar ih_har (getHarConP base)) adjAdvSuffix};
} ;
mkA2 = overload {
mkA2 : A -> Prep -> A2 = mkAdj2 ;
mkA2 : A -> Prep -> A2 = \base,c -> base ** lin A2 {c = c} ;
} ;
mkAdj2 base c = base ** {c = c} ;
-- Implementation of numeral paradigms
mkNum = overload {
mkNum : Str -> Str -> {s : DForm => CardOrd => Number => Case => Str} = regNum ;

2
src/turkish/ResTur.gf
View File

@@ -63,5 +63,5 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
--Prep
no_Prep = mkPrep [] Acc;
mkPrep : Str -> Case -> {s : Str; c : Case} = \s,c -> {s=s; c=c};
mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} = \s,c -> lin Prep {s=s; c=c};
}