projects / awesomized / ext-ion / blob
? search:
summary | shortlog | log | commit | commitdiff | tree | github
history | raw | HEAD
remove collections, which are pretty low level
[awesomized/ext-ion] / ion_private.h
1 /*
2 +--------------------------------------------------------------------+
3 | PECL :: ion |
4 +--------------------------------------------------------------------+
5 | Redistribution and use in source and binary forms, with or without |
6 | modification, are permitted provided that the conditions mentioned |
7 | in the accompanying LICENSE file are met. |
8 +--------------------------------------------------------------------+
9 | Copyright (c) 2021, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
11 */
12
13 #include "php.h"
14 #include "ext/date/php_date.h"
15
16 #define DECNUMDIGITS 34 /* DECQUAD_Pmax */
17 #include "ionc/ion.h"
18
19 #define PHP_ION_SYMBOL_TABLE_VERSION 1
20 #define PHP_ION_SYMBOL(c, s) { \
21 { \
22 0, \
23 { sizeof(s)-1, (BYTE *) s }, \
24 { { 0, NULL }, 0 }, \
25 0 \
26 }, \
27 { sizeof(c)-1, (BYTE *) c } \
28 },
29
30 typedef struct php_ion_global_symbol {
31 ION_SYMBOL s;
32 ION_STRING e;
33 } php_ion_global_symbol;
34
35 static php_ion_global_symbol g_sym_tab_php_sym[] = {
36 #define PHP_ION_SYMBOL_PHP (g_sym_tab_php_sym[0]).s
37 PHP_ION_SYMBOL("PHP", "PHP")
38 #define PHP_ION_SYMBOL_REFERENCE (g_sym_tab_php_sym[1]).s
39 PHP_ION_SYMBOL("Reference", "R")
40 #define PHP_ION_SYMBOL_BACKREF (g_sym_tab_php_sym[2]).s
41 PHP_ION_SYMBOL("Backref", "r")
42 #define PHP_ION_SYMBOL_PROPERTY (g_sym_tab_php_sym[3]).s
43 PHP_ION_SYMBOL("Property", "p")
44 #define PHP_ION_SYMBOL_CLASS_OBJECT (g_sym_tab_php_sym[4]).s
45 PHP_ION_SYMBOL("ClassObject", "c")
46 #define PHP_ION_SYMBOL_CUSTOM_OBJECT (g_sym_tab_php_sym[5]).s
47 PHP_ION_SYMBOL("CustomObject", "C")
48 #define PHP_ION_SYMBOL_OBJECT (g_sym_tab_php_sym[6]).s
49 PHP_ION_SYMBOL("Object", "o")
50 #define PHP_ION_SYMBOL_MAGIC_OBJECT (g_sym_tab_php_sym[7]).s
51 PHP_ION_SYMBOL("MagicObject", "O")
52 #define PHP_ION_SYMBOL_SERIALIZEABLE (g_sym_tab_php_sym[8]).s
53 PHP_ION_SYMBOL("Serializable", "S")
54 #define PHP_ION_SYMBOL_ENUM (g_sym_tab_php_sym[9]).s
55 PHP_ION_SYMBOL("Enum", "E")
56 {{0}, {0}}
57 };
58 #undef PHP_ION_SYMBOL
59
60 static ION_SYMBOL_TABLE *g_sym_tab_php;
61
62 /* [SID => STRING, STRING => SID] */
63 static HashTable g_sym_hash;
64 /* [enum_case_name => SID] */
65 static HashTable g_sym_map;
66
67 #define ION_SYS_SYMBOL_SYMBOL_TABLE \
68 ION_SYS_SYMBOL_ION_SYMBOL_TABLE
69 #define g_sym_add(enum_name, c_name) do { \
70 g_sym_hash_add(ION_SYS_SID_ ## c_name, ION_SYS_SYMBOL_ ## c_name, ION_SYS_STRLEN_ ## c_name); \
71 g_sym_map_add(ION_SYS_SID_ ## c_name, enum_name, sizeof(enum_name)-1); \
72 } while (0)
73
74 static inline void g_sym_hash_add(int sid, const char *str, size_t len)
75 {
76 zval zl, zs;
77 ZVAL_LONG(&zl, sid);
78 ZVAL_STR(&zs, zend_string_init_interned(str, len ,1));
79 zend_hash_add(&g_sym_hash, Z_STR(zs), &zl);
80 zend_hash_index_add(&g_sym_hash, sid, &zs);
81 }
82
83 static inline void g_sym_map_add(int sid, const char *str, size_t len)
84 {
85 zval zv;
86 ZVAL_LONG(&zv, sid);
87 zend_hash_str_add(&g_sym_map, str, len, &zv);
88 }
89
90 static inline int g_sym_init(void)
91 {
92 zend_hash_init(&g_sym_hash, 0, NULL, NULL, 1);
93 zend_hash_init(&g_sym_map, 0, NULL, NULL, 1);
94
95 g_sym_hash_add(0, ZEND_STRL(""));
96 g_sym_map_add(0, ZEND_STRL(""));
97 g_sym_add("Ion", ION);
98 g_sym_add("Ivm_1_0", IVM);
99 g_sym_add("IonSymbolTable", SYMBOL_TABLE);
100 g_sym_add("Name", NAME);
101 g_sym_add("Version", VERSION);
102 g_sym_add("Imports", IMPORTS);
103 g_sym_add("Symbols", SYMBOLS);
104 g_sym_add("MaxId", MAX_ID);
105 g_sym_add("SharedSymbolTable", SHARED_SYMBOL_TABLE);
106
107 int sys_max_id = ION_SYS_SID_SHARED_SYMBOL_TABLE;
108
109 if (IERR_OK != ion_symbol_table_open_with_type(&g_sym_tab_php, NULL, ist_SHARED)) {
110 return FAILURE;
111 }
112 php_ion_global_symbol *ptr = g_sym_tab_php_sym;
113 ion_symbol_table_set_version(g_sym_tab_php, PHP_ION_SYMBOL_TABLE_VERSION);
114 ion_symbol_table_set_name(g_sym_tab_php, &ptr->s.value);
115 while (ptr->e.value) {
116 ion_symbol_table_add_symbol(g_sym_tab_php, &ptr->s.value, &ptr->s.sid);
117 g_sym_hash_add(sys_max_id + ptr->s.sid, (const char *) ptr->s.value.value, ptr->s.value.length);
118 g_sym_map_add(sys_max_id + ptr->s.sid, (const char *) ptr->e.value, ptr->e.length);
119 ++ptr;
120 }
121 ion_symbol_table_lock(g_sym_tab_php);
122 return SUCCESS;
123 }
124
125 typedef struct php_ion_serializer {
126 ION_WRITER *writer;
127 ION_WRITER_OPTIONS *options;
128 smart_str *buffer;
129
130 zend_string *call_custom;
131 zend_bool call_magic;
132 zend_bool multi_seq;
133
134 uint32_t level;
135 HashTable *ids;
136 HashTable *tmp;
137 } php_ion_serializer;
138
139 typedef struct php_ion_annotaions {
140 uint8_t shared_symtab:1;
141 uint8_t backref:1;
142 uint8_t makeref:1;
143 uint8_t object_prop:1;
144 uint8_t object_type;
145 zend_string *object_class;
146 zend_string *property_class;
147 } php_ion_annotations;
148
149 typedef struct php_ion_unserializer {
150 ION_READER *reader;
151 ION_READER_OPTIONS *options;
152 ION_TYPE type;
153
154 zend_string *call_custom;
155 zend_bool call_magic;
156 zend_bool multi_seq;
157
158 uint32_t level;
159 HashTable *ids;
160 HashTable *tmp;
161 HashTable *addref;
162
163 php_ion_annotations annotations;
164 } php_ion_unserializer;
165
166 ZEND_BEGIN_MODULE_GLOBALS(ion)
167
168 struct {
169 decContext ctx;
170 ION_DECIMAL zend_max;
171 ION_DECIMAL zend_min;
172 } decimal;
173
174 struct {
175 HashTable cache;
176 } symbol;
177
178 php_ion_serializer serializer;
179 php_ion_unserializer unserializer;
180
181 struct {
182 HashTable serializer[2];
183 HashTable unserializer[3];
184 } _ht;
185
186 ZEND_END_MODULE_GLOBALS(ion);
187
188 #ifdef ZTS
189 # define php_ion_globals (*((zend_ion_globals *) (*((void ***) tsrm_get_ls_cache()))[TSRM_UNSHUFFLE_RSRC_ID(ion_globals_id)]))
190 #else
191 # define php_ion_globals ion_globals
192 #endif
193
194 ZEND_DECLARE_MODULE_GLOBALS(ion);
195
196 static zend_class_entry
197 *ce_Catalog,
198 *ce_Decimal,
199 *ce_Decimal_Context,
200 *ce_Decimal_Context_Rounding,
201 *ce_LOB,
202 *ce_Reader,
203 *ce_Reader_Options,
204 *ce_Reader_Reader,
205 *ce_Reader_Buffer,
206 *ce_Reader_Stream,
207 *ce_Reader_Buffer_Reader,
208 *ce_Reader_Stream_Reader,
209 *ce_Serializer,
210 *ce_Serializer_PHP,
211 *ce_Symbol,
212 *ce_Symbol_ImportLocation,
213 *ce_Symbol_Enum,
214 *ce_Symbol_Table,
215 *ce_Symbol_Table_Local,
216 *ce_Symbol_Table_PHP,
217 *ce_Symbol_Table_Shared,
218 *ce_Symbol_Table_System,
219 *ce_Timestamp,
220 *ce_Timestamp_Precision,
221 *ce_Type,
222 *ce_Unserializer,
223 *ce_Unserializer_PHP,
224 *ce_Writer,
225 *ce_Writer_Options,
226 *ce_Writer_Buffer,
227 *ce_Writer_Buffer_Writer,
228 *ce_Writer_Stream,
229 *ce_Writer_Stream_Writer,
230 *ce_Writer_Writer
231 ;
232
233 static inline void php_ion_globals_symbols_init(void)
234 {
235 zend_hash_init(&php_ion_globals.symbol.cache, 0, NULL, ZVAL_PTR_DTOR, 0);
236 }
237
238 static inline void php_ion_globals_symbols_dtor(void)
239 {
240 zend_hash_destroy(&php_ion_globals.symbol.cache);
241 }
242
243 static inline void php_ion_globals_serializer_init(void)
244 {
245 php_ion_serializer *s = &php_ion_globals.serializer;
246 HashTable *h = php_ion_globals._ht.serializer;
247
248 zend_hash_init(s->tmp = &h[0], 0, NULL, ZVAL_PTR_DTOR, 0);
249 zend_hash_init(s->ids = &h[1], 0, NULL, NULL, 0);
250 }
251
252 static inline uint32_t php_ion_globals_serializer_step(void)
253 {
254 php_ion_serializer *s = &php_ion_globals.serializer;
255 uint32_t level;
256
257 if (!(level = s->level++)) {
258 zend_hash_clean(s->ids);
259 zend_hash_clean(s->tmp);
260 }
261 return level;
262 }
263
264 static inline uint32_t php_ion_globals_serializer_exit(void)
265 {
266 php_ion_serializer *s = &php_ion_globals.serializer;
267
268 ZEND_ASSERT(s->level);
269 if (!--s->level) {
270 zend_hash_clean(s->ids);
271 zend_hash_clean(s->tmp);
272 }
273 return s->level;
274 }
275
276 static inline void php_ion_globals_serializer_dtor(void)
277 {
278 php_ion_serializer *s = &php_ion_globals.serializer;
279
280 zend_hash_destroy(s->tmp);
281 zend_hash_destroy(s->ids);
282 }
283
284 void ZVAL_ADDREF(zval *zv)
285 {
286 if (Z_ISREF_P(zv)) {
287 Z_TRY_ADDREF_P(Z_REFVAL_P(zv));
288 } else {
289 Z_TRY_ADDREF_P(zv);
290 }
291 }
292 static inline void php_ion_globals_unserializer_init(void)
293 {
294 php_ion_unserializer *s = &php_ion_globals.unserializer;
295 HashTable *h = php_ion_globals._ht.unserializer;
296
297 zend_hash_init(s->tmp = &h[0], 0, NULL, ZVAL_PTR_DTOR, 0);
298 zend_hash_init(s->ids = &h[1], 0, NULL, NULL, 0);
299 zend_hash_init(s->addref = &h[2], 0, NULL, ZVAL_ADDREF, 0);
300 }
301
302 static inline void php_ion_globals_unserializer_step(void)
303 {
304 php_ion_unserializer *s = &php_ion_globals.unserializer;
305
306 if (!s->level++) {
307 zend_hash_clean(s->addref);
308 zend_hash_clean(s->ids);
309 zend_hash_clean(s->tmp);
310 }
311 }
312
313 static inline void php_ion_globals_unserializer_exit(void)
314 {
315 php_ion_unserializer *s = &php_ion_globals.unserializer;
316
317 ZEND_ASSERT(s->level);
318 if (!--s->level) {
319 zend_hash_clean(s->addref);
320 zend_hash_clean(s->ids);
321 zend_hash_clean(s->tmp);
322 }
323 }
324
325 static inline void php_ion_globals_unserializer_dtor(void)
326 {
327 php_ion_unserializer *s = &php_ion_globals.unserializer;
328
329 zend_hash_destroy(s->addref);
330 zend_hash_destroy(s->ids);
331 zend_hash_destroy(s->tmp);
332 }
333
334 #define php_ion_decl(type, cname, ...) \
335 static zend_object_handlers oh_ ## cname; \
336 static inline zend_object *create_ion_ ## cname(zend_class_entry *ce) \
337 { \
338 if (!ce) ce = ce_ ## cname; \
339 php_ion_ ## type *o = ecalloc(1, sizeof(*o) + zend_object_properties_size(ce)); \
340 zend_object_std_init(&o->std, ce); \
341 object_properties_init(&o->std, ce); \
342 o->std.handlers = &oh_ ## cname; \
343 return &o->std; \
344 } \
345 static inline void free_ion_ ## cname(zend_object *std) \
346 { \
347 php_ion_ ## type *obj = php_ion_obj(type, std); \
348 __VA_ARGS__; \
349 zend_object_std_dtor(std); \
350 (void) obj; \
351 }
352 #define php_ion_register(type, cname, ...) do { \
353 ce_ ## cname = register_class_ion_ ## cname(__VA_ARGS__); \
354 ce_ ## cname ->create_object = create_ion_ ## cname; \
355 memcpy(&oh_ ## cname, zend_get_std_object_handlers(), sizeof(zend_object_handlers)); \
356 oh_ ## cname .offset = offsetof(php_ion_ ## type, std); \
357 oh_ ## cname .free_obj = free_ion_ ## cname; \
358 } while (0)
359
360 #define php_ion_obj(type, obj) \
361 ((php_ion_ ## type *) (obj ? ((char *)(obj) - XtOffsetOf(php_ion_ ## type, std)) : NULL))
362
363 #define ION_CHECK_RETURN(r, err, ...) do { \
364 iERR __err = err; \
365 if (__err) { \
366 zend_throw_exception_ex(spl_ce_RuntimeException, __err, "%s: %s", ion_error_to_str(__err), #err); \
367 __VA_ARGS__; \
368 return r; \
369 } \
370 } while (0)
371
372 #define ION_CHECK(err, ...) \
373 ION_CHECK_RETURN(, err, __VA_ARGS__)
374
375 #define ION_CATCH(...) do { \
376 if (EG(exception)) { \
377 __VA_ARGS__; \
378 return; \
379 } \
380 } while (0)
381
382 #define PTR_CHECK(ptr, ...) do { \
383 if (!(ptr)) { \
384 zend_throw_error(NULL, "Uninitialized object"); \
385 __VA_ARGS__; \
386 return; \
387 } \
388 } while (0)
389
390 #define OBJ_CHECK(obj, ...) do { \
391 PTR_CHECK(obj, __VA_ARGS__); \
392 PTR_CHECK(*((void **)obj), __VA_ARGS__); \
393 } while (0)
394
395 static inline ION_STRING *ion_string_from_zend(ION_STRING *is, const zend_string *zs)
396 {
397 is->length = zs ? zs->len : 0;
398 is->value = (BYTE *) (zs ? zs->val : NULL);
399 return is;
400 }
401
402 static inline zend_string *zend_string_from_ion(const ION_STRING *s)
403 {
404 return zend_string_init((const char *) s->value, s->length, 0);
405 }
406
407 static inline void update_property_obj(zend_object *obj, const char *n, size_t l, zend_object *p)
408 {
409 zval zobj;
410 ZVAL_OBJ(&zobj, p);
411 zend_update_property(obj->ce, obj, n, l, &zobj);
412 }
413
414 typedef struct php_ion_type {
415 ION_TYPE typ;
416 zend_object std;
417 } php_ion_type;
418
419 php_ion_decl(type, Type);
420
421 #define RETURN_IONTYPE(typ) do { \
422 zend_object *__zo = php_ion_type_fetch(typ); \
423 if (UNEXPECTED(!__zo)) { \
424 RETURN_THROWS(); \
425 } \
426 RETURN_OBJ_COPY(__zo); \
427 } while(0)
428
429 static inline zend_object *php_ion_type_fetch(ION_TYPE typ)
430 {
431 zend_long index = ION_TYPE_INT(typ);
432 zval *ztype = zend_hash_index_find(ce_Type->backed_enum_table, index);
433
434 if (UNEXPECTED(!ztype || Z_TYPE_P(ztype) != IS_STRING)) {
435 zend_value_error(ZEND_LONG_FMT " is not a valid backing value for enum \"%s\"", index, ZSTR_VAL(ce_Type->name));
436 return NULL;
437 }
438 return zend_enum_get_case(ce_Type, Z_STR_P(ztype));
439 }
440
441 typedef struct php_ion_symbol_iloc {
442 ION_SYMBOL_IMPORT_LOCATION loc;
443 zend_string *name;
444 zend_object std;
445 } php_ion_symbol_iloc;
446
447 static inline void php_ion_symbol_iloc_ctor(php_ion_symbol_iloc *obj)
448 {
449 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("location"), obj->loc.location);
450 zend_update_property_str(obj->std.ce, &obj->std, ZEND_STRL("name"), obj->name);
451 ion_string_from_zend(&obj->loc.name, obj->name);
452 }
453
454 static inline void php_ion_symbol_iloc_dtor(php_ion_symbol_iloc *obj)
455 {
456 zend_string_release(obj->name);
457 }
458
459 php_ion_decl(symbol_iloc, Symbol_ImportLocation, php_ion_symbol_iloc_dtor(obj));
460
461 typedef struct php_ion_symbol {
462 ION_SYMBOL sym;
463 zend_string *value;
464 zend_object *iloc, std;
465 } php_ion_symbol;
466
467 static inline int php_ion_symbol_zval_compare(zval *zv1, zval *zv2) {
468 zend_string *zs1 = zval_get_string(zv1);
469 zend_string *zs2 = zval_get_string(zv2);
470
471 if (EG(exception)) {
472 return 0;
473 }
474
475 int result;
476 if (zs1->len > zs2->len) {
477 result = 1;
478 } else if (zs2->len > zs1->len) {
479 result = -1;
480 } else {
481 result = memcmp(zs1->val, zs2->val, zs1->len);
482 }
483 zend_string_release(zs1);
484 zend_string_release(zs2);
485 return result;
486 }
487
488 static inline void php_ion_symbol_ctor(php_ion_symbol *obj)
489 {
490 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("sid"),
491 obj->sym.sid);
492 if (obj->value) {
493 zend_update_property_str(obj->std.ce, &obj->std, ZEND_STRL("value"), obj->value);
494 } else{
495 zend_update_property_null(obj->std.ce, &obj->std, ZEND_STRL("value"));
496 }
497 ion_string_from_zend(&obj->sym.value, obj->value);
498 if (obj->iloc) {
499 update_property_obj(&obj->std, ZEND_STRL("importLocation"), obj->iloc);
500 obj->sym.import_location = php_ion_obj(symbol_iloc, obj->iloc)->loc;
501 } else {
502 zend_update_property_null(obj->std.ce, &obj->std, ZEND_STRL("importLocation"));
503 }
504 }
505
506 static inline void php_ion_symbol_dtor(php_ion_symbol *obj)
507 {
508 if (obj->value) {
509 zend_string_release(obj->value);
510 }
511 }
512
513 static inline void php_ion_symbol_zval(ION_SYMBOL *sym_ptr, zval *return_value)
514 {
515 object_init_ex(return_value, ce_Symbol);
516 php_ion_symbol *sym = php_ion_obj(symbol, Z_OBJ_P(return_value));
517
518 sym->sym.sid = sym_ptr->sid;
519 sym->value = zend_string_from_ion(&sym_ptr->value);
520 if (!ION_SYMBOL_IMPORT_LOCATION_IS_NULL(sym_ptr)) {
521 zval ziloc;
522 object_init_ex(&ziloc, ce_Symbol_ImportLocation);
523 sym->iloc = Z_OBJ(ziloc);
524
525 php_ion_symbol_iloc *iloc = php_ion_obj(symbol_iloc, sym->iloc);
526 iloc->loc.location = sym_ptr->import_location.location;
527 iloc->name = zend_string_from_ion(&sym_ptr->import_location.name);
528
529 php_ion_symbol_iloc_ctor(iloc);
530 }
531
532 php_ion_symbol_ctor(sym);
533
534 if (!ION_SYMBOL_IMPORT_LOCATION_IS_NULL(sym_ptr)) {
535 GC_DELREF(sym->iloc);
536 }
537 }
538
539 static inline zval *php_ion_global_symbol_fetch_by_enum(zend_string *name)
540 {
541 zval *zgs = zend_hash_find(&php_ion_globals.symbol.cache, name);
542 if (!zgs) {
543 zval *zid = zend_hash_find(&g_sym_map, name);
544 if (zid) {
545 zval *zss = zend_hash_index_find(&g_sym_hash, Z_LVAL_P(zid));
546 if (zss) {
547 zval zsym;
548 object_init_ex(&zsym, ce_Symbol);
549 php_ion_symbol *sym = php_ion_obj(symbol, Z_OBJ(zsym));
550 sym->sym.sid = Z_LVAL_P(zid);
551 sym->value = zval_get_string(zss);
552 php_ion_symbol_ctor(sym);
553 zgs = zend_hash_add(&php_ion_globals.symbol.cache, name, &zsym);
554 }
555 }
556 }
557 return zgs;
558 }
559
560 php_ion_decl(symbol, Symbol, php_ion_symbol_dtor(obj));
561
562 typedef struct php_ion_symbol_table {
563 ION_SYMBOL_TABLE *tab;
564 int (*dtor)(ION_SYMBOL_TABLE *);
565 zend_object std;
566 } php_ion_symbol_table;
567
568 static inline void php_ion_symbol_table_ctor(php_ion_symbol_table *obj)
569 {
570 OBJ_CHECK(obj);
571
572 ION_STRING is;
573 if (IERR_OK == ion_symbol_table_get_name(obj->tab, &is)) {
574 zend_update_property_stringl(obj->std.ce, &obj->std, ZEND_STRL("name"), (char *) is.value, is.length);
575 }
576 int32_t iv;
577 if (IERR_OK == ion_symbol_table_get_version(obj->tab, &iv)) {
578 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("version"), iv);
579 }
580 }
581
582 static inline void php_ion_symbol_table_dtor(php_ion_symbol_table *obj)
583 {
584 if (obj->tab) {
585 if (obj->dtor) {
586 obj->dtor(obj->tab);
587 }
588 obj->tab = NULL;
589 }
590 }
591
592 static inline void php_ion_symbol_table_import(php_ion_symbol_table *obj, php_ion_symbol_table *import)
593 {
594 OBJ_CHECK(obj);
595 OBJ_CHECK(import);
596
597 zval tmp;
598 zval *zimports = zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("imports"), 0, &tmp);
599 if (zimports) {
600 zend_ulong idx = (uintptr_t) &import->std.gc;
601 if (!zend_hash_index_exists(Z_ARRVAL_P(zimports), idx)) {
602 ION_CHECK(ion_symbol_table_import_symbol_table(obj->tab, import->tab));
603
604 SEPARATE_ARRAY(zimports);
605 GC_ADDREF(&import->std);
606 add_index_object(zimports, idx, &import->std);
607 zend_update_property(obj->std.ce, &obj->std, ZEND_STRL("imports"), zimports);
608 }
609 }
610 }
611
612 static inline void php_ion_symbol_table_symbol_zval(php_ion_symbol_table *obj, ION_SYMBOL *sym, zval *return_value)
613 {
614 zval tmp;
615 zval *zsyms = zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("symbols"), 0, &tmp);
616 if (zsyms) {
617 zval *zsym = zend_hash_index_find(Z_ARRVAL_P(zsyms), sym->sid);
618 if (zsym) {
619 RETURN_COPY(zsym);
620 }
621 }
622
623 php_ion_symbol_zval(sym, return_value);
624
625 if (zsyms) {
626 SEPARATE_ARRAY(zsyms);
627 ZVAL_ADDREF(return_value);
628 add_index_zval(zsyms, sym->sid, return_value);
629 }
630 }
631
632 php_ion_decl(symbol_table, Symbol_Table, php_ion_symbol_table_dtor(obj));
633
634 typedef struct php_ion_decimal_ctx {
635 decContext ctx;
636 zend_object std;
637 } php_ion_decimal_ctx;
638
639 #define php_ion_decimal_ctx_init_max(c, rounding) \
640 php_ion_decimal_ctx_init((c), DEC_MAX_DIGITS, DEC_MAX_EMAX, DEC_MIN_EMIN, (rounding), false)
641 static inline void php_ion_decimal_ctx_init(decContext *ctx,
642 zend_long digits, zend_long emax, zend_long emin, zend_long round, zend_bool clamp)
643 {
644 memset(ctx, 0, sizeof(*ctx));
645 ctx->digits = digits;
646 ctx->emax = emax;
647 ctx->emin = emin;
648 ctx->round = round;
649 ctx->clamp = clamp;
650 }
651
652 static inline void php_ion_decimal_ctx_ctor(php_ion_decimal_ctx *obj, zend_object *o_round)
653 {
654 if (!obj->ctx.digits) {
655 php_ion_decimal_ctx_init_max(&obj->ctx, DEC_ROUND_HALF_EVEN);
656 }
657 if (o_round) {
658 update_property_obj(&obj->std, ZEND_STRL("round"), o_round);
659 } else {
660 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("round"), obj->ctx.round);
661 }
662 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("digits"), obj->ctx.digits);
663 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("eMax"), obj->ctx.emax);
664 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("eMin"), obj->ctx.emin);
665 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("clamp"), obj->ctx.clamp);
666 }
667
668 php_ion_decl(decimal_ctx, Decimal_Context);
669
670 typedef struct php_ion_decimal {
671 ION_DECIMAL dec;
672 zend_object *ctx, std;
673 } php_ion_decimal;
674
675 static inline void php_ion_decimal_from_zend_long(ION_DECIMAL *dec, decContext *ctx, zend_long num)
676 {
677 if (num <= INT32_MAX && num >= INT32_MIN) {
678 ION_CHECK(ion_decimal_from_int32(dec, num));
679 } else if (num > 0 && num <= UINT32_MAX) {
680 ION_CHECK(ion_decimal_from_uint32(dec, num));
681 } else {
682 ION_INT *iint;
683 ION_CHECK(ion_int_alloc(NULL, &iint));
684 ION_CHECK(ion_int_from_long(iint, num),
685 ion_int_free(iint));
686 /* WATCH OUT: BS API */
687 dec->type = ION_DECIMAL_TYPE_QUAD;
688 ION_CHECK(ion_decimal_from_ion_int(dec, ctx, iint),
689 ion_int_free(iint));
690 ion_int_free(iint);
691 }
692 }
693
694 static inline zend_string *php_ion_decimal_to_string(ION_DECIMAL *dec)
695 {
696 zend_string *zstr = zend_string_alloc(ION_DECIMAL_STRLEN(dec), 0);
697 (void) ion_decimal_to_string(dec, zstr->val);
698 return zend_string_truncate(zstr, strlen(zstr->val), 0);
699 }
700
701 static inline void php_ion_decimal_to_zend_long(ION_DECIMAL *dec, decContext *ctx, zend_long *l)
702 {
703 ION_INT *ii = NULL;
704 ION_CHECK(ion_int_alloc(NULL, &ii));
705 ION_CHECK(ion_decimal_to_ion_int(dec, ctx, ii), ion_int_free(ii));
706 int64_t i64;
707 ION_CHECK(ion_int_to_int64(ii, &i64), ion_int_free(ii));
708 *l = i64;
709 ion_int_free(ii);
710 }
711
712 static inline bool php_ion_decimal_fits_zend_long(php_ion_decimal *obj)
713 {
714 int32_t result;
715
716 if (!ion_decimal_is_integer(&obj->dec)) {
717 return false;
718 }
719
720 result = 1;
721 ion_decimal_compare(&obj->dec, &php_ion_globals.decimal.zend_max, &php_ion_globals.decimal.ctx, &result);
722 if (result == 1) {
723 return false;
724 }
725 result = -1;
726 ion_decimal_compare(&obj->dec, &php_ion_globals.decimal.zend_min, &php_ion_globals.decimal.ctx, &result);
727 if (result == -1) {
728 return false;
729 }
730 return true;
731 }
732
733 static inline void php_ion_decimal_ctor(php_ion_decimal *obj)
734 {
735 if (!obj->ctx) {
736 zval zdc;
737 object_init_ex(&zdc, ce_Decimal_Context);
738 obj->ctx = Z_OBJ(zdc);
739 php_ion_decimal_ctx_ctor(php_ion_obj(decimal_ctx, obj->ctx), NULL);
740 GC_DELREF(obj->ctx);
741 }
742 update_property_obj(&obj->std, ZEND_STRL("context"), obj->ctx);
743
744 if (php_ion_decimal_fits_zend_long(obj)) {
745 zend_long l;
746 php_ion_decimal_to_zend_long(&obj->dec, &php_ion_obj(decimal_ctx, obj->ctx)->ctx, &l);
747 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("number"), l);
748 } else {
749 zend_string *zstr = php_ion_decimal_to_string(&obj->dec);
750 zend_update_property_str(obj->std.ce, &obj->std, ZEND_STRL("number"), zstr);
751 zend_string_release(zstr);
752 }
753 }
754
755 static inline void php_ion_decimal_dtor(php_ion_decimal *obj)
756 {
757 ion_decimal_free(&obj->dec);
758 }
759
760 php_ion_decl(decimal, Decimal, php_ion_decimal_dtor(obj));
761
762 typedef php_date_obj php_ion_timestamp;
763
764 static inline zend_long php_usec_from_ion(const decQuad *frac, decContext *ctx)
765 {
766 if (!ctx) {
767 ctx = &php_ion_globals.decimal.ctx;
768 }
769 decQuad microsecs, result;
770 decQuadMultiply(&result, decQuadFromInt32(&microsecs, 1000000), frac, ctx);
771 return (zend_long) decQuadToUInt32(&result, ctx, DEC_ROUND_HALF_EVEN);
772 }
773
774 static inline decQuad *ion_ts_frac_from_usec(decQuad *frac, zend_long usec, decContext *ctx)
775 {
776 if (!ctx) {
777 ctx = &php_ion_globals.decimal.ctx;
778 }
779 decQuad microsecs, us;
780 return decQuadDivide(frac, decQuadFromInt32(&us, usec), decQuadFromInt32(&microsecs, 1000000), ctx);
781 }
782
783 static inline zend_string *php_dt_format_from_precision(int precision)
784 {
785 switch (precision & 0x7f) {
786 case ION_TS_FRAC:
787 return zend_string_init(ZEND_STRL("c"), 0);
788 case ION_TS_SEC:
789 return zend_string_init(ZEND_STRL("Y-m-d\\TH:i:sP"), 0);
790 case ION_TS_MIN:
791 return zend_string_init(ZEND_STRL("Y-m-d\\TH:iP"), 0);
792 case ION_TS_DAY:
793 return zend_string_init(ZEND_STRL("Y-m-d\\T"), 0);
794 case ION_TS_MONTH:
795 return zend_string_init(ZEND_STRL("Y-m\\T"), 0);
796 case ION_TS_YEAR:
797 return zend_string_init(ZEND_STRL("Y\\T"), 0);
798 default:
799 return zend_string_init(ZEND_STRL("c"), 0);
800 }
801 }
802
803 static inline timelib_time* php_time_from_ion(const ION_TIMESTAMP *ts, decContext *ctx, zend_string **fmt)
804 {
805 timelib_time *time = timelib_time_ctor();
806
807 int precision = ION_TS_FRAC;
808 ion_timestamp_get_precision(ts, &precision);
809 switch (precision) {
810 case ION_TS_FRAC:
811 time->us = php_usec_from_ion(&ts->fraction, ctx);
812 /* fallthrough */
813 case ION_TS_SEC:
814 time->s = ts->seconds;
815 /* fallthrough */
816 case ION_TS_MIN:
817 time->i = ts->minutes;
818 time->h = ts->hours;
819 /* fallthrough */
820 case ION_TS_DAY:
821 time->d = ts->day;
822 /* fallthrough */
823 case ION_TS_MONTH:
824 time->m = ts->month;
825 /* fallthrough */
826 case ION_TS_YEAR:
827 time->y = ts->year;
828 /* fallthrough */
829 default:
830 time->z = ts->tz_offset * 60;
831 if (time->z) {
832 time->zone_type = TIMELIB_ZONETYPE_OFFSET;
833 } else {
834 time->zone_type = TIMELIB_ZONETYPE_ID;
835 time->tz_info = get_timezone_info();
836 }
837 }
838
839 if (fmt) {
840 *fmt = php_dt_format_from_precision(precision);
841 }
842 return time;
843 }
844
845 static inline ION_TIMESTAMP *ion_timestamp_from_php(ION_TIMESTAMP *buf, php_ion_timestamp *ts, decContext *ctx)
846 {
847 memset(buf, 0, sizeof(*buf));
848
849 zval tmp;
850 int precision = Z_LVAL_P(zend_read_property(ts->std.ce, &ts->std, ZEND_STRL("precision"), 0, &tmp));
851
852 if (!precision || precision > ION_TS_FRAC) {
853 zend_throw_exception_ex(spl_ce_InvalidArgumentException, IERR_INVALID_ARG,
854 "Invalid precision (%d) of ion\\Timestamp", precision);
855 } else switch ((buf->precision = precision)) {
856 case ION_TS_FRAC:
857 ion_ts_frac_from_usec(&buf->fraction, ts->time->us, ctx);
858 /* fallthrough */
859 case ION_TS_SEC:
860 buf->seconds = ts->time->s;
861 /* fallthrough */
862 case ION_TS_MIN:
863 buf->minutes = ts->time->i;
864 /* fallthrough */
865 case ION_TS_DAY:
866 buf->hours = ts->time->h;
867 buf->day = ts->time->d;
868 /* fallthrough */
869 case ION_TS_MONTH:
870 buf->month = ts->time->m;
871 /* fallthrough */
872 case ION_TS_YEAR:
873 buf->year = ts->time->y;
874 /* fallthrough */
875 default:
876 buf->tz_offset = ts->time->z / 60;
877 if (buf->tz_offset) {
878 buf->precision |= 0x80;
879 }
880 }
881
882 return buf;
883 }
884
885 static inline void php_ion_timestamp_ctor(php_ion_timestamp *obj, zend_long precision, zend_string *fmt, zend_string *dt, zval *tz)
886 {
887 if (!obj->time) {
888 php_date_initialize(obj, dt ? dt->val : "", dt ? dt->len : 0, fmt ? fmt->val : NULL, tz, PHP_DATE_INIT_CTOR);
889 }
890 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("precision"), precision);
891
892 fmt = php_dt_format_from_precision(precision);
893 zend_update_property_str(obj->std.ce, &obj->std, ZEND_STRL("format"), fmt);
894 zend_string_release(fmt);
895 }
896
897 typedef struct php_ion_catalog {
898 ION_CATALOG *cat;
899 zend_object std;
900 } php_ion_catalog;
901
902 static inline void php_ion_catalog_ctor(php_ion_catalog *obj)
903 {
904 ION_CHECK(ion_catalog_open(&obj->cat));
905 }
906
907 static inline void php_ion_catalog_dtor(php_ion_catalog *obj)
908 {
909 if (obj->cat) {
910 ion_catalog_close(obj->cat);
911 }
912 }
913
914 static inline zend_string *ion_symbol_table_to_key(ION_SYMBOL_TABLE *tab)
915 {
916 int32_t version;
917 ION_STRING is;
918 ION_CHECK_RETURN(NULL, ion_symbol_table_get_name(tab, &is));
919 ION_CHECK_RETURN(NULL, ion_symbol_table_get_version(tab, &version));
920
921 smart_str s = {0};
922 smart_str_appendl(&s, (char *) is.value, is.length);
923 smart_str_appendc(&s, ':');
924 smart_str_append_long(&s, version);
925 smart_str_0(&s);
926
927 return s.s;
928 }
929
930 static inline void php_ion_catalog_add_symbol_table(php_ion_catalog *obj, php_ion_symbol_table *tab)
931 {
932 OBJ_CHECK(obj);
933 OBJ_CHECK(tab);
934
935 zval tmp;
936 zval *ztabs = zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("symbolTables"), 0, &tmp);
937 if (ztabs) {
938 zend_ulong idx = (uintptr_t) &tab->std.gc;
939 if (!zend_hash_index_exists(Z_ARRVAL_P(ztabs), idx)) {
940 zend_string *key = ion_symbol_table_to_key(tab->tab);
941 if (key) {
942 ION_CHECK(ion_catalog_add_symbol_table(obj->cat, tab->tab),
943 zend_string_release(key));
944 SEPARATE_ARRAY(ztabs);
945 GC_ADDREF(&tab->std);
946 add_index_object(ztabs, idx, &tab->std);
947 GC_ADDREF(&tab->std);
948 add_assoc_object_ex(ztabs, key->val, key->len, &tab->std);
949 zend_update_property(obj->std.ce, &obj->std, ZEND_STRL("symbolTables"), ztabs);
950 zend_string_release(key);
951 }
952 }
953 }
954 }
955
956 static inline void php_ion_catalog_symbol_table_zval(php_ion_catalog *obj, ION_SYMBOL_TABLE *tab, zval *return_value)
957 {
958 zend_string *key = ion_symbol_table_to_key(tab);
959 PTR_CHECK(key);
960
961 zval tmp;
962 zval *ztabs = zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("symbolTables"), 0, &tmp);
963 if (ztabs) {
964 zval *ztab = zend_hash_find(Z_ARRVAL_P(ztabs), key);
965 if (ztab) {
966 zend_string_release(key);
967 RETURN_COPY(ztab);
968 }
969 }
970
971 php_error_docref(NULL, E_NOTICE, "Previously unknown ion\\Symbol\\Table encountered: %s", key->val);
972
973 object_init_ex(return_value, ce_Symbol_Table_Shared);
974 php_ion_symbol_table *o_tab = php_ion_obj(symbol_table, Z_OBJ_P(return_value));
975 OBJ_CHECK(o_tab, zend_string_release(key));
976 php_ion_symbol_table_ctor(o_tab);
977
978 if (ztabs) {
979 SEPARATE_ARRAY(ztabs);
980 ZVAL_ADDREF(return_value);
981 add_index_zval(ztabs, (uintptr_t) &o_tab->std.gc, return_value);
982 ZVAL_ADDREF(return_value);
983 add_assoc_zval_ex(ztabs, key->val, key->len, return_value);
984 }
985 zend_string_release(key);
986 }
987
988 php_ion_decl(catalog, Catalog, php_ion_catalog_dtor(obj));
989
990 typedef struct php_ion_reader_options {
991 ION_READER_OPTIONS opt;
992 zend_object *cat, *dec_ctx, *cb, std;
993 } php_ion_reader_options;
994
995 php_ion_decl(reader_options, Reader_Options);
996
997 typedef struct php_ion_reader {
998 ION_READER *reader;
999 ION_TYPE state;
1000 enum {
1001 BUFFER_READER,
1002 STREAM_READER,
1003 } type;
1004 union {
1005 zend_string *buffer;
1006 struct {
1007 php_stream *ptr;
1008 ION_STRING buf;
1009 } stream;
1010 };
1011 zend_object *opt, std;
1012 } php_ion_reader;
1013
1014 static inline iERR php_ion_reader_stream_handler(struct _ion_user_stream *user)
1015 {
1016 php_ion_reader *reader = (php_ion_reader *) user->handler_state;
1017 size_t remaining = 0, spare = reader->stream.buf.length;
1018
1019 if (user->curr && user->limit && (remaining = user->limit - user->curr)) {
1020 memmove(reader->stream.buf.value, user->curr, remaining);
1021 user->limit -= remaining;
1022 spare -= remaining;
1023 } else {
1024 user->curr = user->limit = reader->stream.buf.value;
1025 }
1026
1027 ssize_t read = php_stream_read(reader->stream.ptr, (char *) user->limit, spare);
1028 if (EXPECTED(read > 0)) {
1029 user->limit += read;
1030 return IERR_OK;
1031 }
1032
1033 if (EXPECTED(read == 0)) {
1034 return IERR_EOF;
1035 }
1036
1037 return IERR_READ_ERROR;
1038 }
1039
1040 static inline iERR on_context_change(void *context, ION_COLLECTION *imports)
1041 {
1042 if (context) {
1043 php_ion_reader *obj = php_ion_obj(reader, context);
1044 (void) obj;
1045 }
1046 fprintf(stderr, "%s\n", __FUNCTION__);
1047 return IERR_OK;
1048 }
1049
1050 static ION_READER_CONTEXT_CHANGE_NOTIFIER EMPTY_READER_CHANGE_NOTIFIER = {
1051 on_context_change,
1052 NULL
1053 };
1054
1055 static inline void php_ion_reader_ctor(php_ion_reader *obj)
1056 {
1057 iERR err;
1058 php_ion_reader_options *opt = php_ion_obj(reader_options, obj->opt);
1059
1060 if (opt) {
1061 opt->opt.context_change_notifier.context = obj;
1062 }
1063 if (obj->type == STREAM_READER) {
1064 PTR_CHECK(obj->stream.ptr);
1065 GC_ADDREF(obj->stream.ptr->res);
1066
1067 obj->stream.buf.length = opt && opt->opt.allocation_page_size ? opt->opt.allocation_page_size : 0x10000;
1068 obj->stream.buf.value = emalloc(obj->stream.buf.length);
1069 err = ion_reader_open_stream(&obj->reader, obj, php_ion_reader_stream_handler, opt ? &opt->opt : NULL);
1070
1071 } else {
1072 err = ion_reader_open_buffer(&obj->reader,
1073 (BYTE *) obj->buffer->val, obj->buffer->len,
1074 opt ? &opt->opt : NULL);
1075 }
1076 if (opt) {
1077 opt->opt.context_change_notifier.context = NULL;
1078 }
1079
1080 ION_CHECK(err);
1081 OBJ_CHECK(obj);
1082 }
1083 static inline void php_ion_reader_dtor(php_ion_reader *obj)
1084 {
1085 if (obj->reader) {
1086 ion_reader_close(obj->reader);
1087 }
1088 if (obj->type == STREAM_READER) {
1089 if (obj->stream.buf.value) {
1090 efree(obj->stream.buf.value);
1091 }
1092 if (obj->stream.ptr) {
1093 zend_list_delete(obj->stream.ptr->res);
1094 }
1095 } else {
1096 if (obj->buffer) {
1097 zend_string_release(obj->buffer);
1098 }
1099 }
1100 }
1101
1102 php_ion_decl(reader, Reader_Reader, php_ion_reader_dtor(obj));
1103
1104 typedef struct php_ion_writer_options {
1105 ION_WRITER_OPTIONS opt;
1106 zend_object *cat, *dec_ctx, std;
1107 } php_ion_writer_options;
1108
1109 php_ion_decl(writer_options, Writer_Options);
1110
1111 typedef struct php_ion_writer {
1112 ION_WRITER *writer;
1113 enum {
1114 BUFFER_WRITER,
1115 STREAM_WRITER,
1116 } type;
1117 union {
1118 struct {
1119 zval val;
1120 smart_str str;
1121 } buffer;
1122 struct {
1123 ION_STRING buf;
1124 php_stream *ptr;
1125 } stream;
1126 };
1127 zend_object *opt, std;
1128
1129 } php_ion_writer;
1130
1131 static inline iERR php_ion_writer_stream_handler(struct _ion_user_stream *user)
1132 {
1133 php_ion_writer *writer = (php_ion_writer *) user->handler_state;
1134
1135 if (EXPECTED(user->limit && user->curr)) {
1136 ptrdiff_t len = user->curr - writer->stream.buf.value;
1137 if (len != php_stream_write(writer->stream.ptr, (char *) writer->stream.buf.value, len)) {
1138 return IERR_WRITE_ERROR;
1139 }
1140 }
1141 user->curr = writer->stream.buf.value;
1142 user->limit = writer->stream.buf.value + writer->stream.buf.length;
1143 return IERR_OK;
1144 }
1145
1146 #define REF_STR() do { \
1147 ZVAL_NEW_STR(ref, obj->buffer.str.s); \
1148 GC_ADDREF(obj->buffer.str.s); \
1149 } while (0)
1150
1151 #define NEW_REF_STR() do {\
1152 if (Z_STR_P(ref) != obj->buffer.str.s) { \
1153 zval_ptr_dtor(ref); \
1154 REF_STR(); \
1155 } \
1156 } while(0)
1157
1158 static inline void php_ion_writer_stream_init(php_ion_writer *obj, php_ion_writer_options *opt)
1159 {
1160 PTR_CHECK(obj->stream.ptr);
1161 GC_ADDREF(obj->stream.ptr->res);
1162
1163 obj->stream.buf.length = opt ? opt->opt.allocation_page_size : 0x1000;
1164 obj->stream.buf.value = emalloc(obj->stream.buf.length);
1165 }
1166 static inline void php_ion_writer_buffer_init(php_ion_writer *obj)
1167 {
1168 zval *ref = &obj->buffer.val;
1169 ZVAL_DEREF(ref);
1170
1171 smart_str_alloc(&obj->buffer.str, 0, 0);
1172 smart_str_0(&obj->buffer.str);
1173 REF_STR();
1174 }
1175
1176 static inline void php_ion_writer_buffer_grow(php_ion_writer *obj)
1177 {
1178 zval *ref = &obj->buffer.val;
1179 ZVAL_DEREF(ref);
1180
1181 switch (GC_REFCOUNT(obj->buffer.str.s)) {
1182 case 2:
1183 // nothing to do
1184 break;
1185 case 1:
1186 // we've been separated
1187 GC_ADDREF(obj->buffer.str.s);
1188 break;
1189 default:
1190 // we have to separate
1191 fprintf(stderr, "SEPARATE\n");
1192 obj->buffer.str.s = zend_string_dup(obj->buffer.str.s, 0);
1193 break;
1194 }
1195
1196 zend_string *old = obj->buffer.str.s;
1197 GC_DELREF(old);
1198 smart_str_erealloc(&obj->buffer.str, obj->buffer.str.a << 1);
1199 if (old == obj->buffer.str.s) {
1200 GC_ADDREF(old);
1201 } else if(old == Z_STR_P(ref)) {
1202 ZVAL_NULL(ref);
1203 }
1204
1205 NEW_REF_STR();
1206 }
1207
1208 static inline iERR php_ion_writer_buffer_handler(struct _ion_user_stream *user)
1209 {
1210 php_ion_writer *writer = (php_ion_writer *) user->handler_state;
1211
1212 if (user->curr) {
1213 writer->buffer.str.s->len += user->curr - (BYTE *) &writer->buffer.str.s->val[writer->buffer.str.s->len];
1214 smart_str_0(&writer->buffer.str);
1215 if (user->limit == user->curr) {
1216 php_ion_writer_buffer_grow(writer);
1217 }
1218 }
1219 user->curr = (BYTE *) &writer->buffer.str.s->val[writer->buffer.str.s->len];
1220 user->limit = user->curr + writer->buffer.str.a - writer->buffer.str.s->len;
1221
1222 return IERR_OK;
1223 }
1224
1225 static inline void php_ion_writer_ctor(php_ion_writer *obj)
1226 {
1227 if (obj->opt) {
1228 update_property_obj(&obj->std, ZEND_STRL("options"), obj->opt);
1229 }
1230
1231 php_ion_writer_options *opt = php_ion_obj(writer_options, obj->opt);
1232 ION_STREAM_HANDLER h;
1233 if (obj->type == STREAM_WRITER) {
1234 h = php_ion_writer_stream_handler;
1235 php_ion_writer_stream_init(obj, opt);
1236 } else {
1237 h = php_ion_writer_buffer_handler;
1238 php_ion_writer_buffer_init(obj);
1239 }
1240
1241 ION_CHECK(ion_writer_open_stream(&obj->writer, h, obj, opt ? &opt->opt : NULL));
1242 OBJ_CHECK(obj);
1243 }
1244
1245 static inline void php_ion_writer_dtor(php_ion_writer *obj)
1246 {
1247 if (obj->writer) {
1248 ion_writer_close(obj->writer);
1249 }
1250 if (obj->type == STREAM_WRITER) {
1251 if (obj->stream.buf.value) {
1252 efree(obj->stream.buf.value);
1253 }
1254 if (obj->stream.ptr) {
1255 zend_list_delete(obj->stream.ptr->res);
1256 }
1257 } else {
1258 if (obj->buffer.str.s) {
1259 smart_str_0(&obj->buffer.str);
1260 zend_string_release(obj->buffer.str.s);
1261 }
1262 zval_ptr_dtor(&obj->buffer.val);
1263 }
1264 }
1265
1266 php_ion_decl(writer, Writer_Writer, php_ion_writer_dtor(obj));
1267
1268 typedef struct php_ion_serializer_php {
1269 php_ion_serializer serializer;
1270 zend_object *opt, std;
1271 } php_ion_serializer_php;
1272
1273 static inline void php_ion_serializer_php_ctor(php_ion_serializer_php *ser_obj)
1274 {
1275 php_ion_serializer *global_ser = &php_ion_globals.serializer;
1276 ser_obj->serializer.ids = global_ser->ids;
1277 ser_obj->serializer.tmp = global_ser->tmp;
1278
1279 zend_update_property_bool(ser_obj->std.ce, &ser_obj->std, ZEND_STRL("callMagicSerialize"),
1280 ser_obj->serializer.call_magic);
1281 if (ser_obj->serializer.call_custom) {
1282 zend_update_property_str(ser_obj->std.ce, &ser_obj->std, ZEND_STRL("callCustomSerialize"),
1283 ser_obj->serializer.call_custom);
1284 ser_obj->serializer.call_custom = zend_string_tolower(ser_obj->serializer.call_custom);
1285 } else {
1286 zend_update_property_null(ser_obj->std.ce, &ser_obj->std, ZEND_STRL("callCustomSerialize"));
1287 }
1288 if (!ser_obj->opt) {
1289 ser_obj->opt = create_ion_Writer_Options(NULL);
1290 } else {
1291 GC_ADDREF(ser_obj->opt);
1292 }
1293 ser_obj->serializer.options = &php_ion_obj(writer_options, ser_obj->opt)->opt;
1294 update_property_obj(&ser_obj->std, ZEND_STRL("writerOptions"), ser_obj->opt);
1295 GC_DELREF(ser_obj->opt);
1296 }
1297
1298 static inline void php_ion_serializer_php_dtor(php_ion_serializer_php *obj)
1299 {
1300 if (obj->serializer.call_custom) {
1301 zend_string_release(obj->serializer.call_custom);
1302 }
1303 }
1304
1305 static inline void php_ion_serialize_zval(php_ion_serializer *, zval *);
1306
1307 static inline void php_ion_serialize_struct(php_ion_serializer *ser, zend_array *arr, bool unmangle_props, bool annotate_props)
1308 {
1309 ION_CHECK(ion_writer_start_container(ser->writer, tid_STRUCT));
1310
1311 zval *v;
1312 zend_ulong h;
1313 zend_string *k = NULL;
1314 if (arr) ZEND_HASH_FOREACH_KEY_VAL_IND(arr, h, k, v)
1315 char buf[MAX_LENGTH_OF_LONG + 1];
1316 ION_STRING is;
1317 if (k) {
1318 size_t prop_len;
1319 const char *class_name, *prop_name;
1320 if (unmangle_props && (SUCCESS == zend_unmangle_property_name_ex(k, &class_name, &prop_name, &prop_len)) && class_name) {
1321 if (annotate_props) {
1322 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_PROPERTY));
1323 ION_CHECK(ion_writer_add_annotation(ser->writer, ion_string_assign_cstr(&is, (char *) class_name, prop_name - class_name - 1)));
1324 }
1325 } else {
1326 prop_name = k->val;
1327 prop_len = k->len;
1328 }
1329 ion_string_assign_cstr(&is, (char *) prop_name, prop_len);
1330 } else {
1331 char *end = buf + sizeof(buf) - 1;
1332 char *ptr = zend_print_long_to_buf(end, (zend_long) h);
1333 ion_string_assign_cstr(&is, ptr, end - ptr);
1334 }
1335
1336 // WATCH OUT: field names need to be copied
1337 ION_STRING fn;
1338 ION_CHECK(ion_string_copy_to_owner(ser->writer, &fn, &is));
1339 ION_CHECK(ion_writer_write_field_name(ser->writer, &fn));
1340
1341 php_ion_serialize_zval(ser, v);
1342 ION_CATCH();
1343 ZEND_HASH_FOREACH_END();
1344
1345 ION_CHECK(ion_writer_finish_container(ser->writer));
1346 }
1347
1348 static inline void php_ion_serialize_list(php_ion_serializer *ser, zend_array *arr)
1349 {
1350 ION_CHECK(ion_writer_start_container(ser->writer, tid_LIST));
1351
1352 zval *v;
1353 ZEND_HASH_FOREACH_VAL_IND(arr, v)
1354 php_ion_serialize_zval(ser, v);
1355 ION_CATCH();
1356 ZEND_HASH_FOREACH_END();
1357
1358 ION_CHECK(ion_writer_finish_container(ser->writer));
1359 }
1360
1361 static inline void php_ion_serialize_array(php_ion_serializer *ser, zend_array *arr)
1362 {
1363 if (zend_array_is_list(arr)) {
1364 php_ion_serialize_list(ser, arr);
1365 } else {
1366 php_ion_serialize_struct(ser, arr, false, false);
1367 }
1368 }
1369
1370 static inline void php_ion_serialize_object_iface(php_ion_serializer *ser, zend_object *zobject)
1371 {
1372 uint8_t *buf;
1373 size_t len;
1374 zval tmp;
1375
1376 ZVAL_OBJ(&tmp, zobject);
1377 if (SUCCESS == zobject->ce->serialize(&tmp, &buf, &len, NULL)) {
1378 ION_STRING is;
1379 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_SERIALIZEABLE));
1380 ION_CHECK(ion_writer_add_annotation(ser->writer, ion_string_from_zend(&is, zobject->ce->name)));
1381 ION_CHECK(ion_writer_write_string(ser->writer, ion_string_assign_cstr(&is, (char *) buf, len)));
1382 efree(buf);
1383 } else if (!EG(exception)){
1384 zend_throw_exception_ex(spl_ce_UnexpectedValueException, IERR_INTERNAL_ERROR,
1385 "Failed to serialize class %s", zobject->ce->name->val);
1386 }
1387 }
1388
1389 static inline void php_ion_serialize_object_magic(php_ion_serializer *ser, zend_object *zobject, zend_function *fn)
1390 {
1391 zval rv;
1392
1393 ZVAL_NULL(&rv);
1394 zend_call_known_instance_method_with_0_params(fn ? fn : zobject->ce->__serialize, zobject, &rv);
1395 ION_CATCH();
1396
1397 if (IS_ARRAY == Z_TYPE(rv)) {
1398 ION_STRING is;
1399 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, fn ? &PHP_ION_SYMBOL_CUSTOM_OBJECT : &PHP_ION_SYMBOL_MAGIC_OBJECT));
1400 ION_CHECK(ion_writer_add_annotation(ser->writer, ion_string_from_zend(&is, zobject->ce->name)));
1401 php_ion_serialize_zval(ser, &rv);
1402 zval_ptr_dtor(&rv);
1403 } else {
1404 zend_throw_exception_ex(spl_ce_UnexpectedValueException, IERR_INTERNAL_ERROR,
1405 "%s serializer %s::%s did not return an array",
1406 fn ? "Custom" : "Magic", zobject->ce->name->val,
1407 fn ? fn->common.function_name->val : "__serialize");
1408 }
1409 }
1410
1411 static inline void php_ion_serialize_object_enum(php_ion_serializer *ser, zend_object *zobject)
1412 {
1413 ION_STRING is;
1414 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_ENUM));
1415
1416 ION_CHECK(ion_writer_add_annotation(ser->writer, ion_string_from_zend(&is, zobject->ce->name)));
1417 zval *z_cname = zend_enum_fetch_case_name(zobject);
1418 ION_CHECK(ion_writer_write_symbol(ser->writer, ion_string_from_zend(&is, Z_STR_P(z_cname))));
1419 }
1420
1421 static inline void php_ion_serialize_object_std(php_ion_serializer *ser, zend_object *zobject)
1422 {
1423 ION_STRING is;
1424
1425 if (zobject->ce != zend_standard_class_def) {
1426 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_CLASS_OBJECT));
1427 ION_CHECK(ion_writer_add_annotation(ser->writer, ion_string_from_zend(&is, zobject->ce->name)));
1428 } else {
1429 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_OBJECT));
1430 }
1431
1432 zval zobj;
1433 ZVAL_OBJ(&zobj, zobject);
1434 HashTable *props = zend_get_properties_for(&zobj, ZEND_PROP_PURPOSE_SERIALIZE);
1435 if (props) {
1436 php_ion_serialize_struct(ser, props, true, true);
1437 zend_release_properties(props);
1438 } else {
1439 zend_throw_exception_ex(spl_ce_UnexpectedValueException, IERR_INTERNAL_ERROR,
1440 "Could not get properties for serialization of class %s",
1441 zobject->ce->name->val);
1442 }
1443 }
1444
1445 static inline void php_ion_serialize_object_lob(php_ion_serializer *ser, zend_object *zobject)
1446 {
1447 zval tmp_type, *type = zend_read_property(NULL, zobject, ZEND_STRL("type"), 0, &tmp_type);
1448 zval tmp_value, *value = zend_read_property(NULL, zobject, ZEND_STRL("value"), 0, &tmp_value);
1449 switch (Z_LVAL_P(zend_enum_fetch_case_value(Z_OBJ_P(type)))) {
1450 case tid_BLOB_INT:
1451 ION_CHECK(ion_writer_write_blob(ser->writer, (BYTE *) Z_STRVAL_P(value), Z_STRLEN_P(value)));
1452 break;
1453 case tid_CLOB_INT:
1454 ION_CHECK(ion_writer_write_clob(ser->writer, (BYTE *) Z_STRVAL_P(value), Z_STRLEN_P(value)));
1455 break;
1456 default:
1457 zend_throw_exception_ex(spl_ce_InvalidArgumentException, IERR_INVALID_ARG,
1458 "Unsupported LOB type: ion\\Type::%s", Z_STRVAL_P(zend_enum_fetch_case_name(Z_OBJ_P(type))));
1459 break;
1460 }
1461 }
1462
1463 static inline bool can_call_magic_serialize(php_ion_serializer *ser, zend_class_entry *ce)
1464 {
1465 return ce->__serialize && ser->call_magic;
1466 }
1467
1468 static inline bool can_call_iface_serialize(php_ion_serializer *, zend_class_entry *ce)
1469 {
1470 return !!ce->serialize;
1471 }
1472
1473 static inline bool can_call_custom_serialize(php_ion_serializer *ser, zend_object *zobject, zend_function **fn)
1474 {
1475 if (ser->call_custom) {
1476 return !!(*fn = zend_hash_find_ptr(&zobject->ce->function_table, ser->call_custom));
1477 }
1478 return false;
1479 }
1480
1481 static inline void php_ion_serialize_object(php_ion_serializer *ser, zend_object *zobject)
1482 {
1483 zend_function *fn;
1484 zend_class_entry *ce = zobject->ce;
1485 ZEND_ASSERT(ce);
1486
1487 if (ce->ce_flags & ZEND_ACC_NOT_SERIALIZABLE) {
1488 zend_throw_exception_ex(spl_ce_InvalidArgumentException, IERR_INVALID_ARG,
1489 "Serializing %s is not allowed", ce->name->val);
1490 return;
1491 }
1492
1493 if (can_call_magic_serialize(ser, ce)) {
1494 php_ion_serialize_object_magic(ser, zobject, NULL);
1495 } else if (can_call_iface_serialize(ser, ce)) {
1496 php_ion_serialize_object_iface(ser, zobject);
1497 } else if (can_call_custom_serialize(ser, zobject, &fn)) {
1498 php_ion_serialize_object_magic(ser, zobject, fn);
1499 } else if (zobject->ce->ce_flags & ZEND_ACC_ENUM) {
1500 php_ion_serialize_object_enum(ser, zobject);
1501 } else if (ce == ce_Symbol) {
1502 ION_CHECK(ion_writer_write_ion_symbol(ser->writer, &php_ion_obj(symbol, zobject)->sym));
1503 } else if (ce == ce_Decimal) {
1504 ION_CHECK(ion_writer_write_ion_decimal(ser->writer, &php_ion_obj(decimal, zobject)->dec));
1505 } else if (ce == ce_Timestamp) {
1506 ION_TIMESTAMP its;
1507 php_ion_timestamp *pts = php_ion_obj(timestamp, zobject);
1508 decContext *ctx = ser->options ? ser->options->decimal_context : NULL;
1509 ION_CHECK(ion_writer_write_timestamp(ser->writer, ion_timestamp_from_php(&its, pts, ctx)));
1510 } else if (ce == ce_LOB) {
1511 php_ion_serialize_object_lob(ser, zobject);
1512 } else {
1513 php_ion_serialize_object_std(ser, zobject);
1514 }
1515 }
1516
1517 static inline bool php_ion_serialize_system_value(php_ion_serializer *ser, zval *zv)
1518 {
1519 if (1 == php_ion_globals.serializer.level) {
1520 if (Z_TYPE_P(zv) == IS_OBJECT) {
1521 if (Z_OBJCE_P(zv) == ce_Symbol_Table_Shared) {
1522 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(zv));
1523 ION_CHECK_RETURN(true, ion_symbol_table_unload(obj->tab, ser->writer));
1524 return true;
1525 }
1526 }
1527 }
1528 return false;
1529 }
1530
1531 static inline void php_ion_serialize_refcounted(php_ion_serializer *ser, zval *zv)
1532 {
1533 if (php_ion_serialize_system_value(ser, zv)) {
1534 return;
1535 }
1536
1537 zend_ulong idx = (zend_ulong) (uintptr_t) Z_COUNTED_P(zv);
1538
1539 ION_STRING is;
1540 if (zend_hash_index_exists(ser->ids, idx)) {
1541 zval *num = zend_hash_index_find(ser->ids, idx);
1542
1543 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_BACKREF));
1544 ION_CHECK(ion_writer_write_int64(ser->writer, Z_LVAL_P(num)));
1545 } else {
1546 zval num;
1547
1548 ZVAL_LONG(&num, zend_hash_num_elements(ser->ids));
1549 zend_hash_index_add(ser->ids, idx, &num);
1550
1551 Z_TRY_ADDREF_P(zv);
1552 zend_hash_next_index_insert(ser->tmp, zv);
1553
1554 switch (Z_TYPE_P(zv)) {
1555 case IS_STRING:
1556 ION_CHECK(ion_writer_write_string(ser->writer, ion_string_from_zend(&is, Z_STR_P(zv))));
1557 break;
1558
1559 case IS_ARRAY:
1560 php_ion_serialize_array(ser, Z_ARRVAL_P(zv));
1561 break;
1562
1563 case IS_OBJECT:
1564 php_ion_serialize_object(ser, Z_OBJ_P(zv));
1565 break;
1566
1567 case IS_REFERENCE:
1568 ION_CHECK(ion_writer_add_annotation_symbol(ser->writer, &PHP_ION_SYMBOL_REFERENCE));
1569 php_ion_serialize_zval(ser, Z_REFVAL_P(zv));
1570 break;
1571 }
1572 }
1573 }
1574
1575 static inline void php_ion_serialize_zval(php_ion_serializer *ser, zval *zv)
1576 {
1577 OBJ_CHECK(ser);
1578
1579 switch (Z_TYPE_P(zv)) {
1580 case IS_NULL:
1581 ION_CHECK(ion_writer_write_null(ser->writer));
1582 break;
1583 case IS_TRUE:
1584 ION_CHECK(ion_writer_write_bool(ser->writer, TRUE));
1585 break;
1586 case IS_FALSE:
1587 ION_CHECK(ion_writer_write_bool(ser->writer, FALSE));
1588 break;
1589 case IS_LONG:
1590 ION_CHECK(ion_writer_write_int64(ser->writer, Z_LVAL_P(zv)));
1591 break;
1592 case IS_DOUBLE:
1593 ION_CHECK(ion_writer_write_double(ser->writer, Z_DVAL_P(zv)));
1594 break;
1595 case IS_STRING:
1596 case IS_ARRAY:
1597 case IS_OBJECT:
1598 case IS_REFERENCE:
1599 php_ion_serialize_refcounted(ser, zv);
1600 break;
1601 default:
1602 zend_throw_exception_ex(spl_ce_InvalidArgumentException, IERR_INVALID_ARG,
1603 "Failed to serialize value of type %s", zend_zval_type_name(zv));
1604 }
1605 }
1606
1607 php_ion_decl(serializer_php, Serializer_PHP, php_ion_serializer_php_dtor(obj));
1608
1609 static inline void php_ion_serialize_ex(php_ion_serializer *ser, zval *zv)
1610 {
1611 HashPosition pos;
1612 HashTable *arr = NULL;
1613
1614 if (ser->multi_seq) {
1615 if (Z_TYPE_P(zv) != IS_ARRAY || !zend_array_is_list(Z_ARRVAL_P(zv))) {
1616 zend_throw_exception_ex(spl_ce_InvalidArgumentException, IERR_INVALID_ARG,
1617 "Expected a packed, consecutively numerically indexed array as argument to the multi sequence serializer");
1618 return;
1619 }
1620
1621 arr = Z_ARRVAL_P(zv);
1622
1623 zend_hash_internal_pointer_reset_ex(arr, &pos);
1624 zv = zend_hash_get_current_data_ex(arr, &pos);
1625 }
1626
1627 while (zv) {
1628 php_ion_globals_serializer_step();
1629 php_ion_serialize_zval(ser, zv);
1630 php_ion_globals_serializer_exit();
1631
1632 if (!ser->multi_seq) {
1633 break;
1634 }
1635 zend_hash_move_forward_ex(arr, &pos);
1636 zv = zend_hash_get_current_data_ex(arr, &pos);
1637 }
1638 }
1639
1640 void php_ion_serialize(php_ion_serializer *ser, zval *zv, zval *return_value)
1641 {
1642 zend_object *zo_opt = NULL, *zo_ser = NULL;
1643
1644 if (!ser) {
1645 zo_ser = create_ion_Serializer_PHP(NULL);
1646 php_ion_serializer_php *o_ser = php_ion_obj(serializer_php, zo_ser);
1647 PTR_CHECK(o_ser);
1648 o_ser->serializer.call_magic = true;
1649 php_ion_serializer_php_ctor(o_ser);
1650 ION_CATCH();
1651 ser = &o_ser->serializer;
1652 }
1653
1654 zend_object *zo_writer = create_ion_Writer_Writer(ce_Writer_Buffer_Writer);
1655 php_ion_writer *writer = php_ion_obj(writer, zo_writer);
1656 writer->type = BUFFER_WRITER;
1657
1658 if (ser->options) {
1659 zo_opt = writer->opt = create_ion_Writer_Options(NULL);
1660 php_ion_obj(writer_options, writer->opt)->opt = *ser->options;
1661 }
1662
1663 php_ion_writer_ctor(writer);
1664 ser->writer = writer->writer;
1665 ser->buffer = &writer->buffer.str;
1666
1667 if (!EG(exception)) {
1668 php_ion_serialize_ex(ser, zv);
1669 }
1670
1671 /* make sure to flush when done, else str.s might not contain everything until the writer is closed */
1672 ion_writer_flush(ser->writer, NULL);
1673 RETVAL_STR_COPY(ser->buffer->s);
1674
1675 OBJ_RELEASE(zo_writer);
1676 if (zo_opt) {
1677 OBJ_RELEASE(zo_opt);
1678 }
1679 if (zo_ser) {
1680 OBJ_RELEASE(zo_ser);
1681 }
1682 }
1683
1684 typedef struct php_ion_unserializer_php {
1685 php_ion_unserializer unserializer;
1686 zend_object *opt, std;
1687 } php_ion_unserializer_php;
1688
1689 static inline void php_ion_unserializer_php_ctor(php_ion_unserializer_php *ser_obj)
1690 {
1691 php_ion_unserializer *global_ser = &php_ion_globals.unserializer;
1692 ser_obj->unserializer.ids = global_ser->ids;
1693 ser_obj->unserializer.tmp = global_ser->tmp;
1694 ser_obj->unserializer.addref = global_ser->addref;
1695
1696 zend_update_property_bool(ser_obj->std.ce, &ser_obj->std, ZEND_STRL("callMagicSerialize"),
1697 ser_obj->unserializer.call_magic);
1698 if (ser_obj->unserializer.call_custom) {
1699 zend_update_property_str(ser_obj->std.ce, &ser_obj->std, ZEND_STRL("callCustomSerialize"),
1700 ser_obj->unserializer.call_custom);
1701 ser_obj->unserializer.call_custom = zend_string_tolower(ser_obj->unserializer.call_custom);
1702 } else {
1703 zend_update_property_null(ser_obj->std.ce, &ser_obj->std, ZEND_STRL("callCustomSerialize"));
1704 }
1705 if (!ser_obj->opt) {
1706 ser_obj->opt = create_ion_Reader_Options(NULL);
1707 } else {
1708 GC_ADDREF(ser_obj->opt);
1709 }
1710 ser_obj->unserializer.options = &php_ion_obj(reader_options, ser_obj->opt)->opt;
1711 update_property_obj(&ser_obj->std, ZEND_STRL("readerOptions"), ser_obj->opt);
1712 GC_DELREF(ser_obj->opt);
1713 }
1714
1715 static inline void php_ion_unserializer_php_dtor(php_ion_unserializer_php *obj)
1716 {
1717 if (obj->unserializer.call_custom) {
1718 zend_string_release(obj->unserializer.call_custom);
1719 }
1720 }
1721
1722 static inline void php_ion_unserialize_zval(php_ion_unserializer *ser, zval *return_value, ION_TYPE *typ);
1723
1724 static inline bool can_call_magic_unserialize(php_ion_unserializer *ser, zend_class_entry *ce)
1725 {
1726 return (ce && ce->__unserialize && ser->call_magic);
1727 }
1728
1729 static inline bool can_call_iface_unserialize(php_ion_unserializer *ser, zend_class_entry *ce)
1730 {
1731 return (ce && ce->unserialize);
1732 }
1733
1734 static inline bool can_call_custom_unserialize(php_ion_unserializer *ser, zend_object *zobject, zend_function **fn)
1735 {
1736 if (ser->call_custom) {
1737 return !!(*fn = zend_hash_find_ptr(&zobject->ce->function_table, ser->call_custom));
1738 }
1739 return false;
1740 }
1741
1742 static inline zval *php_ion_unserialize_class(php_ion_unserializer *ser, zval *return_value)
1743 {
1744 zend_class_entry *ce = zend_lookup_class(ser->annotations.object_class);
1745
1746 if (ce) {
1747 object_init_ex(return_value, ce);
1748 return zend_hash_next_index_insert(ser->ids, return_value);
1749 }
1750
1751 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_IMPORT_NOT_FOUND,
1752 "Could not find class %s", ser->annotations.object_class->val);
1753 return NULL;
1754 }
1755
1756 static inline void php_ion_unserialize_object_enum(php_ion_unserializer *ser, zval *return_value)
1757 {
1758 zend_string *zs_case = zval_get_string(return_value);
1759 ION_CATCH();
1760
1761 zend_class_entry *ce = zend_lookup_class(ser->annotations.object_class);
1762 if (!ce || !(ce->ce_flags & ZEND_ACC_ENUM)) {
1763 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1764 "Not a valid enum: %s", ser->annotations.object_class->val);
1765 return;
1766 }
1767 if (!zend_hash_exists(CE_CONSTANTS_TABLE(ce), zs_case)) {
1768 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1769 "Not a valid enum case: %s::%s", ser->annotations.object_class->val, zs_case->val);
1770 return;
1771 }
1772 RETVAL_OBJ_COPY(zend_enum_get_case(ce, zs_case));
1773 zend_hash_next_index_insert(ser->ids, return_value);
1774 zend_string_release(zs_case);
1775 }
1776
1777 static inline void php_ion_unserialize_object_iface(php_ion_unserializer *ser, zval *return_value)
1778 {
1779 zend_class_entry *ce = zend_lookup_class(ser->annotations.object_class);
1780 if (can_call_iface_unserialize(ser, ce)) {
1781 zend_string *s = zval_get_string(return_value);
1782 ZVAL_NULL(return_value);
1783 zval *backref = zend_hash_next_index_insert(ser->ids, return_value);
1784 if (SUCCESS == ce->unserialize(backref, ce, (BYTE *) s->val, s->len, NULL)) {
1785 RETVAL_ZVAL(backref, 0, 0);
1786 } else if (!EG(exception)) {
1787 zend_throw_exception_ex(spl_ce_UnexpectedValueException, IERR_INTERNAL_ERROR,
1788 "Failed to unserialize class %s", ce->name->val);
1789 }
1790 zend_string_release(s);
1791 } else {
1792 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1793 "Class %s does not implement Serializable", ser->annotations.object_class->val);
1794 }
1795 }
1796
1797 static inline void php_ion_unserialize_field_name(php_ion_unserializer *ser, zend_string **key)
1798 {
1799 // FIXME: symbol table
1800 ION_STRING name;
1801 ION_CHECK(ion_reader_get_field_name(ser->reader, &name));
1802 if (!name.length) {
1803 ION_SYMBOL *is_ptr;
1804 ION_CHECK(ion_reader_get_field_name_symbol(ser->reader, &is_ptr));
1805 if (!ION_SYMBOL_IS_NULL(is_ptr) && is_ptr->value.length) {
1806 name = is_ptr->value;
1807 } else if (is_ptr) {
1808 char buf[MAX_LENGTH_OF_LONG + 1 + 1] = {0}, *end = buf + sizeof(buf) - 1, *ptr;
1809 ptr = zend_print_long_to_buf(end, is_ptr->sid);
1810 *--ptr = '$';
1811 *key = zend_string_init(ptr, end - ptr, 0);
1812 return;
1813 }
1814 }
1815 *key = zend_string_from_ion(&name);
1816 }
1817
1818 static void php_ion_unserialize_props(php_ion_unserializer *ser, zval *return_value)
1819 {
1820 zend_hash_next_index_insert(ser->ids, return_value);
1821
1822 ION_CHECK(ion_reader_step_in(ser->reader));
1823
1824 while (true) {
1825 ION_TYPE typ;
1826 ION_CHECK(ion_reader_next(ser->reader, &typ));
1827
1828 if (typ == tid_EOF) {
1829 break;
1830 }
1831
1832 zend_string *key;
1833 php_ion_unserialize_field_name(ser, &key);
1834 ION_CATCH();
1835
1836 zval zvalue;
1837 php_ion_unserialize_zval(ser, &zvalue, &typ);
1838 ION_CATCH(zend_string_release(key));
1839
1840 zend_class_entry *ce = Z_OBJCE_P(return_value);
1841 if (ser->annotations.object_prop && ser->annotations.property_class->val[0] != '*') {
1842 ce = zend_lookup_class(ser->annotations.property_class);
1843 }
1844 zend_update_property_ex(ce, Z_OBJ_P(return_value), key, &zvalue);
1845 zval_ptr_dtor(&zvalue);
1846 zend_string_release(key);
1847 }
1848
1849 ION_CHECK(ion_reader_step_out(ser->reader));
1850 }
1851
1852 /**
1853 * @link https://amzn.github.io/ion-docs/docs/spec.html#struct
1854 * When two fields in the same struct have the same name [...] Implementations must preserve all such fields,
1855 * i.e., they may not discard fields that have repeated names. However, implementations may reorder fields
1856 * (the binary format identifies structs that are sorted by symbolID), so certain operations may lead to
1857 * nondeterministic behavior.
1858 */
1859 static inline void php_ion_unserialize_hash(php_ion_unserializer *ser, zval *return_value)
1860 {
1861 zend_hash_next_index_insert(ser->ids, return_value);
1862
1863 ION_CHECK(ion_reader_step_in(ser->reader));
1864
1865 while (true) {
1866 ION_TYPE typ;
1867 ION_CHECK(ion_reader_next(ser->reader, &typ));
1868
1869 if (typ == tid_EOF) {
1870 break;
1871 }
1872
1873 zend_string *key;
1874 php_ion_unserialize_field_name(ser, &key);
1875 ION_CATCH();
1876
1877 zval zvalue;
1878 php_ion_unserialize_zval(ser, &zvalue, &typ);
1879 ION_CATCH(zend_string_release(key));
1880
1881 // FIXME:: too naive; b0rked if the previous value is an array
1882 if (zend_symtable_exists(HASH_OF(return_value), key)) {
1883 zval tmp, *prev = zend_hash_find(HASH_OF(return_value), key);
1884 if (Z_TYPE_P(prev) != IS_ARRAY) {
1885 array_init(&tmp);
1886 Z_TRY_ADDREF_P(prev);
1887 zend_hash_next_index_insert(Z_ARRVAL(tmp), prev);
1888 prev = zend_hash_update(HASH_OF(return_value), key, &tmp);
1889 }
1890 zend_hash_next_index_insert(Z_ARRVAL_P(prev), &zvalue);
1891 } else {
1892 zend_symtable_update(HASH_OF(return_value), key, &zvalue);
1893 }
1894 zend_string_release(key);
1895 }
1896
1897 ION_CHECK(ion_reader_step_out(ser->reader));
1898 }
1899
1900 static inline void verify_unserializer(php_ion_unserializer *ser, zend_object *zobject, zend_function **fn)
1901 {
1902 switch (ser->annotations.object_type) {
1903 case 'c':
1904 *fn = NULL;
1905 break;
1906
1907 case 'C':
1908 if (!can_call_custom_unserialize(ser, zobject, fn)) {
1909 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1910 "Could not find custom serializer method of %s", ser->annotations.object_class->val);
1911 }
1912 break;
1913
1914 case 'O':
1915 if (!can_call_magic_unserialize(ser, zobject->ce)) {
1916 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1917 "Could not find method %s::__unserialize()", ser->annotations.object_class->val);
1918 }
1919 *fn = zobject->ce->__unserialize;
1920 break;
1921
1922 default:
1923 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1924 "Invalid object type %c", ser->annotations.object_type);
1925 }
1926 }
1927
1928 static inline void php_ion_unserialize_object(php_ion_unserializer *ser, zval *return_value)
1929 {
1930 // backup possible backref to array returned by magic/custom __serialize()
1931 zval *input = zend_hash_next_index_insert(ser->tmp, return_value);
1932
1933 php_ion_unserialize_class(ser, return_value);
1934 ION_CATCH();
1935
1936 zend_function *fn = NULL;
1937 zend_object *zobject = Z_OBJ_P(return_value);
1938 verify_unserializer(ser, zobject, &fn);
1939 ION_CATCH();
1940
1941 // plain object
1942 if (!fn) {
1943 php_ion_unserialize_props(ser, return_value);
1944 return;
1945 }
1946
1947 // magic object
1948 if (Z_TYPE_P(input) != IS_ARRAY) {
1949 zval_ptr_dtor(input);
1950 array_init(input);
1951 zend_hash_real_init_mixed(Z_ARRVAL_P(input));
1952 php_ion_unserialize_hash(ser, input);
1953 ION_CATCH();
1954 }
1955 zval rv;
1956 ZVAL_NULL(&rv);
1957 zend_call_method_with_1_params(zobject, zobject->ce, &fn, "", &rv, input);
1958 zval_ptr_dtor(&rv);
1959 }
1960
1961 static inline void php_ion_unserialize_struct(php_ion_unserializer *ser, zval *return_value)
1962 {
1963 if (ser->annotations.object_class) {
1964 switch (ser->annotations.object_type) {
1965 case 'S':
1966 php_ion_unserialize_object_iface(ser, return_value);
1967 break;
1968 case 'E':
1969 php_ion_unserialize_object_enum(ser, return_value);
1970 break;
1971 default:
1972 php_ion_unserialize_object(ser, return_value);
1973 }
1974 } else if (!ser->annotations.object_type) {
1975 bool is_shared_symtab = ser->annotations.shared_symtab;
1976 array_init(return_value);
1977 php_ion_unserialize_hash(ser, return_value);
1978 if (is_shared_symtab) {
1979 zval zobj;
1980 object_init_ex(&zobj, ce_Symbol_Table_Shared);
1981 zend_call_known_function(Z_OBJCE(zobj)->constructor, Z_OBJ(zobj), Z_OBJCE(zobj), NULL, 0, NULL, Z_ARRVAL_P(return_value));
1982 zval_ptr_dtor(return_value);
1983 RETURN_COPY_VALUE(&zobj);
1984 }
1985 } else if (ser->annotations.object_type == 'o') {
1986 object_init(return_value);
1987 php_ion_unserialize_hash(ser, return_value);
1988 } else {
1989 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_TOKEN,
1990 "Invalid object annotation %c::", ser->annotations.object_type);
1991 }
1992 }
1993
1994 static inline void php_ion_unserialize_list(php_ion_unserializer *ser, zval *return_value)
1995 {
1996 ION_CHECK(ion_reader_step_in(ser->reader));
1997 array_init(return_value);
1998 zend_hash_next_index_insert(ser->ids, return_value);
1999
2000 while (true) {
2001 ION_TYPE typ;
2002 ION_CHECK(ion_reader_next(ser->reader, &typ));
2003
2004 if (typ == tid_EOF) {
2005 break;
2006 }
2007
2008 zval next;
2009 php_ion_unserialize_zval(ser, &next, &typ);
2010 ION_CATCH();
2011
2012 zend_hash_next_index_insert(Z_ARRVAL_P(return_value), &next);
2013 }
2014
2015 ION_CHECK(ion_reader_step_out(ser->reader));
2016 }
2017
2018 static inline void php_ion_reader_read_lob(ION_READER *reader, zval *return_value)
2019 {
2020 zend_string *zstr = zend_string_alloc(0x1000, 0);
2021 again:
2022 SIZE read = 0;
2023 iERR err = ion_reader_read_lob_bytes(reader, (BYTE *) zstr->val, zstr->len, &read);
2024 if (err == IERR_BUFFER_TOO_SMALL) {
2025 zstr = zend_string_extend(zstr, zstr->len << 2, 0);
2026 goto again;
2027 }
2028 ION_CHECK(err, zend_string_release(zstr));
2029 if (zstr->len > read) {
2030 zstr->val[read] = 0;
2031 zstr = zend_string_truncate(zstr, read, 0);
2032 }
2033 RETURN_STR(zstr);
2034 }
2035
2036 static inline void php_ion_reader_read_timestamp(ION_READER *reader, ION_READER_OPTIONS *opt, zval *return_value)
2037 {
2038 ION_TIMESTAMP ts;
2039 ION_CHECK(ion_reader_read_timestamp(reader, &ts));
2040
2041 object_init_ex(return_value, ce_Timestamp);
2042 php_ion_timestamp *ts_obj = php_ion_obj(timestamp, Z_OBJ_P(return_value));
2043
2044 zend_string *fmt = NULL;
2045 decContext *ctx = opt ? opt->decimal_context : NULL;
2046 ts_obj->time = php_time_from_ion(&ts, ctx, &fmt);
2047 php_ion_timestamp_ctor(ts_obj, ts.precision, fmt, NULL, NULL);
2048 zend_string_release(fmt);
2049
2050 OBJ_CHECK(ts_obj);
2051 }
2052
2053 static inline void php_ion_reader_read_int(ION_READER *reader, zval *return_value)
2054 {
2055 ION_INT *num = NULL;
2056 ION_CHECK(ion_int_alloc(reader, &num));
2057 ION_CHECK(ion_reader_read_ion_int(reader, num));
2058
2059 // TODO: SIZEOF_ZEND_LONG == 4
2060 int64_t i64;
2061 iERR err = ion_int_to_int64(num, &i64);
2062 switch (err) {
2063 case IERR_OK:
2064 RETVAL_LONG(i64);
2065 goto done;
2066
2067 case IERR_NUMERIC_OVERFLOW:
2068 SIZE max, len;
2069 ION_CHECK(ion_int_char_length(num, &max));
2070 zend_string *zs = zend_string_alloc(max, 0);
2071
2072 err = ion_int_to_char(num, (BYTE *) zs->val, max, &len);
2073 zs->val[zs->len = len] = 0;
2074 RETVAL_STR(zs);
2075 /* fall through */
2076
2077 default:
2078 done:
2079 ion_int_free(num);
2080 ION_CHECK(err);
2081 }
2082 }
2083
2084 static inline void php_ion_unserialize_backref(php_ion_unserializer *ser, zval *return_value)
2085 {
2086 zval *backref = zend_hash_index_find(ser->ids, Z_LVAL_P(return_value));
2087
2088 if (backref) {
2089 ZVAL_COPY_VALUE(return_value, backref);
2090 zend_hash_next_index_insert(ser->addref, return_value);
2091 } else {
2092 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INTERNAL_ERROR,
2093 "Could not find back reference %ld", Z_LVAL_P(return_value));
2094 }
2095 }
2096
2097 static inline void php_ion_unserialize_annotations(php_ion_unserializer *ser)
2098 {
2099 memset(&ser->annotations, 0, sizeof(ser->annotations));
2100
2101 int32_t ann_cnt;
2102 ION_CHECK(ion_reader_get_annotation_count(ser->reader, &ann_cnt));
2103 for (int32_t i = 0; i < ann_cnt; ++i) {
2104 ION_STRING ann_str;
2105 ION_CHECK(ion_reader_get_an_annotation(ser->reader, i, &ann_str));
2106
2107 if (ann_str.length != 1) {
2108 if (ION_STRING_EQUALS(&ann_str, &ION_SYMBOL_SHARED_SYMBOL_TABLE_STRING)) {
2109 ser->annotations.shared_symtab = true;
2110 }
2111 continue;
2112 }
2113
2114 switch (*ann_str.value) {
2115 case 'R':
2116 if (ser->annotations.makeref) {
2117 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2118 "Invalid multiple reference annotations");
2119 return;
2120 }
2121 ser->annotations.makeref = true;
2122 break;
2123
2124 case 'r':
2125 if (ser->annotations.backref) {
2126 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2127 "Invalid multiple back reference annotations");
2128 return;
2129 }
2130 ser->annotations.backref = true;
2131 break;
2132
2133 case 'p':
2134 if (ser->annotations.object_prop) {
2135 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2136 "Invalid multiple object property annotations");
2137 return;
2138 }
2139 ser->annotations.object_prop = true;
2140
2141 ION_STRING prop_class;
2142 ION_CHECK(ion_reader_get_an_annotation(ser->reader, ++i, &prop_class));
2143 ser->annotations.property_class = zend_string_from_ion(&prop_class);
2144
2145 zval zptmp;
2146 ZVAL_STR(&zptmp, ser->annotations.property_class);
2147 zend_hash_next_index_insert(ser->tmp, &zptmp);
2148 break;
2149
2150 case 'E':
2151 case 'S':
2152 case 'O':
2153 case 'C':
2154 case 'o':
2155 case 'c':
2156 if (ser->annotations.object_type) {
2157 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2158 "Invalid multiple object type annotations: %c::%c",
2159 ser->annotations.object_type, *ann_str.value);
2160 return;
2161 }
2162 if ('o' != (ser->annotations.object_type = *ann_str.value)) {
2163 ION_STRING class_name;
2164 ION_CHECK(ion_reader_get_an_annotation(ser->reader, ++i, &class_name));
2165 ser->annotations.object_class = zend_string_from_ion(&class_name);
2166
2167 zval zctmp;
2168 ZVAL_STR(&zctmp, ser->annotations.object_class);
2169 zend_hash_next_index_insert(ser->tmp, &zctmp);
2170 }
2171 break;
2172 }
2173
2174 // sanity checks
2175 if (ser->annotations.object_type && ser->annotations.object_type != 'o' && !ser->annotations.object_class) {
2176 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2177 "Invalid object annotation without class name: %c::", ser->annotations.object_type);
2178 return;
2179 }
2180 if (ser->annotations.object_type == 'o' && ser->annotations.object_class) {
2181 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2182 "Invalid object annotation with class name: o::%s", ser->annotations.object_class->val);
2183 return;
2184 }
2185 }
2186 }
2187
2188 static inline void php_ion_unserialize_zval(php_ion_unserializer *ser, zval *return_value, ION_TYPE *typ)
2189 {
2190 if (typ) {
2191 memcpy(&ser->type, typ, sizeof(ser->type));
2192 } else {
2193 typ = &ser->type;
2194 ION_CHECK(ion_reader_next(ser->reader, typ));
2195 }
2196
2197 php_ion_unserialize_annotations(ser);
2198 ION_CATCH();
2199
2200 if (ser->annotations.makeref) {
2201 ZVAL_MAKE_REF(return_value);
2202 zend_hash_next_index_insert(ser->ids, return_value);
2203 ZVAL_DEREF(return_value);
2204 }
2205
2206 if (ION_TYPE_INT(*typ) > 0) {
2207 BOOL is_null;
2208 ION_CHECK(ion_reader_is_null(ser->reader, &is_null));
2209 if (is_null) {
2210 RETURN_NULL();
2211 }
2212 }
2213
2214 switch (ION_TYPE_INT(*typ)) {
2215 case tid_NULL_INT:
2216 ION_CHECK(ion_reader_read_null(ser->reader, typ));
2217 RETURN_NULL();
2218
2219 case tid_BOOL_INT:
2220 BOOL bval;
2221 ION_CHECK(ion_reader_read_bool(ser->reader, &bval));
2222 RETURN_BOOL(bval);
2223
2224 case tid_INT_INT:
2225 php_ion_reader_read_int(ser->reader, return_value);
2226 if (ser->annotations.backref) {
2227 ION_CATCH();
2228 php_ion_unserialize_backref(ser, return_value);
2229 }
2230 if (ser->annotations.object_type) {
2231 if (!ser->annotations.backref) {
2232 zend_throw_exception_ex(spl_ce_RuntimeException, IERR_INVALID_SYNTAX,
2233 "Invalid object type annotation: %c::" ZEND_LONG_FMT,
2234 ser->annotations.object_type, Z_LVAL_P(return_value));
2235 return;
2236 }
2237 goto unserialize_struct;
2238 }
2239 return;
2240
2241 case tid_FLOAT_INT:
2242 double d;
2243 ION_CHECK(ion_reader_read_double(ser->reader, &d));
2244 RETURN_DOUBLE(d);
2245
2246 case tid_DECIMAL_INT:
2247 object_init_ex(return_value, ce_Decimal);
2248 php_ion_decimal *dec = php_ion_obj(decimal, Z_OBJ_P(return_value));
2249 ION_CHECK(ion_reader_read_ion_decimal(ser->reader, &dec->dec));
2250 php_ion_decimal_ctor(dec);
2251 zend_hash_next_index_insert(ser->ids, return_value);
2252 return;
2253
2254 case tid_TIMESTAMP_INT:
2255 php_ion_reader_read_timestamp(ser->reader, ser->options, return_value);
2256 zend_hash_next_index_insert(ser->ids, return_value);
2257 return;
2258
2259 case tid_SYMBOL_INT:
2260 ION_SYMBOL sym;
2261 ION_CHECK(ion_reader_read_ion_symbol(ser->reader, &sym));
2262 php_ion_symbol_zval(&sym, return_value);
2263 if (ser->annotations.object_type) {
2264 zend_hash_next_index_insert(ser->tmp, return_value);
2265 goto unserialize_struct;
2266 }
2267 zend_hash_next_index_insert(ser->ids, return_value);
2268 return;
2269
2270 case tid_STRING_INT:
2271 ION_STRING str;
2272 ION_CHECK(ion_reader_read_string(ser->reader, &str));
2273 RETVAL_STRINGL((char *) str.value, str.length);
2274 if (ser->annotations.object_type) {
2275 zend_hash_next_index_insert(ser->tmp, return_value);
2276 goto unserialize_struct;
2277 }
2278 zend_hash_next_index_insert(ser->ids, return_value);
2279 return;
2280
2281 case tid_CLOB_INT:
2282 case tid_BLOB_INT:
2283 php_ion_reader_read_lob(ser->reader, return_value);
2284 if (ser->annotations.object_type) {
2285 zend_hash_next_index_insert(ser->tmp, return_value);
2286 goto unserialize_struct;
2287 }
2288 zend_hash_next_index_insert(ser->ids, return_value);
2289 return;
2290
2291 case tid_LIST_INT:
2292 case tid_SEXP_INT: // FIXME
2293 php_ion_unserialize_list(ser, return_value);
2294 if (!ser->annotations.object_type) {
2295 return;
2296 }
2297 /* fall through */
2298
2299 case tid_STRUCT_INT:
2300 unserialize_struct: ;
2301 php_ion_unserialize_struct(ser, return_value);
2302 return;
2303
2304 case tid_none_INT:
2305 ZEND_ASSERT(0);
2306 break;
2307
2308 case tid_DATAGRAM_INT:
2309 ZEND_ASSERT(!"datagram");
2310 case tid_EOF_INT:
2311 return;
2312 }
2313 }
2314
2315 php_ion_decl(unserializer_php, Unserializer_PHP, php_ion_unserializer_php_dtor(obj));
2316
2317 static inline void php_ion_unserialize_ex(php_ion_unserializer *ser, zval *return_value)
2318 {
2319 if (ser->multi_seq) {
2320 array_init(return_value);
2321 }
2322
2323 do {
2324 zval tmp;
2325 ZVAL_NULL(&tmp);
2326 php_ion_globals_unserializer_step();
2327 php_ion_unserialize_zval(ser, &tmp, NULL);
2328 php_ion_globals_unserializer_exit();
2329 ION_CATCH(zval_ptr_dtor(&tmp));
2330
2331 if (!ser->multi_seq) {
2332 RETURN_COPY_VALUE(&tmp);
2333 } else if (ser->type != tid_EOF) {
2334 zend_hash_next_index_insert(Z_ARRVAL_P(return_value), &tmp);
2335 }
2336 } while (ser->type != tid_EOF);
2337 }
2338
2339 void php_ion_unserialize(php_ion_unserializer *ser, zval *zdata, zval *return_value)
2340 {
2341 zend_object *zo_opt = NULL, *zo_ser = NULL;
2342
2343 if (!ser) {
2344 zo_ser = create_ion_Unserializer_PHP(NULL);
2345 php_ion_unserializer_php *o_ser = php_ion_obj(unserializer_php, zo_ser);
2346 PTR_CHECK(o_ser);
2347 o_ser->unserializer.call_magic = true;
2348 php_ion_unserializer_php_ctor(o_ser);
2349 ION_CATCH();
2350 ser = &o_ser->unserializer;
2351 }
2352
2353 zend_object *zo_reader;
2354 php_ion_reader *reader;
2355 ZVAL_DEREF(zdata);
2356
2357 if (Z_TYPE_P(zdata) == IS_RESOURCE) {
2358 zo_reader = create_ion_Reader_Reader(ce_Reader_Stream_Reader);
2359 reader = php_ion_obj(reader, zo_reader);
2360 reader->type = STREAM_READER;
2361 php_stream_from_zval_no_verify(reader->stream.ptr, zdata);
2362 } else if (Z_TYPE_P(zdata) <= IS_STRING) {
2363 zo_reader = create_ion_Reader_Reader(ce_Reader_Buffer_Reader);
2364 reader = php_ion_obj(reader, zo_reader);
2365 reader->type = BUFFER_READER;
2366 reader->buffer = zval_get_string(zdata);
2367 } else {
2368 zend_throw_exception_ex(spl_ce_InvalidArgumentException, IERR_INVALID_ARG,
2369 "Invalid source to unserialize; expected string or resource");
2370 if (zo_ser) {
2371 OBJ_RELEASE(zo_ser);
2372 }
2373 return;
2374 }
2375
2376 if (ser->options) {
2377 zo_opt = reader->opt = create_ion_Reader_Options(NULL);
2378 php_ion_obj(reader_options, reader->opt)->opt = *ser->options;
2379 }
2380
2381 php_ion_reader_ctor(reader);
2382 ser->reader = reader->reader;
2383
2384 if (!EG(exception)) {
2385 php_ion_unserialize_ex(ser, return_value);
2386 }
2387
2388 OBJ_RELEASE(zo_reader);
2389 if (zo_opt) {
2390 OBJ_RELEASE(zo_opt);
2391 }
2392 if (zo_ser) {
2393 OBJ_RELEASE(zo_ser);
2394 }
2395 }
PHP extension for Amazon ION