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