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