Gecko [ www.jdcpatala.org ]

Name	Size	Permission
html_tables	[ DIR ]	drwxr-xr-x
tests	[ DIR ]	drwxr-xr-x
Makefile.frag	518 B	-rw-r--r--
Makefile.frag.w32	484 B	-rw-r--r--
array.c	171.38 KB	-rw-r--r--
assert.c	8.26 KB	-rw-r--r--
base64.c	30.55 KB	-rw-r--r--
base64.h	3.59 KB	-rw-r--r--
basic_functions.c	66.93 KB	-rw-r--r--
basic_functions.h	4.87 KB	-rw-r--r--
basic_functions.stub.php	48.85 KB	-rw-r--r--
basic_functions_arginfo.h	125.23 KB	-rw-r--r--
browscap.c	20.49 KB	-rw-r--r--
config.m4	10.98 KB	-rw-r--r--
config.w32	1.79 KB	-rw-r--r--
crc32.c	3.85 KB	-rw-r--r--
crc32.h	4.79 KB	-rw-r--r--
crc32_x86.c	11.99 KB	-rw-r--r--
crc32_x86.h	1.82 KB	-rw-r--r--
credits.c	5.71 KB	-rw-r--r--
credits.h	1.53 KB	-rw-r--r--
credits_ext.h	5.24 KB	-rw-r--r--
credits_sapi.h	835 B	-rw-r--r--
crypt.c	6.73 KB	-rw-r--r--
crypt_blowfish.c	30.75 KB	-rw-r--r--
crypt_blowfish.h	790 B	-rw-r--r--
crypt_freesec.c	21.52 KB	-rw-r--r--
crypt_freesec.h	662 B	-rw-r--r--
crypt_sha256.c	21.6 KB	-rw-r--r--
crypt_sha512.c	26.24 KB	-rw-r--r--
css.c	2.24 KB	-rw-r--r--
css.h	1.04 KB	-rw-r--r--
datetime.c	3.28 KB	-rw-r--r--
datetime.h	1.14 KB	-rw-r--r--
dir.c	14.04 KB	-rw-r--r--
dir.stub.php	528 B	-rw-r--r--
dir_arginfo.h	1.83 KB	-rw-r--r--
dl.c	8.18 KB	-rw-r--r--
dl.h	1.46 KB	-rw-r--r--
dl.stub.php	56 B	-rw-r--r--
dl_arginfo.h	269 B	-rw-r--r--
dns.c	29.37 KB	-rw-r--r--
dns_win32.c	15.09 KB	-rw-r--r--
exec.c	12.77 KB	-rw-r--r--
exec.h	1.27 KB	-rw-r--r--
file.c	65.14 KB	-rw-r--r--
file.h	3.93 KB	-rw-r--r--
filestat.c	28.38 KB	-rw-r--r--
filters.c	50.3 KB	-rw-r--r--
flock_compat.c	6 KB	-rw-r--r--
flock_compat.h	2.06 KB	-rw-r--r--
formatted_print.c	23.31 KB	-rw-r--r--
fsock.c	3.67 KB	-rw-r--r--
fsock.h	1.22 KB	-rw-r--r--
ftok.c	1.84 KB	-rw-r--r--
ftp_fopen_wrapper.c	31.54 KB	-rw-r--r--
head.c	10.66 KB	-rw-r--r--
head.h	1.53 KB	-rw-r--r--
hrtime.c	4.86 KB	-rw-r--r--
hrtime.h	2.31 KB	-rw-r--r--
html.c	44.9 KB	-rw-r--r--
html.h	2.34 KB	-rw-r--r--
html_tables.h	472.26 KB	-rw-r--r--
http.c	6.99 KB	-rw-r--r--
http_fopen_wrapper.c	32.23 KB	-rw-r--r--
image.c	44.79 KB	-rw-r--r--
incomplete_class.c	4.95 KB	-rw-r--r--
info.c	40.74 KB	-rw-r--r--
info.h	22.94 KB	-rw-r--r--
iptc.c	9.11 KB	-rw-r--r--
lcg.c	2.8 KB	-rw-r--r--
levenshtein.c	2.57 KB	-rw-r--r--
link.c	5.45 KB	-rw-r--r--
mail.c	15.13 KB	-rw-r--r--
math.c	27.18 KB	-rw-r--r--
md5.c	10.66 KB	-rw-r--r--
md5.h	2.02 KB	-rw-r--r--
metaphone.c	11.53 KB	-rw-r--r--
microtime.c	4.01 KB	-rw-r--r--
mt_rand.c	10.67 KB	-rw-r--r--
net.c	8.97 KB	-rw-r--r--
pack.c	31.65 KB	-rw-r--r--
pack.h	1.05 KB	-rw-r--r--
pageinfo.c	3.23 KB	-rw-r--r--
pageinfo.h	1.15 KB	-rw-r--r--
password.c	19.17 KB	-rw-r--r--
php_array.h	2.24 KB	-rw-r--r--
php_assert.h	1.24 KB	-rw-r--r--
php_browscap.h	1.11 KB	-rw-r--r--
php_crypt.h	1.37 KB	-rw-r--r--
php_crypt_r.c	5.74 KB	-rw-r--r--
php_crypt_r.h	1.64 KB	-rw-r--r--
php_dir.h	1.28 KB	-rw-r--r--
php_dns.h	2.58 KB	-rw-r--r--
php_ext_syslog.h	1.25 KB	-rw-r--r--
php_filestat.h	2.1 KB	-rw-r--r--
php_fopen_wrapper.c	11.47 KB	-rw-r--r--
php_fopen_wrappers.h	1.79 KB	-rw-r--r--
php_http.h	1.33 KB	-rw-r--r--
php_image.h	2.17 KB	-rw-r--r--
php_incomplete_class.h	2.15 KB	-rw-r--r--
php_lcg.h	1.31 KB	-rw-r--r--
php_mail.h	2.16 KB	-rw-r--r--
php_math.h	3.55 KB	-rw-r--r--
php_mt_rand.h	1.81 KB	-rw-r--r--
php_net.h	1.14 KB	-rw-r--r--
php_password.h	2.76 KB	-rw-r--r--
php_rand.h	3 KB	-rw-r--r--
php_random.h	1.86 KB	-rw-r--r--
php_smart_string.h	1.13 KB	-rw-r--r--
php_smart_string_public.h	1.14 KB	-rw-r--r--
php_standard.h	1.91 KB	-rw-r--r--
php_string.h	3.95 KB	-rw-r--r--
php_uuencode.h	1.18 KB	-rw-r--r--
php_var.h	3.41 KB	-rw-r--r--
php_versioning.h	1.18 KB	-rw-r--r--
proc_open.c	35.65 KB	-rw-r--r--
proc_open.h	1.67 KB	-rw-r--r--
quot_print.c	7 KB	-rw-r--r--
quot_print.h	1.23 KB	-rw-r--r--
rand.c	2.22 KB	-rw-r--r--
random.c	7.33 KB	-rw-r--r--
scanf.c	28.32 KB	-rw-r--r--
scanf.h	1.95 KB	-rw-r--r--
sha1.c	11.22 KB	-rw-r--r--
sha1.h	1.62 KB	-rw-r--r--
soundex.c	2.94 KB	-rw-r--r--
streamsfuncs.c	43.35 KB	-rw-r--r--
streamsfuncs.h	1.11 KB	-rw-r--r--
string.c	143.34 KB	-rw-r--r--
strnatcmp.c	4.28 KB	-rw-r--r--
syslog.c	6.02 KB	-rw-r--r--
type.c	10.77 KB	-rw-r--r--
uniqid.c	2.62 KB	-rw-r--r--
url.c	18.08 KB	-rw-r--r--
url.h	2.08 KB	-rw-r--r--
url_scanner_ex.c	38.41 KB	-rw-r--r--
url_scanner_ex.h	2.32 KB	-rw-r--r--
url_scanner_ex.re	27.63 KB	-rw-r--r--
user_filters.c	15.39 KB	-rw-r--r--
user_filters.stub.php	541 B	-rw-r--r--
user_filters_arginfo.h	2.45 KB	-rw-r--r--
uuencode.c	6.35 KB	-rw-r--r--
var.c	40.96 KB	-rw-r--r--
var_unserializer.c	42.18 KB	-rw-r--r--
var_unserializer.re	34.43 KB	-rw-r--r--
versioning.c	5.69 KB	-rw-r--r--
winver.h	6.23 KB	-rw-r--r--

