数据库系统

开发平台：

Unix_Linux

soundex.c：源码内容

							/*****************************************************************************/
/* 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 = '';
	return (outstr);
}

						