php - 编译时将 php5 模块移植到 php 7 和 zend_string 问题

Question

我正在将 php5 移植到 php7，但不明白如何正确使用 zend_string，因为它在编译时给我错误。我关注了phpng guide关于 php7 的变化。大多数功能我都可以轻松移植，但这个功能让我很头疼。

模块的 php5 版本如下所示:

PHP_FUNCTION(swe_houses)
{
char *arg = NULL;
int hsys_len, rc;
char *hsys = NULL;
double tjd_ut, geolat, geolon;
double cusps[37], ascmc[10]; 
int i, houses;
zval *cusps_arr, *ascmc_arr;

if(ZEND_NUM_ARGS() != 4) WRONG_PARAM_COUNT;

if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ddds",
        &tjd_ut, &geolat, &geolon, &hsys, &hsys_len) == FAILURE) {
    return;
}
if (hsys_len < 1)
    return;

rc = swe_houses(tjd_ut, geolat, geolon, hsys[0], cusps, ascmc);

/* create 2 index array, and 1 assoc array */
array_init(return_value);

MAKE_STD_ZVAL(cusps_arr);
array_init(cusps_arr);

if (hsys[0] == 'G')
    houses = 37;
else
    houses = 13;

for(i = 0; i < houses; i++)
    add_index_double(cusps_arr, i, cusps[i]);

MAKE_STD_ZVAL(ascmc_arr);
array_init(ascmc_arr);
for(i = 0; i < 10; i++)
    add_index_double(ascmc_arr, i, ascmc[i]);

add_assoc_zval(return_value, "cusps", cusps_arr);
add_assoc_zval(return_value, "ascmc", ascmc_arr);
add_assoc_long(return_value, "rc", rc);
}

因此指南说我需要将“char *hsys”替换为“zend_string *hsys = null”。并将“MAKE_STD_ZVAL”函数替换为“ZVAL_NEW_ARR”。在 zend_parse_parameters 函数中，我将“s”参数更改为“S”。

所以最终我将代码更改为如下所示:

PHP_FUNCTION(swe_houses)
{
zend_string *arg = NULL;
size_t hsys_len, rc;
zend_string *hsys = NULL;
double tjd_ut, geolat, geolon;
double cusps[37], ascmc[10]; 
size_t i, houses;
zval *cusps_arr, *ascmc_arr;

if(ZEND_NUM_ARGS() != 4) WRONG_PARAM_COUNT;

if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "dddS",
        &tjd_ut, &geolat, &geolon, &hsys, &hsys_len) == FAILURE) {
    return;
}
if (hsys_len < 1)
    return;

rc = swe_houses(tjd_ut, geolat, geolon, hsys[0], cusps, ascmc);

/* create 2 index array, and 1 assoc array */
array_init(return_value);

/*******************************/
/*      removed for php 7      */
/*   MAKE_STD_ZVAL(cusps_arr); */
/*******************************/

ZVAL_NEW_ARR(cusps_arr);
array_init(cusps_arr);

if (hsys[0] == 'G')
    houses = 37;
else
    houses = 13;

for(i = 0; i < houses; i++)
    add_index_double(cusps_arr, i, cusps[i]);

/*******************************/
/*      removed for php 7      */   
/*    MAKE_STD_ZVAL(ascmc_arr); */
/*******************************/

ZVAL_NEW_ARR(ascmc_arr);
array_init(ascmc_arr);


for(i = 0; i < 10; i++)
    add_index_double(ascmc_arr, i, ascmc[i]);

add_assoc_zval(return_value, "cusps", cusps_arr);
add_assoc_zval(return_value, "ascmc", ascmc_arr);
add_assoc_long(return_value, "rc", rc);
}

但编译时出现以下错误:

/home/hermes/php-sweph/latest/php-sweph/sweph.c:926:42: error:   
incompatible type for argument 4 of ‘swe_houses’
rc = swe_houses(tjd_ut, geolat, geolon, hsys[0], cusps, ascmc);
                                      ^
In file included from /home/hermes/php-sweph/latest/php- 
sweph/sweph.c:23:0:

/usr/local/include/swephexp.h:742:16: note: expected ‘int’ but argument is       

of type ‘zend_string {aka struct _zend_string}’
ext_def( int ) swe_houses(
            ^
/home/hermes/php-sweph/latest/php-sweph/sweph.c:939:14: error: invalid    
operands to binary == (have ‘zend_string {aka struct _zend_string}’ and        
‘int’)
if (hsys[0] == 'G')

Answer 1

首先，zend_string 根本不像char* 或char[]，因此您不能简单地通过引用来访问元素一个索引。它是一个 struct 而不是数组。

zend_string 是这样的:

struct _zend_string {
    zend_refcounted_h gc;
    zend_ulong        h;                /* hash value */
    size_t            len;
    char              val[1];
};

我要做的是将 hsys 改回 char* 以便您可以使用常规字符串函数并像数组一样引用元素。

这是我认为可行的示例，我将评论我对其所做的更改。

PHP_FUNCTION(swe_houses) {
    char *arg = NULL;                 /* char */
    size_t hsys_len, rc;
    char *hsys = NULL;                /* char */
    double tjd_ut, geolat, geolon;
    double cusps[37], ascmc[10]; 
    size_t i, houses;
    zval cusps_arr, ascmc_arr;        /* removed pointer */

    if(ZEND_NUM_ARGS() != 4) WRONG_PARAM_COUNT;

    if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ddds",
        &tjd_ut, &geolat, &geolon, &hsys, &hsys_len) == FAILURE) {
        return;
    }
    if (hsys_len < 1)
        return;

    rc = swe_houses(tjd_ut, geolat, geolon, hsys[0], cusps, ascmc);

    /* create 2 index array, and 1 assoc array */
    array_init(return_value);

    /* ZVAL_NEW_ARR(cusps_arr); unneeded */
    array_init(&cusps_arr); /* added & */

    if (hsys[0] == 'G')
        houses = 37;
    else
        houses = 13;

    for(i = 0; i < houses; i++)
        add_index_double(&cusps_arr, i, cusps[i]); /* added & */

    /* ZVAL_NEW_ARR(ascmc_arr); unneeded */
    array_init(&ascmc_arr); /* added & */


    for(i = 0; i < 10; i++)
        add_index_double(&ascmc_arr, i, ascmc[i]); /* added & */

    /* this may cause issues, not sure though */
    add_assoc_zval(return_value, "cusps", &cusps_arr); /* added & */
    add_assoc_zval(return_value, "ascmc", &ascmc_arr); /* added & */
    add_assoc_long(return_value, "rc", rc);
}