Code Editor : metaphone.c

/*
   +----------------------------------------------------------------------+
   | Copyright (c) The PHP Group                                          |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | https://www.php.net/license/3_01.txt                                 |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Author: Thies C. Arntzen <thies@thieso.net>                          |
   +----------------------------------------------------------------------+
*/

/*
	Based on CPANs "Text-Metaphone-1.96" by Michael G Schwern <schwern@pobox.com>
*/

#include "php.h"

static void metaphone(unsigned char *word, size_t word_len, zend_long max_phonemes, zend_string **phoned_word, int traditional);

/* {{{ Break english phrases down into their phonemes */
PHP_FUNCTION(metaphone)
{
	zend_string *str;
	zend_string *result = NULL;
	zend_long phones = 0;

ZEND_PARSE_PARAMETERS_START(1, 2)
		Z_PARAM_STR(str)
		Z_PARAM_OPTIONAL
		Z_PARAM_LONG(phones)
	ZEND_PARSE_PARAMETERS_END();

if (phones < 0) {
		zend_argument_value_error(2, "must be greater than or equal to 0");
		RETURN_THROWS();
	}

metaphone((unsigned char *)ZSTR_VAL(str), ZSTR_LEN(str), phones, &result, 1);
	RETVAL_STR(result);
}
/* }}} */

