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