/*****************************************************************************/
/* soundex.c */
/*****************************************************************************/

#include <string.h>
#include <stdio.h>
#include "postgres.h"	  /* for char16, etc. */
#include "utils/palloc.h" /* for palloc */
#include "libpq-fe.h" /* for TUPLE */
#include <stdio.h>
#include <ctype.h>

/* prototype for soundex function */
char *soundex(char *instr, char *outstr);

text *text_soundex(text *t)
{
                /* ABCDEFGHIJKLMNOPQRSTUVWXYZ */
    char *table = "01230120022455012623010202";
    int count = 0;
    text *new_t;

    char outstr[6+1]; /* max length of soundex is 6 */
    char *instr;

    /* make a null-terminated string */
    instr=palloc(VARSIZE(t)+1);
    memcpy(instr,VARDATA(t),VARSIZE(t)-VARHDRSZ);
    instr[VARSIZE(t)-VARHDRSZ] = (char)0;

    /* load soundex into outstr */
    soundex(instr, outstr);

    /* Now the outstr contains the soundex of instr */
    /* copy outstr to new_t */
    new_t = (text *) palloc(strlen(outstr)+VARHDRSZ);
    memset(new_t, 0, strlen(outstr)+1);
    VARSIZE(new_t) = strlen(outstr)+VARHDRSZ;
    memcpy((void *) VARDATA(new_t),
           (void *) outstr,
           strlen(outstr));

    /* free instr */
    pfree(instr);

    return(new_t);
}

char *soundex(char *instr, char *outstr)
{                   /* ABCDEFGHIJKLMNOPQRSTUVWXYZ */
    char *table = "01230120022455012623010202";
    int count = 0;

    while(!isalpha(instr[0]) && instr[0])
        ++instr;

    if(!instr[0]) {   /* Hey!  Where'd the string go? */
        outstr[0]=(char)0;
        return outstr;
    }

    if(toupper(instr[0]) == 'P' && toupper(instr[1]) == 'H') {
        instr[0] = 'F';
        instr[1] = 'A';
    }

    *outstr++ = (char)toupper(*instr++);

    while(*instr && count < 5) {
        if(isalpha(*instr) && *instr != *(instr-1)) {
            *outstr = table[toupper(instr[0]) - 'A'];
            if(*outstr != '0') {
                ++outstr;
                ++count;
            }
        }
        ++instr;
    }

    *outstr = '\0';
    return(outstr);
}