--- basic_functions.orig.c Tue Apr 25 12:28:28 2000 +++ basic_functions.c Tue Apr 25 12:28:28 2000 @@ -242,6 +242,7 @@ PHP_FE(number_format, NULL) PHP_FE(ip2long, NULL) PHP_FE(long2ip, NULL) + PHP_FE(times, NULL) PHP_FE(getenv, NULL) #ifdef HAVE_PUTENV @@ -766,6 +767,40 @@ RETURN_STRING (inet_ntoa(myaddr), 1); } /* }}} */ + + +PHP_FUNCTION(times) +{ + zval** expr , **num; + char* retstr; + long i = 0; + long bytes; + + if ( ARG_COUNT(ht) != 2 || zend_get_parameters_ex ( 2 , + &expr , &num ) == FAILURE ) + { + WRONG_PARAM_COUNT; + } + + convert_to_string_ex ( expr ); + convert_to_long_ex ( num ); + + if ( (*expr) -> value.str.len < 1 || (*num)->value.lval < 1 ) + { + RETURN_FALSE; + } + + bytes = (*expr) -> value.str.len * (*num) -> value.lval + 1; + retstr = emalloc ( bytes ); + + while ( i++ < (*num)->value.lval ) + { + strcat ( retstr , (*expr) -> value.str.val ); + } + + RETVAL_STRINGL(retstr,bytes,1); + efree (retstr); +} /********************