php strpos 字符串查找函数内部源码实现

此函数查找字符串从前面开始查找。

此函数对应的c函数的代码为：ext/standard/string.c

/* {{{ proto int strpos(string haystack, string needle [, int offset])
Finds position of first occurrence of a string within another */

PHP_FUNCTION(strpos)

{

zval *needle;

char *haystack;

char *found = NULL;

char needle_char[2];

long offset = 0;

int haystack_len;
/* "

sz|l" 表示一个字符串（如果是一个字符串的话，根据zend_parse_parameters的用法，那么haystack后面的第二个参数就是个int类型，也就是haystack的长度haystack_len），一个zval，再加一个可选的long型，因此用"sz|l"来表示。
如果想实现可选参数的话，例如一个字符串，一个浮点，再加一个可选的bool型，可以用"sd|b"来表示。*/

if (zend_parse_parameters(ZEND_NUM_ARGS()
TSRMLS_CC, "sz|l", &haystack, &haystack_len, &needle, &offset) == FAILURE) {

return;

}

if (offset < 0 || offset > haystack_len) {

php_error_docref(NULL TSRMLS_CC, E_WARNING, "Offset not contained in string");

RETURN_FALSE;

}

if (Z_TYPE_P(needle) == IS_STRING) {

if (!Z_STRLEN_P(needle)) {

php_error_docref(NULL TSRMLS_CC, E_WARNING, "Empty needle");

RETURN_FALSE;

}

found =
php_memnstr(haystack + offset,

Z_STRVAL_P(needle),

Z_STRLEN_P(needle),

haystack + haystack_len);

} else {

if (php_needle_char(needle, needle_char TSRMLS_CC) != SUCCESS) {

RETURN_FALSE;

}

needle_char[1] = 0;

found = php_memnstr(haystack + offset,

needle_char,

1,

haystack + haystack_len);

}

if (found) {

RETURN_LONG(found - haystack);

} else {

RETURN_FALSE;

}

}

/* }}} */

其中红色函数：php_memnstr则是在main/php.h定义的：#define php_memnstr zend_memnstr，那么就需要找zend_memnstr的位置，通过搜索此函数的位置在：和ext通缉的Zend/zend_operators.h里面实现的。

//此函数的作用是在haystack中查找needle,如果不存在返回null,如果存在，返回指向haystack中needle头字符的指针
static inline char *zend_memnstr(char *haystack, char *needle, int needle_len, char *end)
{
//p代表haystack字符串首地址位置
char *p = haystack;
//needle尾字符
char ne = needle[needle_len-1];

//如果needle中只有1个字符，调用c中memchr查找
if (needle_len == 1) {
return (char *)memchr(p, *needle, (end-p));
}

if (needle_len > end-haystack) {
return NULL;
}

//查找头字符memchr时，最长end - needle_len
end -= needle_len;

while (p <= end) {
//在p中前end-p+1(即haystack_len+1)个字节查找*needle的头字符，如果找到，并且尾字符一致时
if ((p = (char *)memchr(p, *needle, (end-p+1))) && ne == p[needle_len-1]) {
if (!memcmp(needle, p, needle_len-1)) {//中间字符一致
return p;
}
}

if (p == NULL) {
return NULL;
}
//中间字符不一致，将p的指针指向下一个字符。
p++;
}

return NULL;
}

/*

Searches at bufferfor the given character, stopping when characteris first found or cnt bytes have been searched through.

从buffer所指内存区域的前count个字节查找字符ch，当第一次遇到字符ch时停止查找。如果成功，返回指向字符ch的指针；否则返回NULL。

*/

void * my_memchr(const void * buffer,int ch,int count)

{

while ( count && (*(unsigned char *)buffer != (unsigned char)ch) )

{

buffer = (unsigned char *)buffer + 1;

count--;

}

return(count ? (void *)buffer : NULL);

}
/************************************************************************/
/* 字符串函数memcmp
原型：extern int memcmp(void *buf1, void *buf2, unsigned int count);
功能：比较内存区域buf1和buf2的前count个字节
说明：当buf1<buf2时，返回值<0 　
　 当buf1=buf2时，返回值=0 　　
当buf1>buf2时，返回值>0 */

源程序：

int memcmp(const void * cs,const void * ct,size_t count)
{
const unsigned char *su1, *su2;
int res = 0;

for( su1 = cs, su2 = ct; 0 < count; ++su1, ++su2, count--)
if ((res = *su1 - *su2) != 0)
break;
return res;
}

/************************************************************************/

附上函数zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &r1, &n, &r2, &m)

其中ss的含义在以下类型表格中说明，

类型说明见下表：

Boolean	b	zend_bool
Long	l	long
Double	d	double
String	s	char*, int
Resource	r	zval*
Array	a	zval*
Object	o	zval*
zval	z	zval*

由此可见如果类型为string的话，那么需要一个字符串的指针和一个int值。

另注释：转载自五四陈科学院[http://www.54chen.com]中TSRMLS_CC的含义，请参考以下文章：http://bbs.phpchina.com/thread-185497-1-1.html；