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

Get rid of some trailing spaces

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 14:18:22 +03:00
parent 7f98c3198e
commit a9a3d48c7f
1 changed files with 9 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/turkish/ParadigmsTur.gf
View File

@@ -213,9 +213,8 @@ oper
} ; } ;
in makeVerb inf base progBase pastBase aoristBase futureTable har; in makeVerb inf base progBase pastBase aoristBase futureTable har;
makeVerb inf base progBase pastBase aoristBase futureTable har = makeVerb inf base progBase pastBase aoristBase futureTable har =
let let
futht = getHarVowP (futureTable ! Hard) ; futht = getHarVowP (futureTable ! Hard) ;
pastHar = {vow = har.vow ; con = SVow} ; pastHar = {vow = har.vow ; con = SVow} ;
futHar = {vow = futht ; con = (SCon Soft)} ; futHar = {vow = futht ; con = (SCon Soft)} ;
@@ -231,7 +230,6 @@ oper
} }
} ; } ;
-- Implementation of noun paradigms -- Implementation of noun paradigms
mkNoun sn sa sd sg sl sabl sgabPos sgabNeg sgs pln har = mkNoun sn sa sd sg sl sabl sgabPos sgabNeg sgs pln har =
let plHar = getHarmony pln ; let plHar = getHarmony pln ;
@@ -264,10 +262,9 @@ oper
} ; } ;
harmony = har harmony = har
} ; } ;
irregN_h sn sg har = irregN har sn sg ; irregN_h sn sg har = irregN har sn sg ;
irregN ht sn sg = irregN ht sn sg =
let let
pln = add_number Pl sn ht ; pln = add_number Pl sn ht ;
@@ -286,7 +283,6 @@ oper
pln pln
har ; har ;
regN sn = regN sn =
let har = getHarmony sn ; let har = getHarmony sn ;
pln = add_number Pl sn har.vow ; pln = add_number Pl sn har.vow ;
@@ -304,10 +300,9 @@ oper
pln pln
har ; har ;
regPN sn = makePN sn sn ; regPN sn = makePN sn sn ;
makeHarPN sn sy har = makeHarPN sn sy har =
let bn = sn + "'" ; let bn = sn + "'" ;
by = sy + "'" ; by = sy + "'" ;
pln = add_number Pl bn har.vow ; pln = add_number Pl bn har.vow ;
@@ -442,7 +437,7 @@ oper
regDigit card = makeDigit card (card + ".") Pl ; regDigit card = makeDigit card (card + ".") Pl ;
makeDigit card ordi num = makeDigit card ordi num =
let let
digitStr = case card of { digitStr = case card of {
"0" => "sıfır" ; "0" => "sıfır" ;
@@ -454,7 +449,7 @@ oper
"6" => "altı" ; "6" => "altı" ;
"7" => "yedi" ; "7" => "yedi" ;
"8" => "sekiz" ; "8" => "sekiz" ;
"9" => "dokuz" "9" => "dokuz"
} ; } ;
harCard = getHarmony digitStr ; harCard = getHarmony digitStr ;
harOrd = getHarmony (addSuffix digitStr harCard ordNumSuffix) harOrd = getHarmony (addSuffix digitStr harCard ordNumSuffix)
@@ -462,14 +457,14 @@ oper
{ {
s = table { s = table {
NCard => (makeHarPN card card harCard).s ; NCard => (makeHarPN card card harCard).s ;
NOrd => (makeHarPN ordi ordi harOrd).s NOrd => (makeHarPN ordi ordi harOrd).s
} ; } ;
n = num n = num
} ; } ;
-- Helper functions and parameters -- Helper functions and parameters
-- finds which aorist type will be used with a base, see aorist type parameter for more info -- finds which aorist type will be used with a base, see aorist type parameter for more info
getAoristType : Str -> AoristType = getAoristType : Str -> AoristType =
\base -> case base of { \base -> case base of {
#consonant* + #consonant* +
#vowel + #vowel +
@@ -478,7 +473,6 @@ oper
_ => PlSyl _ => PlSyl
} ; } ;
-- construct a table contatining soft and hard forms of a base -- construct a table contatining soft and hard forms of a base
getBaseTable : Str -> Softness => Str = getBaseTable : Str -> Softness => Str =
\base -> table { \base -> table {