cvs: /php4/ext/standard soundex.c
| From: | verdy_p | Date: | Wed, 28 Jul 1999 07:04:27 +0000 |
| Subject: | cvs: /php4/ext/standard soundex.c | ||
| Groups: | php.version4 | ||
| Request: | Send a blank email to php-version4+get-2891@lists.php.net to get a copy of this message | ||
verdy_p Wed Jul 28 03:04:27 1999 EDT
Modified files:
/php4/ext/standard soundex.c
Log:
Commited changes in php3 function/soundex 1.32
Index: php4/ext/standard/soundex.c
diff -u php4/ext/standard/soundex.c:1.3 php4/ext/standard/soundex.c:1.4
--- php4/ext/standard/soundex.c:1.3 Sat Jul 24 18:16:54 1999
+++ php4/ext/standard/soundex.c Wed Jul 28 03:04:26 1999
@@ -15,7 +15,7 @@
| Author: Bjørn Borud - Guardian Networks AS <borud@guardian.no> |
+----------------------------------------------------------------------+
*/
-/* $Id: soundex.c,v 1.3 1999/07/24 22:16:54 andrey Exp $ */
+/* $Id: soundex.c,v 1.4 1999/07/28 07:04:26 verdy_p Exp $ */
#include "php.h"
#include <stdlib.h>
@@ -28,15 +28,11 @@
Calculate the soundex key of a string */
PHP_FUNCTION(soundex)
{
- char l, u;
- char *somestring;
- int i, j, n;
- pval *arg;
+ char *somestring;
+ int i, small, len;
+ pval *arg;
+ char soundex[4 + 1];
- /* pad with '0' and terminate with 0 ;-) */
- char soundex[5] =
- {'0', '0', '0', '0', 0};
-
static char soundex_table[26] =
{0, /* A */
'1', /* B */
@@ -64,6 +60,7 @@
'2', /* X */
0, /* Y */
'2'}; /* Z */
+
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
@@ -71,48 +68,44 @@
if (arg->value.str.len==0) {
RETURN_FALSE;
}
-
somestring = arg->value.str.val;
+ len = arg->value.str.len;
- 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;
+ for (i = 0, small = 0; i < len && small < 4; i++) {
+ /* convert chars to upper case and strip non-letter chars */
+ /* BUG: should also map here accented letters used in non */
+ /* English words or names (also found in English text!): */
+ /* esstsett, thorn, n-tilde, c-cedilla, s-caron, ... */
+ code = toupper(somestring[i]);
+ if (code >= 'A' && code <= 'Z') {
+ if (small == 0) {
+ /* remember first valid char */
+ soundex[small++] = code;
+ last = soundex_table[code - 'A'];
+ }
+ else {
+ /* ignore sequences of consonants with same soundex */
+ /* code in trail, and vowels unless they separate */
+ /* consonant letters */
+ code = soundex_table[code - 'A'];
+ if (code != last) {
+ if (code != 0) {
+ soundex[small++] = code;
+ }
+ last = code;
+ }
}
- l = u;
}
}
+ /* pad with '0' and terminate with 0 ;-) */
+ while (small < 4) {
+ soundex[small++] = '0';
+ }
+ soundex[small] = '\0';
- return_value->value.str.val = estrndup(soundex, 4);
- return_value->value.str.len = strlen(soundex);
+ return_value->value.str.val = estrndup(soundex, small);
+ return_value->value.str.len = small;
return_value->type = IS_STRING;
}
/* }}} */