static void
_soundex(const char *instr, char *outstr)
{
int count;
AssertArg(instr);
AssertArg(outstr);
outstr[SOUNDEX_LEN] = '\0';
/* Skip leading non-alphabetic characters */
while (!isalpha((unsigned char) instr[0]) && instr[0])
++instr;
/* No string left */
if (!instr[0])
{
outstr[0] = (char) 0;
return;
}
/* Take the first letter as is */
*outstr++ = (char) toupper((unsigned char) *instr++);
count = 1;
while (*instr && count < SOUNDEX_LEN)
{
if (isalpha((unsigned char) *instr) &&
soundex_code(*instr) != soundex_code(*(instr - 1)))
{
*outstr = soundex_code(instr[0]);
if (*outstr != '0')
{
++outstr;
++count;
}
}
++instr;
}
/* Fill with 0's */
while (count < SOUNDEX_LEN)
{
*outstr = '0';
++outstr;
++count;
}
}
str
soundex_impl(str *res, str *Name)
{
RETURN_NIL_IF(strNil(*Name), TYPE_str);
*res = (str) GDKmalloc(sizeof(char) * (SoundexLen + 1));
/* calculate Key for Name */
soundex_code(*Name, *res);
return MAL_SUCCEED;
}
str
soundex_impl(str *res, str *Name)
{
RETURN_NIL_IF(strNil(*Name), TYPE_str);
*res = (str) GDKmalloc(sizeof(char) * (SoundexLen + 1));
if( *res == NULL)
throw(MAL,"soundex", MAL_MALLOC_FAIL);
/* calculate Key for Name */
soundex_code(*Name, *res);
return MAL_SUCCEED;
}
