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