static void OTGrammarCandidate_init (OTGrammarCandidate me, int ncons, int v1, int v2) {
my output = Melder_dup (Melder_cat (vowels [v1], U"t", vowels [v2]));
my marks = NUMvector <int> (1, my numberOfConstraints = ncons);
/*
* Count vowel-gesture violations.
*/
countVowelViolations (my marks, ncons, v1);
countVowelViolations (my marks, ncons, v2);
/*
* Count contour-gesture violations.
*/
if (isatr (v1) != isatr (v2)) my marks [5] ++;
}
static void OTGrammarCandidate_init (OTGrammarCandidate me, int ncons, int v1, int v2) {
wchar_t buffer [100];
swprintf (buffer, 100, L"%lst%ls", vowels [v1], vowels [v2]);
my output = Melder_wcsdup (buffer);
my marks = NUMvector <int> (1, my numberOfConstraints = ncons);
/*
* Count vowel-gesture violations.
*/
countVowelViolations (my marks, ncons, v1);
countVowelViolations (my marks, ncons, v2);
/*
* Count contour-gesture violations.
*/
if (isatr (v1) != isatr (v2)) my marks [5] ++;
}
OTGrammar OTGrammar_create_tongueRoot_grammar (int small_large, int equal_random_infant_Wolof) {
try {
int ncons = small_large == 1 ? 5 : 9, itab, v1, v2;
autoOTGrammar me = Thing_new (OTGrammar);
my constraints = NUMvector <structOTGrammarConstraint> (1, my numberOfConstraints = ncons);
my constraints [1]. name = Melder_wcsdup (L"*[rtr / hi]");
my constraints [2]. name = Melder_wcsdup (L"*[atr / lo]");
my constraints [3]. name = Melder_wcsdup (L"P\\s{ARSE}\n(rtr)");
my constraints [4]. name = Melder_wcsdup (L"P\\s{ARSE}\n(atr)");
my constraints [5]. name = Melder_wcsdup (L"*G\\s{ESTURE}\n(contour)");
if (ncons == 9) {
my constraints [6]. name = Melder_wcsdup (L"*[rtr / mid]");
my constraints [7]. name = Melder_wcsdup (L"*[rtr / lo]");
my constraints [8]. name = Melder_wcsdup (L"*[atr / mid]");
my constraints [9]. name = Melder_wcsdup (L"*[atr / hi]");
}
if (equal_random_infant_Wolof == 1) { /* equal? */
for (long icons = 1; icons <= ncons; icons ++)
my constraints [icons]. ranking = 100.0;
} else if (equal_random_infant_Wolof == 2) { /* random? */
for (long icons = 1; icons <= ncons; icons ++)
my constraints [icons]. ranking = NUMrandomGauss (100.0, 10.0);
} else if (equal_random_infant_Wolof == 3) { /* infant (= cannot speak) ? */
for (long icons = 1; icons <= ncons; icons ++)
my constraints [icons]. ranking = 100.0; /* Structural constraints. */
my constraints [3]. ranking = 50.0; /* Faithfulness constraints. */
my constraints [4]. ranking = 50.0;
} else { /* adult Wolof */
my constraints [1]. ranking = 100.0;
my constraints [2]. ranking = 10.0;
my constraints [3]. ranking = 50.0;
my constraints [4]. ranking = 20.0;
my constraints [5]. ranking = 30.0;
if (ncons == 9) {
my constraints [6]. ranking = 0.0;
my constraints [7]. ranking = -10.0;
my constraints [8]. ranking = 0.0;
my constraints [9]. ranking = -10.0;
}
}
if (ncons == 9) {
my fixedRankings = NUMvector <structOTGrammarFixedRanking> (1, my numberOfFixedRankings = 4);
my fixedRankings [1]. higher = 1, my fixedRankings [1]. lower = 6;
my fixedRankings [2]. higher = 6, my fixedRankings [2]. lower = 7;
my fixedRankings [3]. higher = 2, my fixedRankings [3]. lower = 8;
my fixedRankings [4]. higher = 8, my fixedRankings [4]. lower = 9;
}
my tableaus = NUMvector <structOTGrammarTableau> (1, my numberOfTableaus = 36);
itab = 1;
for (v1 = 0; v1 < 6; v1 ++) for (v2 = 0; v2 < 6; v2 ++) {
OTGrammarTableau tableau = & my tableaus [itab];
wchar_t buffer [100];
swprintf (buffer, 100, L"%lst%ls", vowels [v1], vowels [v2]);
tableau -> input = Melder_wcsdup (buffer);
tableau -> candidates = NUMvector <structOTGrammarCandidate> (1, tableau -> numberOfCandidates = 4);
/*
* Generate the four tongue-root variants as output candidates.
*/
OTGrammarCandidate_init (& tableau -> candidates [1], ncons, v1, v2);
/* Faithful: no PARSE constraints violated. */
OTGrammarCandidate_init (& tableau -> candidates [2], ncons, fliptr (v1), v2);
/* First vowel flipped: violated one PARSE constraint. */
OTGrammarCandidate_init (& tableau -> candidates [3], ncons, v1, fliptr (v2));
/* Second vowel flipped. */
OTGrammarCandidate_init (& tableau -> candidates [4], ncons, fliptr (v1), fliptr (v2));
/* Both vowels flipped. */
/*
* Count PARSE violations.
*/
if (isatr (v1)) {
tableau -> candidates [2]. marks [4] ++;
tableau -> candidates [4]. marks [4] ++;
} else {
tableau -> candidates [2]. marks [3] ++;
tableau -> candidates [4]. marks [3] ++;
}
if (isatr (v2)) {
tableau -> candidates [3]. marks [4] ++;
tableau -> candidates [4]. marks [4] ++;
} else {
tableau -> candidates [3]. marks [3] ++;
tableau -> candidates [4]. marks [3] ++;
}
itab ++;
}
OTGrammar_checkIndex (me.peek());
OTGrammar_newDisharmonies (me.peek(), 0.0);
for (long icons = 1; icons <= my numberOfConstraints; icons ++)
my constraints [icons]. plasticity = 1.0;
return me.transfer();
} catch (MelderError) {
Melder_throw ("Tongue root grammar not created.");
}
}
