1
0
forked from GitHub/gf-rgl

Get rid of some trailing spaces

This commit is contained in:
Ayberk Tosun
2017-08-22 14:18:22 +03:00
parent 7f98c3198e
commit a9a3d48c7f

View File

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