subdir = contrib/soundex

top_builddir = ../..

include../../src/Makefile.global

include$(top_builddir)/src/Makefile.global

NAME:= soundex

SONAME:=$(NAME)$(DLSUFFIX)

all:$(SONAME)$(NAME).sql

$(NAME).sql:$(NAME).sql.in

sed-e's:MODULE_PATHNAME:$(datadir)/contrib/$(SONAME):g'<$<>$@

sed's,@MODULE_FILENAME@,$(libdir)/contrib/$(SONAME),g'$<>$@

install: all installdirs

$(INSTALL_SHLIB)$(SONAME)$(libdir)/contrib

rm -f$(libdir)/contrib/$(SONAME)$(datadir)/contrib/$(NAME).sql$(docdir)/contrib/README.$(NAME)

cleandistcleanmaintainer-clean:

rm -f$(SONAME)$(NAME).sql

rm -f$(SONAME)$(NAME).o$(NAME).sql

dependdep:

$(CC) -MM -MG$(CFLAGS)*.c> depend

This directory contains a module that implements the "Soundex" code as

a PostgreSQL user-defined function. The Soundex system is a method of

matching similar sounding names (or any words) to the same code. It

was initially used by the United States Census in 1880, 1900, and

1910, but it has little use beyond English names (or the English

pronunciation of names), and it is not a linguistic tool.

To install it, first configure the main source tree, then run make;

make install in this directory. Finally, load the function definition

with psql:

psql -f PREFIX/share/contrib/soundex.sql

The following are some usage examples:

SELECT text_soundex('hello world!');

SELECT *

from s

where s.nm #= 'john';

text_soundex(PG_FUNCTION_ARGS);

text*text_soundex(text*t);

char*soundex(char*instr,char*outstr);

soundex(constchar*instr,char*outstr);

text_soundex(text*t)

{

text*new_t;

#defineSOUNDEX_LEN 4

charoutstr[6+1];/* max length of soundex is 6 */

char*instr;

instr=palloc(VARSIZE(t)+1);

memcpy(instr,VARDATA(t),VARSIZE(t)-VARHDRSZ);

instr[VARSIZE(t)-VARHDRSZ]= (char)0;

#define_textin(str) DirectFunctionCall1(textin, CStringGetDatum(str))

#define_textout(str) DatumGetPointer(DirectFunctionCall1(textout, PointerGetDatum(str)))

soundex(instr,outstr);

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));

text_soundex(PG_FUNCTION_ARGS)

{

charoutstr[SOUNDEX_LEN+1];

char*arg;

arg=_textout(PG_GETARG_TEXT_P(0));

pfree(instr);

soundex(arg,outstr);

return (new_t);

PG_RETURN_TEXT_P(_textin(outstr));

}

staticconstchar*soundex_table="01230120022455012623010202";

#definesoundex_code(letter) soundex_table[toupper(letter) - 'A']

soundex(char*instr,char*outstr)

soundex(constchar*instr,char*outstr)

{

char*table="01230120022455012623010202";

intcount=0;

intcount;

AssertArg(instr);

AssertArg(outstr);

outstr[SOUNDEX_LEN]='\0';

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

++instr;

if (!instr[0])

{/* Hey! Where'd the string go? */

outstr[0]= (char)0;

returnoutstr;

}

if (toupper(instr[0])=='P'&&toupper(instr[1])=='H')

{

instr[0]='F';

instr[1]='A';

outstr[0]=(char)0;

return;

}

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

while (*instr&&count<5)

count=1;

while (*instr&&count<SOUNDEX_LEN)

{

if (isalpha(*instr)&&*instr!=*(instr-1))

if (isalpha(*instr)&&soundex_code(*instr)!=soundex_code(*(instr-1)))

{

*outstr=table[toupper(instr[0])-'A'];

*outstr=soundex_code(instr[0]);

if (*outstr!='0')

{

++outstr;

++instr;

}

*outstr='\0';

return (outstr);

while (count<SOUNDEX_LEN)

{

*outstr='0';

++outstr;

++count;

}

}

main (intargc,char*argv[])

{

if (argc<2)

{

fprintf(stderr,"usage: %s string\n",argv[0]);

return1;

}

{

charoutput[SOUNDEX_LEN+1];

soundex(argv[1],output);

printf("soundex(%s) = %s\n",argv[1],output);

return0;

}

}

CREATE FUNCTION text_soundex(text) RETURNS text

AS 'MODULE_PATHNAME'LANGUAGE 'c';

AS '@MODULE_FILENAME@', 'text_soundex'LANGUAGE 'newC';

CREATE FUNCTION soundex(text) RETURNS text

AS '@MODULE_FILENAME@', 'text_soundex' LANGUAGE 'newC';