+#define http_url_from_struct(u, ht) _http_url_from_struct((u), (ht) TSRMLS_CC)
+static inline php_url *_http_url_from_struct(php_url *url, HashTable *ht TSRMLS_DC)
+{
+ zval **e;
+
+ if (!url) {
+ url = ecalloc(1, sizeof(php_url));
+ }
+
+ if ((SUCCESS == zend_hash_find(ht, "scheme", sizeof("scheme"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->scheme = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if ((SUCCESS == zend_hash_find(ht, "user", sizeof("user"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->user = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if ((SUCCESS == zend_hash_find(ht, "pass", sizeof("pass"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->pass = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if ((SUCCESS == zend_hash_find(ht, "host", sizeof("host"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->host = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if ((SUCCESS == zend_hash_find(ht, "path", sizeof("path"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->path = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if ((SUCCESS == zend_hash_find(ht, "query", sizeof("query"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->query = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if ((SUCCESS == zend_hash_find(ht, "fragment", sizeof("fragment"), (void *) &e))
+ && (Z_TYPE_PP(e) == IS_STRING) && Z_STRLEN_PP(e)) {
+ url->fragment = estrndup(Z_STRVAL_PP(e), Z_STRLEN_PP(e));
+ }
+ if (SUCCESS == zend_hash_find(ht, "port", sizeof("port"), (void *) &e)) {
+ if (Z_TYPE_PP(e) == IS_LONG) {
+ url->port = (unsigned short) Z_LVAL_PP(e);
+ } else {
+ zval *o = *e;
+
+ convert_to_long_ex(e);
+ url->port = (unsigned short) Z_LVAL_PP(e);
+ if (o != *e) zval_ptr_dtor(e);
+ }
+ }
+
+ return url;
+}
+
+#define http_url_tostruct(u, strct) _http_url_tostruct((u), (strct) TSRMLS_CC)
+static inline HashTable *_http_url_tostruct(php_url *url, zval *strct TSRMLS_DC)
+{
+ zval arr;
+
+ if (strct) {
+ switch (Z_TYPE_P(strct)) {
+ default:
+ zval_dtor(strct);
+ array_init(strct);
+ case IS_ARRAY:
+ case IS_OBJECT:
+ INIT_ZARR(arr, HASH_OF(strct));
+ }
+ } else {
+ INIT_PZVAL(&arr);
+ array_init(&arr);
+ }
+
+ if (url) {
+ if (url->scheme) {
+ add_assoc_string(&arr, "scheme", url->scheme, 1);
+ }
+ if (url->user) {
+ add_assoc_string(&arr, "user", url->user, 1);
+ }
+ if (url->pass) {
+ add_assoc_string(&arr, "pass", url->pass, 1);
+ }
+ if (url->host) {
+ add_assoc_string(&arr, "host", url->host, 1);
+ }
+ if (url->port) {
+ add_assoc_long(&arr, "port", (long) url->port);
+ }
+ if (url->path) {
+ add_assoc_string(&arr, "path", url->path, 1);
+ }
+ if (url->query) {
+ add_assoc_string(&arr, "query", url->query, 1);
+ }
+ if (url->fragment) {
+ add_assoc_string(&arr, "fragment", url->fragment, 1);
+ }
+ }
+
+ return Z_ARRVAL(arr);
+}
+