static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
const SItem *itrItem;
sint32 count;
S_CLR_ERR(error);
if (item == NULL)
return NULL;
itrItem = item;
count = -1;
while (itrItem != NULL)
{
count++;
itrItem = SItemPrev(itrItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemNext\" failed"))
goto quit_error;
}
extractedFeat = SObjectSetInt(count, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
/* all OK here */
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
S_UNUSED(self);
}
static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
const SItem *itemInSylStructRel;
const SItem *segment;
const SItem *prevItem;
float start = 0.0;
S_CLR_ERR(error);
if (item == NULL)
return NULL;
itemInSylStructRel = SItemAs(item, "SylStructure", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
segment = SItemDaughter(itemInSylStructRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemDaughter\" failed"))
goto quit_error;
/* the rest is the same as the segment start feature processor */
prevItem = SItemPrev(segment, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
if (prevItem == NULL)
{
/* there is no previous item, start is 0. */
extractedFeat = SObjectSetFloat(start, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetFloat\" failed"))
goto quit_error;
}
else
{
start = SItemGetFloat(prevItem, "end", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemGetFloat\" failed"))
goto quit_error;
extractedFeat = SObjectSetFloat(start, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetFloat\" failed"))
goto quit_error;
}
/* all OK here */
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
S_UNUSED(self);
}
static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
const SItem *itemInSegRel;
const SItem *prevItem;
float start = 0.0;
float end = 0.0;
S_CLR_ERR(error);
if (item == NULL)
return NULL;
itemInSegRel = SItemAs(item, "Segment", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
prevItem = SItemPrev(itemInSegRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
if (prevItem != NULL)
{
start = SItemGetFloat(prevItem, "end", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemGetFloat\" failed"))
goto quit_error;
}
end = SItemGetFloat(item, "end", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemGetFloat\" failed"))
goto quit_error;
extractedFeat = SObjectSetFloat((float)((end - start)/2.0), error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetFloat\" failed"))
goto quit_error;
/* all OK here */
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
S_UNUSED(self);
}
static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
const SItem *phraseItem;
const SItem *wordItem;
const SItem *sylStructWordItem;
const SItem *syllableItem;
sint32 num_accented = 0;
s_bool is_current_syl = FALSE;
S_CLR_ERR(error);
if (item == NULL)
return NULL;
/* get current phrase */
phraseItem = SItemPathToItem(item, "R:SylStructure.parent.R:Phrase.parent",
error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPathToItem\" failed"))
goto quit_error;
if (phraseItem == NULL)
{
S_CTX_ERR(error, S_FAILURE,
"Run",
"Failed to get phrase of given syllable");
goto quit_error;
}
/* last word in phrase */
wordItem = SItemLastDaughter(phraseItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemLastDaughter\" failed"))
goto quit_error;
while (wordItem != NULL)
{
sylStructWordItem = SItemAs(wordItem, "SylStructure", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
/* get syllables */
syllableItem = SItemLastDaughter(sylStructWordItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemLastDaughter\" failed"))
goto quit_error;
while (syllableItem != NULL)
{
s_bool is_accented;
is_current_syl = SItemEqual(syllableItem, item, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemEqual\" failed"))
goto quit_error;
if (is_current_syl)
break;
is_accented = syl_is_accented(syllableItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"syl_is_accented\" failed"))
goto quit_error;
if (is_accented)
num_accented++;
syllableItem = SItemPrev(syllableItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
}
if (is_current_syl)
break;
wordItem = SItemPrev(wordItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
}
extractedFeat = SObjectSetInt(num_accented, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
/* all OK here */
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
S_UNUSED(self);
}
static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
const SItem *itemInSylStructRel;
const SItem *syllableItem;
const SItem *itr;
sint32 count;
S_CLR_ERR(error);
if (item == NULL)
return NULL;
itemInSylStructRel = SItemAs(item, "SylStructure", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
if (itemInSylStructRel == NULL)
{
extractedFeat = SObjectSetInt(0, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
return extractedFeat;
}
syllableItem = SItemParent(itemInSylStructRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemParent\" failed"))
goto quit_error;
if (syllableItem == NULL)
{
extractedFeat = SObjectSetInt(0, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
return extractedFeat;
}
itr = SItemLastDaughter(syllableItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemLastDaughter\" failed"))
goto quit_error;
count = 0;
while (itr != NULL)
{
s_bool is_equal;
is_equal = SItemEqual(itr, itemInSylStructRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemEqual\" failed"))
goto quit_error;
if (is_equal)
break;
count++;
itr = SItemPrev(itr, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
}
extractedFeat = SObjectSetInt(count, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
/* all OK here */
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
S_UNUSED(self);
}
static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
s_bool found = FALSE;
SItem *boundary = SItemLastDaughter ( item, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemLastDaughter\" failed"))
goto quit_error;
boundary = SItemAs (boundary, "Boundaries", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
SItem * boundaryNext = SItemNext (boundary, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemNext\" failed"))
goto quit_error;
if (boundaryNext != NULL)
boundary = boundaryNext;
while (!found && boundary != NULL)
{
found = SItemFeatureIsPresent( boundary, "tobi_endtone", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemFeatureIsPresent\" failed"))
goto quit_error;
if (!found)
{
boundary = SItemPrev(boundary, error );
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
}
}
if ( found )
{
const char* tone = SItemGetString( boundary, "tobi_endtone", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemGetFeature\" failed"))
goto quit_error;
extractedFeat = SObjectSetString( tone, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetString\" failed"))
goto quit_error;
}
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
S_UNUSED(self);
S_UNUSED(item);
}
static SObject *Run(const SFeatProcessor *self, const SItem *item,
s_erc *error)
{
SObject *extractedFeat = NULL;
const SItem *syllWord;
const SItem *itemInSylStructRel;
const SItem *wordInPhrase;
const SItem *phrase;
const SItem *itr;
sint32 count;
S_CLR_ERR(error);
if (item == NULL)
return NULL;
/* syllable as in SylStructure */
itemInSylStructRel = SItemAs(item, "SylStructure", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
if (itemInSylStructRel == NULL)
goto quit_null;
/* syllable's word */
syllWord = SItemParent(itemInSylStructRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemParent\" failed"))
goto quit_error;
if (syllWord == NULL)
goto quit_null;
/* as in phrase structure */
wordInPhrase = SItemAs(syllWord, "Phrase", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
goto quit_error;
if (wordInPhrase == NULL)
goto quit_null;
/* get phrase */
phrase = SItemParent(wordInPhrase, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemParent\" failed"))
goto quit_error;
if (phrase == NULL)
goto quit_null;
itr = SItemLastDaughter(phrase, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemLastDaughter\" failed"))
goto quit_error;
count = 0;
while (itr != NULL)
{
s_bool is_equal;
is_equal = SItemEqual(itr, syllWord, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemEqual\" failed"))
goto quit_error;
if (is_equal)
break;
count += word_num_syls(itr, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"word_num_syls\" failed"))
goto quit_error;
itr = SItemPrev(itr, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
goto quit_error;
}
count += syll_pos_word_rev(item, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"syll_pos_word_rev\" failed"))
goto quit_error;
extractedFeat = SObjectSetInt(count, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
/* all OK here */
return extractedFeat;
/* error cleanup */
quit_error:
if (extractedFeat != NULL)
S_DELETE(extractedFeat, "Run", error);
return NULL;
/* return 0 */
quit_null:
extractedFeat = SObjectSetInt(0, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SObjectSetInt\" failed"))
goto quit_error;
return extractedFeat;
S_UNUSED(self);
}
static sint32 syll_pos_word_rev(const SItem *item, s_erc *error)
{
const SItem *itemInSylStructRel;
const SItem *wordItem;
const SItem *itr;
sint32 count;
S_CLR_ERR(error);
if (item == NULL)
return 0;
itemInSylStructRel = SItemAs(item, "SylStructure", error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemAs\" failed"))
return 0;
if (itemInSylStructRel == NULL)
return 0;
wordItem = SItemParent(itemInSylStructRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemParent\" failed"))
return 0;
if (wordItem == NULL)
return 0;
itr = SItemLastDaughter(wordItem, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemLastDaughter\" failed"))
return 0;
count = 0;
while (itr != NULL)
{
s_bool is_equal;
is_equal = SItemEqual(itr, itemInSylStructRel, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemEqual\" failed"))
return 0;
if (is_equal)
break;
count++;
itr = SItemPrev(itr, error);
if (S_CHK_ERR(error, S_CONTERR,
"Run",
"Call to \"SItemPrev\" failed"))
return 0;
}
/* all OK here */
return count;
}