/*
   this is now the original code by Michael G Schwern:
   i've changed it just a slightly bit (use emalloc,
   get rid of includes etc)
	- thies - 13.09.1999
*/

/*-----------------------------  */
/* this used to be "metaphone.h" */
/*-----------------------------  */

/* Special encodings */
#define  SH 	'X'
#define  TH		'0'

/*-----------------------------  */
/* end of "metaphone.h"          */
/*-----------------------------  */

/*----------------------------- */
/* this used to be "metachar.h" */
/*----------------------------- */

/* Metachar.h ... little bits about characters for metaphone */
/*-- Character encoding array & accessing macros --*/
/* Stolen directly out of the book... */
static const char _codes[26] =
{
	1, 16, 4, 16, 9, 2, 4, 16, 9, 2, 0, 2, 2, 2, 1, 4, 0, 2, 4, 4, 1, 0, 0, 0, 8, 0
/*  a  b c  d e f g  h i j k l m n o p q r s t u v w x y z */
};

#define ENCODE(c) (isalpha(c) ? _codes[((toupper(c)) - 'A')] : 0)

#define isvowel(c)  (ENCODE(c) & 1)		/* AEIOU */

/* These letters are passed through unchanged */
#define NOCHANGE(c) (ENCODE(c) & 2)		/* FJMNR */

/* These form diphthongs when preceding H */
#define AFFECTH(c)  (ENCODE(c) & 4)		/* CGPST */

/* These make C and G soft */
#define MAKESOFT(c) (ENCODE(c) & 8)		/* EIY */

/* These prevent GH from becoming F */
#define NOGHTOF(c)  (ENCODE(c) & 16)	/* BDH */

/*----------------------------- */
/* end of "metachar.h"          */
/*----------------------------- */

/* I suppose I could have been using a character pointer instead of
 * accesssing the array directly... */

/* Look at the next letter in the word */
#define Next_Letter (toupper(word[w_idx+1]))
/* Look at the current letter in the word */
#define Curr_Letter (toupper(word[w_idx]))
/* Go N letters back. */
#define Look_Back_Letter(n)	(w_idx >= n ? toupper(word[w_idx-n]) : '\0')
/* Previous letter.  I dunno, should this return null on failure? */
#define Prev_Letter (Look_Back_Letter(1))
/* Look two letters down.  It makes sure you don't walk off the string. */
#define After_Next_Letter	(Next_Letter != '\0' ? toupper(word[w_idx+2]) \
											     : '\0')
#define Look_Ahead_Letter(n) (toupper(Lookahead((char *) word+w_idx, n)))

/* Allows us to safely look ahead an arbitrary # of letters */
/* I probably could have just used strlen... */
static char Lookahead(char *word, int how_far)
{
	char letter_ahead = '\0';	/* null by default */
	int idx;
	for (idx = 0; word[idx] != '\0' && idx < how_far; idx++);
	/* Edge forward in the string... */

letter_ahead = word[idx];	/* idx will be either == to how_far or
								 * at the end of the string
								 */
	return letter_ahead;
}

/* phonize one letter
 * We don't know the buffers size in advance. On way to solve this is to just
 * re-allocate the buffer size. We're using an extra of 2 characters (this
 * could be one though; or more too). */
#define Phonize(c)	{ \
						if (p_idx >= max_buffer_len) { \
							*phoned_word = zend_string_extend(*phoned_word, 2 * sizeof(char) + max_buffer_len, 0); \
							max_buffer_len += 2; \
						} \
						ZSTR_VAL(*phoned_word)[p_idx++] = c; \
						ZSTR_LEN(*phoned_word) = p_idx; \
					}
