clones/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2024-09-22 10:27:25 +00:00
Code Issues Packages Projects Releases Wiki Activity
c43c235427
php-src/ext/standard/var.c
Zeev Suraski c43c235427 Don't touch refcount and EA directly
1999-07-09 20:45:55 +00:00

513 lines
13 KiB
C
Raw Blame History

/*
+----------------------------------------------------------------------+
| PHP HTML Embedded Scripting Language Version 3.0 |
+----------------------------------------------------------------------+
| Copyright (c) 1997,1998 PHP Development Team (See Credits file) |
+----------------------------------------------------------------------+
| This program is free software; you can redistribute it and/or modify |
| it under the terms of one of the following licenses: |
| |
| A) the GNU General Public License as published by the Free Software |
| Foundation; either version 2 of the License, or (at your option) |
| any later version. |
| |
| B) the PHP License as published by the PHP Development Team and |
| included in the distribution in the file: LICENSE |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of both licenses referred to here. |
| If you did not, or have any questions about PHP licensing, please |
| contact core@php.net. |
+----------------------------------------------------------------------+
| Authors: Jani Lehtimäki <jkl@njet.net> |
+----------------------------------------------------------------------+
*/
/* {{{ includes
*/
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include "php.h"
#include "php3_string.h"
#include "php3_var.h"
/* }}} */
/* {{{ php3api_var_dump
xmae*/
void php3api_var_dump(pval **struc, int level)
{
ulong index;
char *key;
int i, c = 0;
pval **data;
char buf[512];
switch ((*struc)->type) {
case IS_BOOL:
i = sprintf(buf, "%*cbool(%s)\n", level, ' ', ((*struc)->value.lval?"true":"false"));
PHPWRITE(&buf[1], i - 1);
break;
case IS_LONG:
i = sprintf(buf, "%*cint(%ld)\n", level, ' ', (*struc)->value.lval);
PHPWRITE(&buf[1], i - 1);
break;
case IS_DOUBLE:
i = sprintf(buf, "%*cfloat(%g)\n", level, ' ', (*struc)->value.dval);
PHPWRITE(&buf[1], i - 1);
break;
case IS_STRING:
i = sprintf(buf, "%*cstring(%d) \"", level, ' ', (*struc)->value.str.len);
PHPWRITE(&buf[1], i - 1);
PHPWRITE((*struc)->value.str.val, (*struc)->value.str.len);
strcpy(buf, "\"\n");
PHPWRITE(buf, strlen(buf));
break;
case IS_ARRAY:
i = sprintf(buf, "%*carray(%d) {\n", level, ' ', _php3_hash_num_elements((*struc)->value.ht));
PHPWRITE(&buf[1], i - 1);
goto head_done;
case IS_OBJECT:
i = sprintf(buf, "%*cobject(%d) {\n", level, ' ', _php3_hash_num_elements((*struc)->value.ht));
PHPWRITE(&buf[1], i - 1);
head_done:
_php3_hash_internal_pointer_reset((*struc)->value.ht);
for (;; _php3_hash_move_forward((*struc)->value.ht)) {
if ((i = _php3_hash_get_current_key((*struc)->value.ht, &key, &index)) == HASH_KEY_NON_EXISTANT)
break;
if (c > 0) {
strcpy(buf, "\n");
PHPWRITE(buf, strlen(buf));
}
c++;
if (_php3_hash_get_current_data((*struc)->value.ht, (void **) (&data)) != SUCCESS || !data || (data == struc))
continue;
switch (i) {
case HASH_KEY_IS_LONG:{
pval *d = emalloc(sizeof(pval));
d->type = IS_LONG;
d->value.lval = index;
php3api_var_dump(&d, level + 2);
efree(d);
}
break;
case HASH_KEY_IS_STRING:{
pval *d = emalloc(sizeof(pval));
d->type = IS_STRING;
d->value.str.val = key;
d->value.str.len = strlen(key);
php3api_var_dump(&d, level + 2);
efree(key);
efree(d);
}
break;
}
php3api_var_dump(data, level + 2);
}
i = sprintf(buf, "%*c}\n", level, ' ');
PHPWRITE(&buf[1], i - 1);
break;
default:
i = sprintf(buf, "%*ci:0\n", level, ' ');
PHPWRITE(&buf[1], i - 1);
}
}
/* }}} */
/* {{{ php3api_var_dump */
PHP_FUNCTION(var_dump)
{
pval *struc;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &struc) == FAILURE) {
WRONG_PARAM_COUNT;
}
php3api_var_dump(&struc, 1);
}
/* }}} */
/* {{{ php3api_var_dump */
#define STR_CAT(P,S,I) {\
pval *__p = (P);\
ulong __i = __p->value.str.len;\
__p->value.str.len += (I);\
if (__p->value.str.val) {\
__p->value.str.val = (char *)erealloc(__p->value.str.val, __p->value.str.len + 1);\
} else {\
__p->value.str.val = emalloc(__p->value.str.len + 1);\
*__p->value.str.val = 0;\
}\
strcat(__p->value.str.val + __i, (S));\
}
/* }}} */
/* {{{ php3api_var_dump */
void php3api_var_serialize(pval *buf, pval **struc)
{
char s[256];
ulong slen;
int i, ch;
switch ((*struc)->type) {
case IS_BOOL:
slen = sprintf(s, "b:%ld;", (*struc)->value.lval);
STR_CAT(buf, s, slen);
return;
case IS_LONG:
slen = sprintf(s, "i:%ld;", (*struc)->value.lval);
STR_CAT(buf, s, slen);
return;
case IS_DOUBLE:
slen = sprintf(s, "d:%g;", (*struc)->value.dval);
STR_CAT(buf, s, slen);
return;
case IS_STRING:{
char *p;
i = buf->value.str.len;
slen = sprintf(s, "s:%d:\"", (*struc)->value.str.len);
STR_CAT(buf, s, slen + (*struc)->value.str.len + 2);
p = buf->value.str.val + i + slen;
if ((*struc)->value.str.len > 0) {
memcpy(p, (*struc)->value.str.val, (*struc)->value.str.len);
p += (*struc)->value.str.len;
}
*p++ = '\"';
*p++ = ';';
*p = 0;
}
return;
case IS_ARRAY:
ch = 'a';
i = _php3_hash_num_elements((*struc)->value.ht);
slen = sprintf(s, "%c:%d:{", ch, i);
STR_CAT(buf, s, slen);
if (i > 0) {
char *key;
pval **data,*d;
ulong index;
_php3_hash_internal_pointer_reset((*struc)->value.ht);
for (;; _php3_hash_move_forward((*struc)->value.ht)) {
if ((i = _php3_hash_get_current_key((*struc)->value.ht, &key, &index)) == HASH_KEY_NON_EXISTANT) {
break;
}
if (_php3_hash_get_current_data((*struc)->value.ht, (void **) (&data)) !=
SUCCESS || !data || ((*data) == (*struc))) {
continue;
}
switch (i) {
case HASH_KEY_IS_LONG:
d = emalloc(sizeof(pval));
d->type = IS_LONG;
d->value.lval = index;
php3api_var_serialize(buf, &d);
efree(d);
break;
case HASH_KEY_IS_STRING:
d = emalloc(sizeof(pval));
d->type = IS_STRING;
d->value.str.val = key;
d->value.str.len = strlen(key);
php3api_var_serialize(buf, &d);
efree(key);
efree(d);
break;
}
php3api_var_serialize(buf, data);
}
}
STR_CAT(buf, "}", 1);
return;
case IS_OBJECT:
i = zend_hash_num_elements((*struc)->value.obj.properties);
slen = sprintf(s, "o:%d:{", i);
STR_CAT(buf, s, slen);
if (i > 0) {
char *key;
pval **data,*d;
ulong index;
zend_hash_internal_pointer_reset((*struc)->value.obj.properties);
for (;; _php3_hash_move_forward((*struc)->value.obj.properties)) {
if ((i = _php3_hash_get_current_key((*struc)->value.obj.properties, &key, &index)) == HASH_KEY_NON_EXISTANT) {
break;
}
if (_php3_hash_get_current_data((*struc)->value.obj.properties, (void **)
(&data)) != SUCCESS || !data || ((*data) == (*struc))) {
continue;
}
switch (i) {
case HASH_KEY_IS_LONG:
d = emalloc(sizeof(pval));
d->type = IS_LONG;
d->value.lval = index;
php3api_var_serialize(buf, &d);
efree(d);
break;
case HASH_KEY_IS_STRING:
d = emalloc(sizeof(pval));
d->type = IS_STRING;
d->value.str.val = key;
d->value.str.len = strlen(key);
php3api_var_serialize(buf, &d);
efree(key);
efree(d);
break;
}
php3api_var_serialize(buf, data);
}
}
STR_CAT(buf, "}", 1);
break;
default:
STR_CAT(buf, "i:0;", 4);
return;
}
}
/* }}} */
/* {{{ php3api_var_dump */
int php3api_var_unserialize(pval **rval, const char **p, const char *max)
{
const char *q;
char *str;
int i;
char cur;
switch (cur = **p) {
case 'b': /* bool */
case 'i':
if (*((*p) + 1) != ':') {
return 0;
}
q = *p;
while (**p && **p != ';') {
(*p)++;
}
if (**p != ';') {
return 0;
}
(*p)++;
if (cur == 'b') {
(*rval)->type = IS_BOOL;
} else {
(*rval)->type = IS_LONG;
}
INIT_PZVAL(*rval);
(*rval)->value.lval = atol(q + 2);
return 1;
case 'd':
if (*((*p) + 1) != ':') {
return 0;
}
q = *p;
while (**p && **p != ';') {
(*p)++;
}
if (**p != ';') {
return 0;
}
(*p)++;
(*rval)->type = IS_DOUBLE;
INIT_PZVAL(*rval);
(*rval)->value.dval = atof(q + 2);
return 1;
case 's':
if (*((*p) + 1) != ':') {
return 0;
}
(*p) += 2;
q = *p;
while (**p && **p != ':') {
(*p)++;
}
if (**p != ':') {
return 0;
}
i = atoi(q);
if (i < 0 || (*p + 3 + i) > max || *((*p) + 1) != '\"' ||
*((*p) + 2 + i) != '\"' || *((*p) + 3 + i) != ';') {
return 0;
}
(*p) += 2;
str = emalloc(i + 1);
if (i > 0) {
memcpy(str, *p, i);
}
str[i] = 0;
(*p) += i + 2;
(*rval)->type = IS_STRING;
(*rval)->value.str.val = str;
(*rval)->value.str.len = i;
INIT_PZVAL(*rval);
return 1;
case 'a':
(*rval)->type = IS_ARRAY;
INIT_PZVAL(*rval);
(*p) += 2;
i = atoi(*p);
(*rval)->value.ht = (HashTable *) emalloc(sizeof(HashTable));
_php3_hash_init((*rval)->value.ht, i + 1, NULL, PVAL_PTR_DTOR, 0);
while (**p && **p != ':') {
(*p)++;
}
if (**p != ':' || *((*p) + 1) != '{') {
return 0;
}
for ((*p) += 2; **p && **p != '}' && i > 0; i--) {
pval *key = emalloc(sizeof(pval));
pval *data = emalloc(sizeof(pval));
if (!php3api_var_unserialize(&key, p, max)) {
efree(key);
efree(data);
return 0;
}
if (!php3api_var_unserialize(&data, p, max)) {
pval_destructor(key);
efree(key);
efree(data);
return 0;
}
switch (key->type) {
case IS_LONG:
_php3_hash_index_update((*rval)->value.ht, key->value.lval, &data, sizeof(data), NULL);
break;
case IS_STRING:
_php3_hash_add((*rval)->value.ht, key->value.str.val, key->value.str.len + 1, &data, sizeof(data), NULL);
break;
}
pval_destructor(key);
efree(key);
}
return *((*p)++) == '}';
case 'o':
(*rval)->type = IS_OBJECT;
INIT_PZVAL(*rval);
(*p) += 2;
i = atoi(*p);
(*rval)->value.obj.properties = (HashTable *) emalloc(sizeof(HashTable));
_php3_hash_init((*rval)->value.obj.properties, i + 1, NULL, PVAL_PTR_DTOR, 0);
while (**p && **p != ':') {
(*p)++;
}
if (**p != ':' || *((*p) + 1) != '{') {
return 0;
}
for ((*p) += 2; **p && **p != '}' && i > 0; i--) {
pval *key = emalloc(sizeof(pval));
pval *data = emalloc(sizeof(pval));
if (!php3api_var_unserialize(&key, p, max)) {
efree(key);
efree(data);
return 0;
}
if (!php3api_var_unserialize(&data, p, max)) {
pval_destructor(key);
efree(key);
efree(data);
return 0;
}
switch (key->type) {
case IS_LONG:
_php3_hash_index_update((*rval)->value.obj.properties, key->value.lval, &data, sizeof(data), NULL);
break;
case IS_STRING:
_php3_hash_add((*rval)->value.obj.properties, key->value.str.val, key->value.str.len + 1, &data, sizeof(data), NULL);
break;
}
pval_destructor(key);
efree(key);
}
return *((*p)++) == '}';
default:
return 0;
}
}
/* }}} */
/* {{{ proto string serialize(mixed variable)
Returns a string representation of variable (which can later be unserialized) */
PHP_FUNCTION(serialize)
{
pval *struc;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &struc) == FAILURE) {
WRONG_PARAM_COUNT;
}
return_value->type = IS_STRING;
return_value->value.str.val = NULL;
return_value->value.str.len = 0;
php3api_var_serialize(return_value, &struc);
}
/* }}} */
/* {{{ proto mixed unserialize(string variable_representation)
Takes a string representation of variable and recreates it */
PHP_FUNCTION(unserialize)
{
pval *buf;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &buf) == FAILURE) {
WRONG_PARAM_COUNT;
}
if (buf->type == IS_STRING) {
const char *p = buf->value.str.val;
if (!php3api_var_unserialize(&return_value, &p, p + buf->value.str.len)) {
RETURN_FALSE;
}
} else {
RETURN_FALSE;
}
}
/* }}} */
/*
* Local variables:
* tab-width: 4
* c-basic-offset: 4
* End:
*/
Reference in New Issue View Git Blame Copy Permalink