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 { mkV2 = overload {
-- sormak -- sormak
mkV2 : V -> V2 = \verb -> verb ** {c = no_Prep} ; mkV2 : V -> V2 = \verb -> verb ** lin V2 {c = no_Prep} ;
-- (bir şeyden) korkmak -- (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 { mkV3 = overload {
-- (birine bir şeyi) satmak -- (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 -- (biri ile bir şeyi) konuşmak
mkV3 : V -> Prep -> Prep -> V3 = 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 -- Paradigms for noun
@@ -128,13 +128,13 @@ oper
-- Paradigms for adjactives -- Paradigms for adjactives
mkA : overload { mkA : overload {
-- güzel -- güzel
mkA : Str -> Adjective ; mkA : Str -> A ;
-- ak -- ak
mkA : Str -> Str -> Adjective ; mkA : Str -> Str -> A ;
-- kahve rengi -- kahve rengi
mkA : Noun -> Noun -> Adjective ; mkA : N -> N -> A ;
-- pürdikkat -- pürdikkat
mkA : Str -> Str -> HarVowP -> Adjective ; mkA : Str -> Str -> HarVowP -> A ;
} ; } ;
mkA2 : overload { mkA2 : overload {
@@ -142,8 +142,6 @@ oper
mkA2 : A -> Prep -> A2 ; mkA2 : A -> Prep -> A2 ;
} ; } ;
mkAdj2 : A -> Prep -> A2 ;
-- Paradigms for numerals -- Paradigms for numerals
mkNum : overload { mkNum : overload {
-- a regular numeral, obeys softening and hardening rules. e.g. "bir" "birinci" -- a regular numeral, obeys softening and hardening rules. e.g. "bir" "birinci"
@@ -395,22 +393,20 @@ oper
-- Implementation of adjactive paradigms -- Implementation of adjactive paradigms
mkA = overload { mkA = overload {
-- güzel -- 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 -- 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 -- 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 -- 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 = 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 -- Implementation of numeral paradigms
mkNum = overload { mkNum = overload {
mkNum : Str -> Str -> {s : DForm => CardOrd => Number => Case => Str} = regNum ; 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 --Prep
no_Prep = mkPrep [] Acc; 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};
} }