/* Slap a null character on the end of the phoned word */
#define End_Phoned_Word()	{ \
							if (p_idx == max_buffer_len) { \
								*phoned_word = zend_string_extend(*phoned_word, 1 * sizeof(char) + max_buffer_len, 0); \
								max_buffer_len += 1; \
							} \
							ZSTR_VAL(*phoned_word)[p_idx] = '\0'; \
							ZSTR_LEN(*phoned_word) = p_idx; \
						}
/* How long is the phoned word? */
#define Phone_Len	(p_idx)

/* Note is a letter is a 'break' in the word */
#define Isbreak(c)  (!isalpha(c))

/* {{{ metaphone */
static void metaphone(unsigned char *word, size_t word_len, zend_long max_phonemes, zend_string **phoned_word, int traditional)
{
	int w_idx = 0;				/* point in the phonization we're at. */
	size_t p_idx = 0;				/* end of the phoned phrase */
	size_t max_buffer_len = 0;		/* maximum length of the destination buffer */
	ZEND_ASSERT(word != NULL);
	ZEND_ASSERT(max_phonemes >= 0);

/*-- Allocate memory for our phoned_phrase --*/
	if (max_phonemes == 0) {	/* Assume largest possible */
		max_buffer_len = word_len;
		*phoned_word = zend_string_alloc(sizeof(char) * word_len + 1, 0);
	} else {
		max_buffer_len = max_phonemes;
		*phoned_word = zend_string_alloc(sizeof(char) * max_phonemes + 1, 0);
	}

/*-- The first phoneme has to be processed specially. --*/
	/* Find our first letter */
	for (; !isalpha(Curr_Letter); w_idx++) {
		/* On the off chance we were given nothing but crap... */
		if (Curr_Letter == '\0') {
			End_Phoned_Word();
			return;
		}
	}

switch (Curr_Letter) {
		/* AE becomes E */
	case 'A':
		if (Next_Letter == 'E') {
			Phonize('E');
			w_idx += 2;
		}
		/* Remember, preserve vowels at the beginning */
		else {
			Phonize('A');
			w_idx++;
		}
		break;
		/* [GKP]N becomes N */
	case 'G':
	case 'K':
	case 'P':
		if (Next_Letter == 'N') {
			Phonize('N');
			w_idx += 2;
		}
		break;
		/* WH becomes W,
		   WR becomes R
		   W if followed by a vowel */
	case 'W':
		if (Next_Letter == 'R') {
			Phonize(Next_Letter);
			w_idx += 2;
		} else if (Next_Letter == 'H' || isvowel(Next_Letter)) {
			Phonize('W');
			w_idx += 2;
		}
		/* else ignore */
		break;
		/* X becomes S */
	case 'X':
		Phonize('S');
		w_idx++;
		break;
		/* Vowels are kept */
		/* We did A already
		   case 'A':
		   case 'a':
		 */
	case 'E':
	case 'I':
	case 'O':
	case 'U':
		Phonize(Curr_Letter);
		w_idx++;
		break;
	default:
		/* do nothing */
		break;
	}

/* On to the metaphoning */
	for (; Curr_Letter != '\0' &&
		 (max_phonemes == 0 || Phone_Len < (size_t)max_phonemes);
		 w_idx++) {
		/* How many letters to skip because an eariler encoding handled
		 * multiple letters */
		unsigned short int skip_letter = 0;

/* THOUGHT:  It would be nice if, rather than having things like...
		 * well, SCI.  For SCI you encode the S, then have to remember
		 * to skip the C.  So the phonome SCI invades both S and C.  It would
		 * be better, IMHO, to skip the C from the S part of the encoding.
		 * Hell, I'm trying it.
		 */

/* Ignore non-alphas */
		if (!isalpha(Curr_Letter))
			continue;

/* Drop duplicates, except CC */
		if (Curr_Letter == Prev_Letter &&
			Curr_Letter != 'C')
			continue;

switch (Curr_Letter) {
			/* B -> B unless in MB */
		case 'B':
			if (Prev_Letter != 'M')
				Phonize('B');
			break;
			/* 'sh' if -CIA- or -CH, but not SCH, except SCHW.
			 * (SCHW is handled in S)
			 *  S if -CI-, -CE- or -CY-
			 *  dropped if -SCI-, SCE-, -SCY- (handed in S)
			 *  else K
			 */
		case 'C':
			if (MAKESOFT(Next_Letter)) {	/* C[IEY] */
				if (After_Next_Letter == 'A' &&
					Next_Letter == 'I') {	/* CIA */
					Phonize(SH);
				}
				/* SC[IEY] */
				else if (Prev_Letter == 'S') {
					/* Dropped */
				} else {
					Phonize('S');
				}
			} else if (Next_Letter == 'H') {
				if ((!traditional) && (After_Next_Letter == 'R' || Prev_Letter == 'S')) {	/* Christ, School */
					Phonize('K');
				} else {
					Phonize(SH);
				}
				skip_letter++;
			} else {
				Phonize('K');
			}
			break;
			/* J if in -DGE-, -DGI- or -DGY-
			 * else T
			 */
		case 'D':
			if (Next_Letter == 'G' &&
				MAKESOFT(After_Next_Letter)) {
				Phonize('J');
				skip_letter++;
			} else
				Phonize('T');
			break;
			/* F if in -GH and not B--GH, D--GH, -H--GH, -H---GH
			 * else dropped if -GNED, -GN,
			 * else dropped if -DGE-, -DGI- or -DGY- (handled in D)
			 * else J if in -GE-, -GI, -GY and not GG
			 * else K
			 */
		case 'G':
			if (Next_Letter == 'H') {
				if (!(NOGHTOF(Look_Back_Letter(3)) ||
					  Look_Back_Letter(4) == 'H')) {
					Phonize('F');
					skip_letter++;
				} else {
					/* silent */
				}
			} else if (Next_Letter == 'N') {
				if (Isbreak(After_Next_Letter) ||
					(After_Next_Letter == 'E' &&
					 Look_Ahead_Letter(3) == 'D')) {
					/* dropped */
				} else
					Phonize('K');
			} else if (MAKESOFT(Next_Letter) &&
					   Prev_Letter != 'G') {
				Phonize('J');
			} else {
				Phonize('K');
			}
			break;
			/* H if before a vowel and not after C,G,P,S,T */
		case 'H':
			if (isvowel(Next_Letter) &&
				!AFFECTH(Prev_Letter))
				Phonize('H');
			break;
			/* dropped if after C
			 * else K
			 */
		case 'K':
			if (Prev_Letter != 'C')
				Phonize('K');
			break;
			/* F if before H
			 * else P
			 */
		case 'P':
			if (Next_Letter == 'H') {
				Phonize('F');
			} else {
				Phonize('P');
			}
			break;
			/* K
			 */
		case 'Q':
			Phonize('K');
			break;
			/* 'sh' in -SH-, -SIO- or -SIA- or -SCHW-
			 * else S
			 */
		case 'S':
			if (Next_Letter == 'I' &&
				(After_Next_Letter == 'O' ||
				 After_Next_Letter == 'A')) {
				Phonize(SH);
			} else if (Next_Letter == 'H') {
				Phonize(SH);
				skip_letter++;
			} else if ((!traditional) && (Next_Letter == 'C' && Look_Ahead_Letter(2) == 'H' && Look_Ahead_Letter(3) == 'W')) {
				Phonize(SH);
				skip_letter += 2;
			} else {
				Phonize('S');
			}
			break;
			/* 'sh' in -TIA- or -TIO-
			 * else 'th' before H
			 * else T
			 */
		case 'T':
			if (Next_Letter == 'I' &&
				(After_Next_Letter == 'O' ||
				 After_Next_Letter == 'A')) {
				Phonize(SH);
			} else if (Next_Letter == 'H') {
				Phonize(TH);
				skip_letter++;
			} else if (!(Next_Letter == 'C' && After_Next_Letter == 'H')) {
				Phonize('T');
			}
			break;
			/* F */
		case 'V':
			Phonize('F');
			break;
			/* W before a vowel, else dropped */
		case 'W':
			if (isvowel(Next_Letter))
				Phonize('W');
			break;
			/* KS */
		case 'X':
			Phonize('K');
			Phonize('S');
			break;
			/* Y if followed by a vowel */
		case 'Y':
			if (isvowel(Next_Letter))
				Phonize('Y');
			break;
			/* S */
		case 'Z':
			Phonize('S');
			break;
			/* No transformation */
		case 'F':
		case 'J':
		case 'L':
		case 'M':
		case 'N':
		case 'R':
			Phonize(Curr_Letter);
			break;
		default:
			/* nothing */
			break;
		}						/* END SWITCH */

w_idx += skip_letter;
	}							/* END FOR */

End_Phoned_Word();
}								/* END metaphone */
/* }}} */

${this.title}

Code Editor : metaphone.c