s3pid_t
mdef_phone_id_nearest(mdef_t * m,
s3cipid_t b, s3cipid_t l, s3cipid_t r,
word_posn_t pos)
{
word_posn_t tmppos;
s3pid_t p;
s3cipid_t newl, newr;
assert(m);
assert((b >= 0) && (b < m->n_ciphone));
assert((pos >= 0) && (pos < N_WORD_POSN));
if ((NOT_CIPID(l)) || (NOT_CIPID(r)))
return ((s3pid_t) b);
assert((l >= 0) && (l < m->n_ciphone));
assert((r >= 0) && (r < m->n_ciphone));
p = mdef_phone_id(m, b, l, r, pos);
if (IS_PID(p))
return p;
/* Exact triphone not found; backoff to other word positions */
for (tmppos = 0; tmppos < N_WORD_POSN; tmppos++) {
if (tmppos != pos) {
p = mdef_phone_id(m, b, l, r, tmppos);
if (IS_PID(p))
return p;
}
}
/* Nothing yet; backoff to silence phone if non-silence filler context */
if (IS_CIPID(m->sil)) {
newl = m->ciphone[l].filler ? m->sil : l;
newr = m->ciphone[r].filler ? m->sil : r;
if ((newl != l) || (newr != r)) {
p = mdef_phone_id(m, b, newl, newr, pos);
if (IS_PID(p))
return p;
for (tmppos = 0; tmppos < N_WORD_POSN; tmppos++) {
if (tmppos != pos) {
p = mdef_phone_id(m, b, newl, newr,
tmppos);
if (IS_PID(p))
return p;
}
}
}
}
/* Nothing yet; backoff to base phone */
return ((s3pid_t) b);
}
int
mdef_phone_id(mdef_t * m,
int ci, int lc, int rc, word_posn_t wpos)
{
ph_lc_t *lcptr;
ph_rc_t *rcptr;
int newl, newr;
assert(m);
assert((ci >= 0) && (ci < m->n_ciphone));
assert((lc >= 0) && (lc < m->n_ciphone));
assert((rc >= 0) && (rc < m->n_ciphone));
assert((wpos >= 0) && (wpos < N_WORD_POSN));
if (((lcptr =
find_ph_lc(m->wpos_ci_lclist[wpos][(int) ci], lc)) == NULL)
|| ((rcptr = find_ph_rc(lcptr->rclist, rc)) == NULL)) {
/* Not found; backoff to silence context if non-silence filler context */
if (m->sil < 0)
return -1;
newl = m->ciphone[(int) lc].filler ? m->sil : lc;
newr = m->ciphone[(int) rc].filler ? m->sil : rc;
if ((newl == lc) && (newr == rc))
return -1;
return (mdef_phone_id(m, ci, newl, newr, wpos));
}
return (rcptr->pid);
}
/*
* Build a glist of triphone senone-sequence IDs (ssids) derivable from [b] as a single
* phone word, with a given left context l. If no triphone found in mdef, include the ssid
* for basephone b. Return the generated glist.
*/
static glist_t single_lc_comsseq (mdef_t *mdef, int32 b, int32 l)
{
int32 r, p, ssid;
glist_t g;
g = NULL;
for (r = 0; r < mdef_n_ciphone(mdef); r++) {
p = mdef_phone_id (mdef, (s3cipid_t)b, (s3cipid_t)l, (s3cipid_t)r, WORD_POSN_SINGLE);
if (IS_S3PID(p)) {
ssid = mdef_pid2ssid(mdef, p);
if (! glist_chkdup_int32 (g, ssid))
g = glist_add_int32 (g, ssid);
}
}
if (! g)
g = glist_add_int32 (g, mdef_pid2ssid(mdef, b));
return g;
}
/*
* Build a glist of triphone senone-sequence IDs (ssids) derivable from [b][r] at the word
* begin position. If no triphone found in mdef, include the ssid for basephone b.
* Return the generated glist.
*/
static glist_t ldiph_comsseq (mdef_t *mdef, int32 b, int32 r)
{
int32 l, p, ssid;
glist_t g;
g = NULL;
for (l = 0; l < mdef_n_ciphone(mdef); l++) {
p = mdef_phone_id (mdef, (s3cipid_t)b, (s3cipid_t)l, (s3cipid_t)r, WORD_POSN_BEGIN);
if (IS_S3PID(p)) {
ssid = mdef_pid2ssid(mdef, p);
if (! glist_chkdup_int32 (g, ssid))
g = glist_add_int32 (g, ssid);
}
}
if (! g)
g = glist_add_int32 (g, mdef_pid2ssid(mdef, b));
return g;
}
s3pid_t
mdef_phone_id_nearest(mdef_t * m,
s3cipid_t b, s3cipid_t l, s3cipid_t r,
word_posn_t pos)
{
word_posn_t tmppos;
s3pid_t p;
s3cipid_t newl, newr;
char *wpos_name;
assert(m);
assert((b >= 0) && (b < m->n_ciphone));
assert((pos >= 0) && (pos < N_WORD_POSN));
if ((NOT_S3CIPID(l)) || (NOT_S3CIPID(r)))
return ((s3pid_t) b);
assert((l >= 0) && (l < m->n_ciphone));
assert((r >= 0) && (r < m->n_ciphone));
p = mdef_phone_id(m, b, l, r, pos);
if (IS_S3PID(p))
return p;
/* Exact triphone not found; backoff to other word positions */
for (tmppos = 0; tmppos < N_WORD_POSN; tmppos++) {
if (tmppos != pos) {
p = mdef_phone_id(m, b, l, r, tmppos);
if (IS_S3PID(p))
return p;
}
}
/* Nothing yet; backoff to silence phone if non-silence filler context */
if (IS_S3CIPID(m->sil)) {
newl = m->ciphone[(int) l].filler ? m->sil : l;
newr = m->ciphone[(int) r].filler ? m->sil : r;
if ((newl != l) || (newr != r)) {
p = mdef_phone_id(m, b, newl, newr, pos);
if (IS_S3PID(p))
return p;
for (tmppos = 0; tmppos < N_WORD_POSN; tmppos++) {
if (tmppos != pos) {
p = mdef_phone_id(m, b, newl, newr, tmppos);
if (IS_S3PID(p))
return p;
}
}
}
}
/* Nothing yet; backoff to base phone */
if ((m->n_phone > m->n_ciphone) && (!m->ciphone[(int) b].filler)) {
wpos_name = WPOS_NAME;
#if 0
E_WARN("Triphone(%s,%s,%s,%c) not found; backing off to CIphone\n",
mdef_ciphone_str(m, b),
mdef_ciphone_str(m, l),
mdef_ciphone_str(m, r), wpos_name[pos]);
#endif
}
return ((s3pid_t) b);
}
