mirror of
https://github.com/php/php-src.git
synced 2024-09-22 10:27:25 +00:00
257de2bade
sub-directories and started to move extension code into ext/<name>. For now, I have moved the "standard" extension (which is quite a mix of everything right now) and the GD extension into their own subdirs in ext/. The configure script now also runs configure in the libzend directory automatically and makes sure php4 and libzend use the same config.cache file. To avoid running configure in libzend, use the --no-recursion option. "make" in php4 also builds libzend now. The Apache module doesn't compile right now, but a fix for that is coming up.
137 lines
4.0 KiB
C
137 lines
4.0 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP HTML Embedded Scripting Language Version 3.0 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997,1998 PHP Development Team (See Credits file) |
|
|
+----------------------------------------------------------------------+
|
|
| This program is free software; you can redistribute it and/or modify |
|
|
| it under the terms of one of the following licenses: |
|
|
| |
|
|
| A) the GNU General Public License as published by the Free Software |
|
|
| Foundation; either version 2 of the License, or (at your option) |
|
|
| any later version. |
|
|
| |
|
|
| B) the PHP License as published by the PHP Development Team and |
|
|
| included in the distribution in the file: LICENSE |
|
|
| |
|
|
| This program is distributed in the hope that it will be useful, |
|
|
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
| GNU General Public License for more details. |
|
|
| |
|
|
| You should have received a copy of both licenses referred to here. |
|
|
| If you did not, or have any questions about PHP licensing, please |
|
|
| contact core@php.net. |
|
|
+----------------------------------------------------------------------+
|
|
| Author: Bjørn Borud - Guardian Networks AS <borud@guardian.no> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
/* $Id$ */
|
|
|
|
#include "php.h"
|
|
#include <stdlib.h>
|
|
#include <errno.h>
|
|
#include <ctype.h>
|
|
#include "php3_string.h"
|
|
|
|
/* Simple soundex algorithm as described by Knuth in TAOCP, vol 3 */
|
|
/* {{{ proto string soundex(string str)
|
|
Calculate the soundex key of a string */
|
|
void soundex(INTERNAL_FUNCTION_PARAMETERS)
|
|
{
|
|
char l, u;
|
|
char *somestring;
|
|
int i, j, n;
|
|
pval *arg;
|
|
|
|
/* pad with '0' and terminate with 0 ;-) */
|
|
char soundex[5] =
|
|
{'0', '0', '0', '0', 0};
|
|
|
|
static char soundex_table[26] =
|
|
{0, /* A */
|
|
'1', /* B */
|
|
'2', /* C */
|
|
'3', /* D */
|
|
0, /* E */
|
|
'1', /* F */
|
|
'2', /* G */
|
|
0, /* H */
|
|
0, /* I */
|
|
'2', /* J */
|
|
'2', /* K */
|
|
'4', /* L */
|
|
'5', /* M */
|
|
'5', /* N */
|
|
0, /* O */
|
|
'1', /* P */
|
|
'2', /* Q */
|
|
'6', /* R */
|
|
'2', /* S */
|
|
'3', /* T */
|
|
0, /* U */
|
|
'1', /* V */
|
|
0, /* W */
|
|
'2', /* X */
|
|
0, /* Y */
|
|
'2'}; /* Z */
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string(arg);
|
|
if (arg->value.str.len==0) {
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
somestring = arg->value.str.val;
|
|
|
|
n = arg->value.str.len;
|
|
|
|
/* convert chars to upper case and strip non-letter chars */
|
|
j = 0;
|
|
for (i = 0; i < n; i++) {
|
|
u = toupper(somestring[i]);
|
|
if ((u > 64) && (u < 91)) {
|
|
somestring[j] = u;
|
|
j++;
|
|
}
|
|
}
|
|
|
|
/* null-terminate string */
|
|
somestring[j] = 0;
|
|
|
|
n = strlen(somestring);
|
|
|
|
/* prefix soundex string with first valid char */
|
|
soundex[0] = somestring[0];
|
|
|
|
/* remember first char */
|
|
l = soundex_table[((somestring[0]) - 65)];
|
|
|
|
j = 1;
|
|
|
|
/* build soundex string */
|
|
for (i = 1; i < n && j < 4; i++) {
|
|
u = soundex_table[((somestring[i]) - 65)];
|
|
|
|
if (u != l) {
|
|
if (u != 0) {
|
|
soundex[(int) j++] = u;
|
|
}
|
|
l = u;
|
|
}
|
|
}
|
|
|
|
return_value->value.str.val = estrndup(soundex, 4);
|
|
return_value->value.str.len = strlen(soundex);
|
|
return_value->type = IS_STRING;
|
|
}
|
|
/* }}} */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
*/
|