projects / awesomized / ext-ion / blob
? search:
summary | shortlog | log | commit | commitdiff | tree | github
history | raw | HEAD
typo
[awesomized/ext-ion] / ion.c
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 #ifdef HAVE_CONFIG_H
14 # include "config.h"
15 #endif
16
17 #include "php.h"
18 #include "ext/standard/info.h"
19
20 #include "Zend/zend_enum.h"
21 #include "Zend/zend_exceptions.h"
22 #include "Zend/zend_closures.h"
23 #include "Zend/zend_interfaces.h"
24 #include "Zend/zend_smart_str.h"
25
26 #include "ext/date/php_date.h"
27 #include "ext/spl/spl_exceptions.h"
28
29 #include "php_ion.h"
30 #include "ion_private.h"
31
32 static ZEND_METHOD(ion_Symbol_ImportLocation, __construct)
33 {
34 php_ion_symbol_iloc *obj = php_ion_obj(symbol_iloc, Z_OBJ_P(ZEND_THIS));
35 PTR_CHECK(obj);
36
37 zend_long location;
38 ZEND_PARSE_PARAMETERS_START(2, 2)
39 Z_PARAM_STR(obj->name)
40 Z_PARAM_LONG(location)
41 ZEND_PARSE_PARAMETERS_END();
42
43 obj->loc.location = (SID) location;
44 php_ion_symbol_iloc_ctor(obj);
45 }
46 static ZEND_METHOD(ion_Symbol, __construct)
47 {
48 php_ion_symbol *obj = php_ion_obj(symbol, Z_OBJ_P(ZEND_THIS));
49 PTR_CHECK(obj);
50
51 zend_long sid = -1;
52 ZEND_PARSE_PARAMETERS_START(0, 3)
53 Z_PARAM_OPTIONAL
54 Z_PARAM_STR_OR_NULL(obj->value)
55 Z_PARAM_LONG(sid)
56 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->iloc, ce_Symbol_ImportLocation)
57 ZEND_PARSE_PARAMETERS_END();
58
59 obj->sym.sid = (SID) sid;
60 php_ion_symbol_ctor(obj);
61 }
62 static ZEND_METHOD(ion_Symbol, equals)
63 {
64 php_ion_symbol *sym = php_ion_obj(symbol, Z_OBJ_P(ZEND_THIS));
65 OBJ_CHECK(sym);
66
67 zend_object *other_obj;
68 ZEND_PARSE_PARAMETERS_START(1, 1)
69 Z_PARAM_OBJ_OF_CLASS(other_obj, ce_Symbol)
70 ZEND_PARSE_PARAMETERS_END();
71
72 BOOL eq = FALSE;
73 iERR err = ion_symbol_is_equal(
74 &sym->sym,
75 &php_ion_obj(symbol, other_obj)->sym, &eq);
76 ION_CHECK(err);
77 RETVAL_BOOL(eq);
78 }
79 static ZEND_METHOD(ion_Symbol, __toString)
80 {
81 php_ion_symbol *sym = php_ion_obj(symbol, Z_OBJ_P(ZEND_THIS));
82 OBJ_CHECK(sym);
83
84 ZEND_PARSE_PARAMETERS_NONE();
85
86 if (!sym->value) {
87 RETURN_EMPTY_STRING();
88 }
89 RETURN_STR_COPY(sym->value);
90 }
91 static ZEND_METHOD(ion_Symbol_Enum, toSymbol)
92 {
93 ZEND_PARSE_PARAMETERS_NONE();
94
95 zval *zc = zend_enum_fetch_case_name(Z_OBJ_P(ZEND_THIS));
96 PTR_CHECK(zc);
97
98 zval *zsym = php_ion_global_symbol_fetch_by_enum(Z_STR_P(zc));
99 PTR_CHECK(zsym);
100 RETVAL_ZVAL(zsym, 1, 0);
101 }
102 static ZEND_METHOD(ion_Symbol_Enum, toSID)
103 {
104 ZEND_PARSE_PARAMETERS_NONE();
105
106 zval *zc = zend_enum_fetch_case_name(Z_OBJ_P(ZEND_THIS));
107 PTR_CHECK(zc);
108
109 zval *zsym = php_ion_global_symbol_fetch_by_enum(Z_STR_P(zc));
110 PTR_CHECK(zsym);
111
112 zval tmp;
113 RETVAL_ZVAL(zend_read_property(Z_OBJCE_P(zsym), Z_OBJ_P(zsym), ZEND_STRL("sid"), 0, &tmp), 1, 0);
114 }
115 static ZEND_METHOD(ion_Symbol_Enum, toString)
116 {
117 ZEND_PARSE_PARAMETERS_NONE();
118
119 zval *zc = zend_enum_fetch_case_name(Z_OBJ_P(ZEND_THIS));
120 PTR_CHECK(zc);
121
122 zval *zsym = php_ion_global_symbol_fetch_by_enum(Z_STR_P(zc));
123 PTR_CHECK(zsym);
124
125 zval tmp;
126 RETVAL_ZVAL(zend_read_property(Z_OBJCE_P(zsym), Z_OBJ_P(zsym), ZEND_STRL("value"), 0, &tmp), 1, 0);
127 }
128 static ZEND_FUNCTION(ion_Symbol_Table_System)
129 {
130 ZEND_PARSE_PARAMETERS_NONE();
131
132 object_init_ex(return_value, ce_Symbol_Table_Shared);
133 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(return_value));
134 ION_CHECK(ion_symbol_table_get_system_table(&obj->tab, 1));
135 php_ion_symbol_table_ctor(obj);
136 ion_symbol_table_lock(obj->tab);
137 }
138 static ZEND_FUNCTION(ion_Symbol_Table_PHP)
139 {
140 ZEND_PARSE_PARAMETERS_NONE();
141
142 object_init_ex(return_value, ce_Symbol_Table_Shared);
143 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(return_value));
144 obj->tab = g_sym_tab_php;
145 php_ion_symbol_table_ctor(obj);
146 ion_symbol_table_lock(obj->tab);
147 }
148 static ZEND_METHOD(ion_Symbol_Table_Local, __construct)
149 {
150 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
151 PTR_CHECK(obj);
152
153 ZEND_PARSE_PARAMETERS_NONE();
154
155 ION_CHECK(ion_symbol_table_open_with_type(&obj->tab, NULL, ist_LOCAL));
156 obj->dtor = ion_symbol_table_close;
157 OBJ_CHECK(obj);
158 }
159 static ZEND_METHOD(ion_Symbol_Table_Local, import)
160 {
161 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
162 OBJ_CHECK(obj);
163
164 zend_object *zo_import;
165 ZEND_PARSE_PARAMETERS_START(1, 1)
166 Z_PARAM_OBJ_OF_CLASS(zo_import, ce_Symbol_Table);
167 ZEND_PARSE_PARAMETERS_END();
168
169 php_ion_symbol_table_import(obj, php_ion_obj(symbol_table, zo_import));
170 }
171 static ZEND_METHOD(ion_Symbol_Table_Shared, __construct)
172 {
173 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
174 PTR_CHECK(obj);
175
176 zend_string *zname;
177 zend_long version = 1;
178 HashTable *ht_sym = NULL;
179 ZEND_PARSE_PARAMETERS_START(1, 3)
180 Z_PARAM_STR(zname)
181 Z_PARAM_OPTIONAL
182 Z_PARAM_LONG(version)
183 Z_PARAM_ARRAY_HT_OR_NULL(ht_sym)
184 ZEND_PARSE_PARAMETERS_END();
185
186 ION_CHECK(ion_symbol_table_open_with_type(&obj->tab, NULL, ist_SHARED));
187 obj->dtor = ion_symbol_table_close;
188
189 ION_STRING is;
190 ION_CHECK(ion_symbol_table_set_name(obj->tab, ion_string_from_zend(&is, zname)));
191 ION_CHECK(ion_symbol_table_set_version(obj->tab, version));
192
193 php_ion_symbol_table_ctor(obj);
194
195 zval *zsym;
196 if (ht_sym) ZEND_HASH_FOREACH_VAL(ht_sym, zsym)
197 {
198 zend_string *str = zval_get_string(zsym);
199 if (EG(exception)) {
200 break;
201 }
202
203 ION_STRING istr;
204 ION_CHECK(ion_symbol_table_add_symbol(obj->tab, ion_string_from_zend(&istr, str), NULL), zend_string_release(str));
205 zend_string_release(str);
206 }
207 ZEND_HASH_FOREACH_END();
208 }
209 static ZEND_METHOD(ion_Symbol_Table, getMaxId)
210 {
211 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
212 OBJ_CHECK(obj);
213
214 ZEND_PARSE_PARAMETERS_NONE();
215
216 SID max_sid;
217 ION_CHECK(ion_symbol_table_get_max_sid(obj->tab, &max_sid));
218 RETURN_LONG(max_sid);
219 }
220 static ZEND_METHOD(ion_Symbol_Table, add)
221 {
222 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
223 OBJ_CHECK(obj);
224
225 zend_object *zo_sym = NULL;
226 zend_string *zs_sym = NULL;
227 ZEND_PARSE_PARAMETERS_START(1, 1)
228 Z_PARAM_OBJ_OF_CLASS_OR_STR(zo_sym, ce_Symbol, zs_sym)
229 ZEND_PARSE_PARAMETERS_END();
230
231 if (zo_sym) {
232 zval z_sym;
233 ZVAL_OBJ(&z_sym, zo_sym);
234 zs_sym = zval_get_string(&z_sym);
235 ION_CATCH();
236 }
237 SID sid;
238 ION_STRING is;
239 ION_CHECK(ion_symbol_table_add_symbol(obj->tab, ion_string_from_zend(&is, zs_sym), &sid),
240 if (zo_sym) {
241 zend_string_release(zs_sym);
242 });
243 if (zo_sym) {
244 zend_string_release(zs_sym);
245 }
246 RETURN_LONG(sid);
247 }
248 static ZEND_METHOD(ion_Symbol_Table, find)
249 {
250 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
251 OBJ_CHECK(obj);
252
253 zend_long zsid;
254 zend_string *zstring = NULL;
255 ZEND_PARSE_PARAMETERS_START(1, 1)
256 Z_PARAM_STR_OR_LONG(zstring, zsid)
257 ZEND_PARSE_PARAMETERS_END();
258
259 if (zstring) {
260 SID sid;
261 ION_STRING is;
262 ION_CHECK(ion_symbol_table_find_by_name(obj->tab, ion_string_from_zend(&is, zstring), &sid));
263 zsid = sid;
264 }
265 ION_SYMBOL *sym;
266 ION_CHECK(ion_symbol_table_get_symbol(obj->tab, zsid, &sym));
267 if (sym) {
268 php_ion_symbol_table_symbol_zval(obj, sym, return_value);
269 }
270 }
271 static ZEND_METHOD(ion_Symbol_Table, findLocal)
272 {
273 php_ion_symbol_table *obj = php_ion_obj(symbol_table, Z_OBJ_P(ZEND_THIS));
274 OBJ_CHECK(obj);
275
276 zend_long zsid;
277 zend_string *zstring;
278 ZEND_PARSE_PARAMETERS_START(1, 1)
279 Z_PARAM_STR_OR_LONG(zstring, zsid)
280 ZEND_PARSE_PARAMETERS_END();
281
282 if (zstring) {
283 SID sid;
284 ION_STRING is;
285 ION_CHECK(ion_symbol_table_find_by_name(obj->tab, ion_string_from_zend(&is, zstring), &sid));
286 zsid = sid;
287 }
288 ION_SYMBOL *sym;
289 ION_CHECK(ion_symbol_table_get_local_symbol(obj->tab, zsid, &sym));
290 if (sym) {
291 php_ion_symbol_table_symbol_zval(obj, sym, return_value);
292 }
293 }
294 static ZEND_METHOD(ion_Catalog, __construct)
295 {
296 php_ion_catalog *obj = php_ion_obj(catalog, Z_OBJ_P(ZEND_THIS));
297 PTR_CHECK(obj);
298
299 ZEND_PARSE_PARAMETERS_NONE();
300
301 php_ion_catalog_ctor(obj);
302 }
303 static ZEND_METHOD(ion_Catalog, count)
304 {
305 php_ion_catalog *obj = php_ion_obj(catalog, Z_OBJ_P(ZEND_THIS));
306 OBJ_CHECK(obj);
307
308 ZEND_PARSE_PARAMETERS_NONE();
309
310 int32_t c;
311 ION_CHECK(ion_catalog_get_symbol_table_count(obj->cat, &c));
312 RETURN_LONG(c);
313 }
314 static ZEND_METHOD(ion_Catalog, add)
315 {
316 php_ion_catalog *obj = php_ion_obj(catalog, Z_OBJ_P(ZEND_THIS));
317 OBJ_CHECK(obj);
318
319 zend_object *zo_symtab;
320 ZEND_PARSE_PARAMETERS_START(1, 1)
321 Z_PARAM_OBJ_OF_CLASS(zo_symtab, ce_Symbol_Table)
322 ZEND_PARSE_PARAMETERS_END();
323
324 php_ion_symbol_table *o_symtab = php_ion_obj(symbol_table, zo_symtab);
325 php_ion_catalog_add_symbol_table(obj, o_symtab);
326 }
327
328 static ZEND_METHOD(ion_Catalog, remove)
329 {
330 php_ion_catalog *obj = php_ion_obj(catalog, Z_OBJ_P(ZEND_THIS));
331 OBJ_CHECK(obj);
332
333 zend_object *zo_symtab = NULL;
334 zend_string *zs_symtab = NULL;
335 ZEND_PARSE_PARAMETERS_START(1, 1)
336 Z_PARAM_OBJ_OF_CLASS_OR_STR(zo_symtab, ce_Symbol_Table, zs_symtab)
337 ZEND_PARSE_PARAMETERS_END();
338
339 RETVAL_FALSE;
340
341 zval tmp;
342 zval *ztabs = zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("symbolTables"), 0, &tmp);
343 if (ztabs) {
344 if (zo_symtab) {
345 // fast path
346 zend_ulong idx = (uintptr_t) &zo_symtab->gc;
347 RETVAL_BOOL(SUCCESS == zend_hash_index_del(Z_ARRVAL_P(ztabs), idx));
348 ION_CHECK(ion_catalog_release_symbol_table(obj->cat, php_ion_obj(symbol_table, zo_symtab)->tab));
349 } else {
350 bool deleted = false;
351 ION_SYMBOL_TABLE *tab;
352 ION_STRING is;
353 ion_string_from_zend(&is, zs_symtab);
354 do {
355 tab = NULL;
356 ION_CHECK(ion_catalog_find_best_match(obj->cat, &is, 0, &tab));
357 if (tab) {
358 ION_CHECK(ion_catalog_release_symbol_table(obj->cat, tab));
359 deleted = true;
360 }
361 } while(tab);
362 RETVAL_BOOL(deleted);
363 }
364 }
365 }
366 static ZEND_METHOD(ion_Catalog, find)
367 {
368 php_ion_catalog *obj = php_ion_obj(catalog, Z_OBJ_P(ZEND_THIS));
369 OBJ_CHECK(obj);
370
371 zend_long zversion = 0;
372 zend_string *zname;
373 ZEND_PARSE_PARAMETERS_START(1, 2)
374 Z_PARAM_STR(zname)
375 Z_PARAM_OPTIONAL
376 Z_PARAM_LONG(zversion)
377 ZEND_PARSE_PARAMETERS_END();
378
379 ION_STRING is;
380 ION_SYMBOL_TABLE *tab_ptr = NULL;
381 ION_CHECK(ion_catalog_find_symbol_table(obj->cat, ion_string_from_zend(&is, zname), zversion, &tab_ptr));
382 if (tab_ptr) {
383 php_ion_catalog_symbol_table_zval(obj, tab_ptr, return_value);
384 }
385 }
386 static ZEND_METHOD(ion_Catalog, findBest)
387 {
388 php_ion_catalog *obj = php_ion_obj(catalog, Z_OBJ_P(ZEND_THIS));
389 OBJ_CHECK(obj);
390
391 zend_long zversion = 0;
392 zend_string *zname;
393 ZEND_PARSE_PARAMETERS_START(1, 2)
394 Z_PARAM_STR(zname)
395 Z_PARAM_OPTIONAL
396 Z_PARAM_LONG(zversion)
397 ZEND_PARSE_PARAMETERS_END();
398
399 ION_STRING is;
400 ION_SYMBOL_TABLE *tab_ptr = NULL;
401 ION_CHECK(ion_catalog_find_best_match(obj->cat, ion_string_from_zend(&is, zname), zversion, &tab_ptr));
402 if (tab_ptr) {
403 php_ion_catalog_symbol_table_zval(obj, tab_ptr, return_value);
404 }
405 }
406 static ZEND_METHOD(ion_Timestamp, __construct)
407 {
408 php_ion_timestamp *obj = php_ion_obj(timestamp, Z_OBJ_P(ZEND_THIS));
409 PTR_CHECK(obj);
410
411 zend_long precision;
412 zend_object *precision_obj = NULL, *format_obj = NULL;
413 zend_string *fmt = NULL, *dt = NULL;
414 zval *tz = NULL;
415 ZEND_PARSE_PARAMETERS_START(1, 4)
416 Z_PARAM_OBJ_OF_CLASS_OR_LONG(precision_obj, ce_Timestamp_Precision, precision)
417 Z_PARAM_OPTIONAL
418 Z_PARAM_OBJ_OF_CLASS_OR_STR_OR_NULL(format_obj, ce_Timestamp_Format, fmt)
419 Z_PARAM_STR_OR_NULL(dt)
420 Z_PARAM_ZVAL(tz)
421 ZEND_PARSE_PARAMETERS_END();
422
423 if (precision_obj) {
424 precision = Z_LVAL_P(zend_enum_fetch_case_value(precision_obj));
425 }
426 if (format_obj) {
427 fmt = Z_STR_P(zend_enum_fetch_case_value(format_obj));
428 }
429 php_ion_timestamp_ctor(obj, precision, fmt, dt, tz);
430 }
431 static ZEND_METHOD(ion_Timestamp, __toString)
432 {
433 php_ion_timestamp *obj = php_ion_obj(timestamp, Z_OBJ_P(ZEND_THIS));
434 OBJ_CHECK(obj);
435
436 ZEND_PARSE_PARAMETERS_NONE();
437
438 zval fmt;
439 ZVAL_NULL(&fmt);
440 zend_call_method_with_1_params(&obj->std, obj->std.ce, NULL, "format", return_value,
441 zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("format"), 0, &fmt));
442 }
443 static ZEND_METHOD(ion_Decimal_Context, __construct)
444 {
445 php_ion_decimal_ctx *obj = php_ion_obj(decimal_ctx, Z_OBJ_P(ZEND_THIS));
446 PTR_CHECK(obj);
447
448 zend_bool clamp;
449 zend_object *o_round = NULL;
450 zend_long digits, emax, emin, round;
451 ZEND_PARSE_PARAMETERS_START(5, 5)
452 Z_PARAM_LONG(digits)
453 Z_PARAM_LONG(emax)
454 Z_PARAM_LONG(emin)
455 Z_PARAM_OBJ_OF_CLASS_OR_LONG(o_round, ce_Decimal_Context_Rounding, round)
456 Z_PARAM_BOOL(clamp)
457 ZEND_PARSE_PARAMETERS_END();
458
459 if (o_round) {
460 round = Z_LVAL_P(zend_enum_fetch_case_value(o_round));
461 }
462 php_ion_decimal_ctx_init(&obj->ctx, digits, emax, emin, round, clamp); // NOLINT(cppcoreguidelines-narrowing-conversions)
463 php_ion_decimal_ctx_ctor(obj, o_round);
464 }
465 static inline void make_decimal_ctx(INTERNAL_FUNCTION_PARAMETERS, int kind)
466 {
467 ZEND_PARSE_PARAMETERS_NONE();
468
469 object_init_ex(return_value, ce_Decimal_Context);
470 php_ion_decimal_ctx *obj = php_ion_obj(decimal_ctx, Z_OBJ_P(return_value));
471 decContextDefault(&obj->ctx, kind);
472 php_ion_decimal_ctx_ctor(obj, NULL);
473 }
474 static ZEND_METHOD(ion_Decimal_Context, Dec32)
475 {
476 make_decimal_ctx(INTERNAL_FUNCTION_PARAM_PASSTHRU, DEC_INIT_DECIMAL32);
477 }
478 static ZEND_METHOD(ion_Decimal_Context, Dec64)
479 {
480 make_decimal_ctx(INTERNAL_FUNCTION_PARAM_PASSTHRU, DEC_INIT_DECIMAL64);
481 }
482 static ZEND_METHOD(ion_Decimal_Context, Dec128)
483 {
484 make_decimal_ctx(INTERNAL_FUNCTION_PARAM_PASSTHRU, DEC_INIT_DECIMAL128);
485 }
486 static ZEND_METHOD(ion_Decimal_Context, DecMax)
487 {
488 zend_object *o_round = NULL;
489 zend_long round = DEC_ROUND_HALF_EVEN;
490 ZEND_PARSE_PARAMETERS_START(0, 1)
491 Z_PARAM_OPTIONAL
492 Z_PARAM_OBJ_OF_CLASS_OR_LONG(o_round, ce_Decimal_Context_Rounding, round)
493 ZEND_PARSE_PARAMETERS_END();
494
495 if (o_round) {
496 round = Z_LVAL_P(zend_enum_fetch_case_value(o_round));
497 }
498 object_init_ex(return_value, ce_Decimal_Context);
499 php_ion_decimal_ctx *obj = php_ion_obj(decimal_ctx, Z_OBJ_P(return_value));
500 php_ion_decimal_ctx_init_max(&obj->ctx, round);
501 php_ion_decimal_ctx_ctor(obj, o_round);
502 }
503 static ZEND_METHOD(ion_Decimal, __construct)
504 {
505 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
506 PTR_CHECK(obj);
507
508 zend_long num;
509 zend_string *zstr;
510 ZEND_PARSE_PARAMETERS_START(1, 2)
511 Z_PARAM_STR_OR_LONG(zstr, num)
512 Z_PARAM_OPTIONAL
513 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->ctx, ce_Decimal_Context)
514 ZEND_PARSE_PARAMETERS_END();
515
516 if (obj->ctx) {
517 GC_ADDREF(obj->ctx);
518 } else {
519 zval zdc;
520 object_init_ex(&zdc, ce_Decimal_Context);
521 obj->ctx = Z_OBJ(zdc);
522 php_ion_decimal_ctx_ctor(php_ion_obj(decimal_ctx, obj->ctx), NULL);
523 }
524
525 decContext *ctx = &php_ion_obj(decimal_ctx, obj->ctx)->ctx;
526
527 if (zstr) {
528 ION_CHECK(ion_decimal_from_string(&obj->dec, zstr->val, ctx), OBJ_RELEASE(obj->ctx));
529 } else {
530 php_ion_decimal_from_zend_long(&obj->dec, ctx, num);
531 }
532
533 php_ion_decimal_ctor(obj);
534 OBJ_RELEASE(obj->ctx);
535 }
536 static ZEND_METHOD(ion_Decimal, equals)
537 {
538 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
539 PTR_CHECK(obj);
540
541 zend_object *dec_obj;
542 ZEND_PARSE_PARAMETERS_START(1, 1)
543 Z_PARAM_OBJ_OF_CLASS(dec_obj, ce_Decimal)
544 ZEND_PARSE_PARAMETERS_END();
545
546 BOOL is = FALSE;
547 ION_CHECK(ion_decimal_equals(&obj->dec, &php_ion_obj(decimal, dec_obj)->dec,
548 obj->ctx ? &php_ion_obj(decimal_ctx, obj->ctx)->ctx : NULL, &is));
549 RETURN_BOOL(is);
550 }
551 static ZEND_METHOD(ion_Decimal, __toString)
552 {
553 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
554 PTR_CHECK(obj);
555
556 ZEND_PARSE_PARAMETERS_NONE();
557
558 RETURN_STR(php_ion_decimal_to_string(&obj->dec));
559 }
560 static ZEND_METHOD(ion_Decimal, toInt)
561 {
562 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
563 PTR_CHECK(obj);
564
565 ZEND_PARSE_PARAMETERS_NONE();
566
567 zend_long l;
568 php_ion_decimal_to_zend_long(&obj->dec, &php_ion_obj(decimal_ctx, obj->ctx)->ctx, &l);
569 RETURN_LONG(l);
570 }
571 static ZEND_METHOD(ion_Decimal, isInt)
572 {
573 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
574 PTR_CHECK(obj);
575
576 ZEND_PARSE_PARAMETERS_NONE();
577
578 RETURN_BOOL(ion_decimal_is_integer(&obj->dec));
579 }
580 static ZEND_METHOD(ion_LOB, __construct)
581 {
582 zend_string *value;
583 zend_object *type = NULL;
584 ZEND_PARSE_PARAMETERS_START(1, 2)
585 Z_PARAM_STR(value)
586 Z_PARAM_OPTIONAL
587 Z_PARAM_OBJ_OF_CLASS(type, ce_Type)
588 ZEND_PARSE_PARAMETERS_END();
589
590 if (!type) {
591 type = zend_enum_get_case_cstr(ce_Type, "CLob");
592 }
593 update_property_obj(Z_OBJ_P(ZEND_THIS), ZEND_STRL("type"), type);
594 zend_update_property_str(Z_OBJCE_P(ZEND_THIS), Z_OBJ_P(ZEND_THIS), ZEND_STRL("value"), value);
595 }
596 static ZEND_METHOD(ion_Reader_Options, __construct)
597 {
598 php_ion_reader_options *opt = php_ion_obj(reader_options, Z_OBJ_P(ZEND_THIS));
599 zend_bool ret_sys_val = false, skip_validation = false;
600 zend_long ch_nl = 0xa, max_depth = 10, max_ann = 10, max_ann_buf = 512,
601 sym_thr = 0x4000, uval_thr = 0x4000, chunk_thr = 0x4000, alloc_pgsz = 0x10000;
602
603 PTR_CHECK(opt);
604
605 ZEND_PARSE_PARAMETERS_START(0, 13)
606 Z_PARAM_OPTIONAL
607 // public readonly ?\ion\Catalog $catalog = null,
608 Z_PARAM_OBJ_OF_CLASS_OR_NULL(opt->cat, ce_Catalog)
609 // public readonly ?\ion\Decimal\Context $decimalContext = null,
610 Z_PARAM_OBJ_OF_CLASS_OR_NULL(opt->dec_ctx, ce_Decimal_Context)
611 // public readonly ?\Closure $onContextChange = null,
612 Z_PARAM_OBJ_OF_CLASS_OR_NULL(opt->cb, zend_ce_closure);
613 // public readonly bool $returnSystemValues = false,
614 Z_PARAM_BOOL(ret_sys_val)
615 // public readonly int $newLine = 0xa,
616 Z_PARAM_LONG(ch_nl)
617 // public readonly int $maxContainerDepth = 10,
618 Z_PARAM_LONG(max_depth)
619 // public readonly int $maxAnnotations = 10,
620 Z_PARAM_LONG(max_ann)
621 // public readonly int $maxAnnotationBuffered = 512,
622 Z_PARAM_LONG(max_ann_buf)
623 // public readonly int $symbolThreshold = 0x4000,
624 Z_PARAM_LONG(sym_thr)
625 // public readonly int $userValueThreshold = 0x4000,
626 Z_PARAM_LONG(uval_thr)
627 // public readonly int $chunkThreshold = 0x4000,
628 Z_PARAM_LONG(chunk_thr)
629 // public readonly int $allocationPageSize = 0x10000,
630 Z_PARAM_LONG(alloc_pgsz)
631 // public readonly bool $skipCharacterValidation = false,
632 Z_PARAM_BOOL(skip_validation)
633 ZEND_PARSE_PARAMETERS_END();
634
635 if (opt->cb) {
636 zval zcb;
637 ZVAL_OBJ(&zcb, opt->cb);
638 zend_fcall_info_init(&zcb, 0, &opt->ccn.fci, &opt->ccn.fcc, NULL, NULL);
639 opt->opt.context_change_notifier.context = &opt->ccn;
640 update_property_obj(&opt->std, ZEND_STRL("onContextChange"), opt->cb);
641 } else {
642 zend_update_property_null(NULL, &opt->std, ZEND_STRL("onContextChange"));
643 }
644 if (opt->cat) {
645 update_property_obj(&opt->std, ZEND_STRL("catalog"), opt->cat);
646 opt->opt.pcatalog = php_ion_obj(catalog, opt->cat)->cat;
647 } else {
648 zend_update_property_null(NULL, &opt->std, ZEND_STRL("catalog"));
649 }
650 if (opt->dec_ctx) {
651 update_property_obj(&opt->std, ZEND_STRL("decimalContext"), opt->dec_ctx);
652 opt->opt.decimal_context = &php_ion_obj(decimal_ctx, opt->dec_ctx)->ctx;
653 } else {
654 zend_update_property_null(NULL, &opt->std, ZEND_STRL("decimalContext"));
655 }
656 zend_update_property_bool(opt->std.ce, &opt->std, ZEND_STRL("returnSystemValues"),
657 opt->opt.return_system_values = ret_sys_val);
658 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("newLine"),
659 opt->opt.new_line_char = (int) ch_nl);
660 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("maxContainerDepth"),
661 opt->opt.max_container_depth = (SIZE) max_depth);
662 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("maxAnnotations"),
663 opt->opt.max_annotation_count = (SIZE) max_ann);
664 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("maxAnnotationBuffered"),
665 opt->opt.max_annotation_buffered = (SIZE) max_ann_buf);
666 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("symbolThreshold"),
667 opt->opt.symbol_threshold = (SIZE) sym_thr);
668 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("userValueThreshold"),
669 opt->opt.user_value_threshold = (SIZE) uval_thr);
670 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("chunkThreshold"),
671 opt->opt.chunk_threshold = (SIZE) chunk_thr);
672 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("allocationPageSize"),
673 opt->opt.allocation_page_size = (SIZE) alloc_pgsz);
674 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("skipCharacterValidation"),
675 opt->opt.skip_character_validation = (SIZE) skip_validation);
676 }
677 static ZEND_METHOD(ion_Reader_Reader, hasChildren)
678 {
679 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
680
681 OBJ_CHECK(obj);
682 ZEND_PARSE_PARAMETERS_NONE();
683
684 ION_TYPE t;
685 ION_CHECK(ion_reader_get_type(obj->reader, &t));
686 switch (ION_TYPE_INT(t)) {
687 case tid_LIST_INT:
688 case tid_SEXP_INT:
689 case tid_STRUCT_INT:
690 RETVAL_TRUE;
691 break;
692 default:
693 RETVAL_FALSE;
694 break;
695 }
696 }
697 static ZEND_METHOD(ion_Reader_Reader, getChildren)
698 {
699 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
700 OBJ_CHECK(obj);
701
702 ZEND_PARSE_PARAMETERS_NONE();
703
704 ION_CHECK(ion_reader_step_in(obj->reader));
705
706 RETURN_ZVAL(ZEND_THIS, 1, 0);
707 }
708 static ZEND_METHOD(ion_Reader_Reader, rewind)
709 {
710 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
711 OBJ_CHECK(obj);
712
713 ZEND_PARSE_PARAMETERS_NONE();
714
715 ION_CHECK(ion_reader_next(obj->reader, &obj->state));
716 }
717 static ZEND_METHOD(ion_Reader_Reader, next)
718 {
719 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
720 OBJ_CHECK(obj);
721
722 ZEND_PARSE_PARAMETERS_NONE();
723
724 if (obj->state == tid_EOF) {
725 SIZE depth = 0;
726 ION_CHECK(ion_reader_get_depth(obj->reader, &depth));
727 if (depth) {
728 ION_CHECK(ion_reader_step_out(obj->reader));
729 }
730 }
731 ION_CHECK(ion_reader_next(obj->reader, &obj->state));
732 }
733 static ZEND_METHOD(ion_Reader_Reader, valid)
734 {
735 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
736 OBJ_CHECK(obj);
737
738 ZEND_PARSE_PARAMETERS_NONE();
739 RETURN_BOOL(obj->state != tid_none && obj->state != tid_EOF);
740 }
741 static ZEND_METHOD(ion_Reader_Reader, key)
742 {
743 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
744 OBJ_CHECK(obj);
745
746 ZEND_PARSE_PARAMETERS_NONE();
747 RETURN_IONTYPE(obj->state);
748 }
749 static ZEND_METHOD(ion_Reader_Reader, current)
750 {
751 ZEND_PARSE_PARAMETERS_NONE();
752 RETURN_ZVAL(ZEND_THIS, 1, 0);
753 }
754 static ZEND_METHOD(ion_Reader_Reader, getType)
755 {
756 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
757 OBJ_CHECK(obj);
758
759 ZEND_PARSE_PARAMETERS_NONE();
760
761 ION_TYPE typ;
762 ION_CHECK(ion_reader_get_type(obj->reader, &typ));
763 RETURN_IONTYPE(typ);
764 }
765 static ZEND_METHOD(ion_Reader_Reader, hasAnnotations)
766 {
767 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
768 OBJ_CHECK(obj);
769
770 ZEND_PARSE_PARAMETERS_NONE();
771
772 BOOL has = FALSE;
773 ION_CHECK(ion_reader_has_any_annotations(obj->reader, &has));
774 RETURN_BOOL(has);
775 }
776 static ZEND_METHOD(ion_Reader_Reader, hasAnnotation)
777 {
778 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
779 OBJ_CHECK(obj);
780
781 zend_string *ann_zstr;
782 ZEND_PARSE_PARAMETERS_START(1, 1);
783 Z_PARAM_STR(ann_zstr);
784 ZEND_PARSE_PARAMETERS_END();
785
786 ION_STRING ann_istr;
787 BOOL has = FALSE;
788 ION_CHECK(ion_reader_has_annotation(obj->reader, ion_string_from_zend(&ann_istr, ann_zstr), &has));
789 RETURN_BOOL(has);
790 }
791 static ZEND_METHOD(ion_Reader_Reader, isNull)
792 {
793 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
794 OBJ_CHECK(obj);
795
796 ZEND_PARSE_PARAMETERS_NONE();
797
798 BOOL is = FALSE;
799 ION_CHECK(ion_reader_is_null(obj->reader, &is));
800 RETURN_BOOL(is);
801 }
802 static ZEND_METHOD(ion_Reader_Reader, isInStruct)
803 {
804 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
805 OBJ_CHECK(obj);
806
807 ZEND_PARSE_PARAMETERS_NONE();
808
809 BOOL is = FALSE;
810 ION_CHECK(ion_reader_is_in_struct(obj->reader, &is));
811 RETURN_BOOL(is);
812 }
813 static ZEND_METHOD(ion_Reader_Reader, getFieldName)
814 {
815 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
816 OBJ_CHECK(obj);
817
818 ZEND_PARSE_PARAMETERS_NONE();
819
820 ION_STRING name;
821 ION_CHECK(ion_reader_get_field_name(obj->reader, &name));
822 RETURN_STRINGL((char *) name.value, name.length);
823 }
824 static ZEND_METHOD(ion_Reader_Reader, getFieldNameSymbol)
825 {
826 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
827 OBJ_CHECK(obj);
828
829 ZEND_PARSE_PARAMETERS_NONE();
830
831 ION_SYMBOL *sym_ptr;
832 ION_CHECK(ion_reader_get_field_name_symbol(obj->reader, &sym_ptr));
833
834 php_ion_symbol_zval(sym_ptr, return_value);
835 }
836 static ZEND_METHOD(ion_Reader_Reader, getAnnotations)
837 {
838 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
839 OBJ_CHECK(obj);
840
841 ZEND_PARSE_PARAMETERS_NONE();
842
843 int32_t count, max;
844 if (obj->opt) {
845 max = php_ion_obj(reader_options, obj->opt)->opt.max_annotation_count;
846 } else {
847 max = 10;
848 }
849 ION_STRING *ptr = ecalloc(sizeof(*ptr), max);
850 iERR err = ion_reader_get_annotations(obj->reader, ptr, max, &count);
851 if (!err) {
852 array_init_size(return_value, count);
853 for (int32_t i = 0; i < count; ++i) {
854 add_next_index_str(return_value, zend_string_from_ion(&ptr[i]));
855 }
856 }
857 efree(ptr);
858 ION_CHECK(err);
859 }
860 static ZEND_METHOD(ion_Reader_Reader, getAnnotationSymbols)
861 {
862 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
863 OBJ_CHECK(obj);
864
865 ZEND_PARSE_PARAMETERS_NONE();
866
867 int32_t count, max;
868 if (obj->opt) {
869 max = php_ion_obj(reader_options, obj->opt)->opt.max_annotation_count;
870 } else {
871 max = 10;
872 }
873 ION_SYMBOL *ptr = ecalloc(sizeof(*ptr), max);
874 iERR err = ion_reader_get_annotation_symbols(obj->reader, ptr, max, &count);
875 if (!err) {
876 array_init_size(return_value, count);
877 for (int32_t i = 0; i < count; ++i) {
878 zval zsym;
879 php_ion_symbol_zval(&ptr[i], &zsym);
880 add_next_index_zval(return_value, &zsym);
881 }
882 }
883 efree(ptr);
884 ION_CHECK(err);
885 }
886 static ZEND_METHOD(ion_Reader_Reader, countAnnotations)
887 {
888 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
889 OBJ_CHECK(obj);
890
891 ZEND_PARSE_PARAMETERS_NONE();
892
893 SIZE sz = 0;
894 ION_CHECK(ion_reader_get_annotation_count(obj->reader, &sz));
895 RETURN_LONG(sz);
896 }
897 static ZEND_METHOD(ion_Reader_Reader, getAnnotation)
898 {
899 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
900 OBJ_CHECK(obj);
901
902 zend_long idx;
903 ZEND_PARSE_PARAMETERS_START(1, 1)
904 Z_PARAM_LONG(idx);
905 ZEND_PARSE_PARAMETERS_END();
906
907 ION_STRING ann;
908 ION_CHECK(ion_reader_get_an_annotation(obj->reader, idx, &ann));
909 RETURN_STRINGL((char *) ann.value, ann.length);
910 }
911 static ZEND_METHOD(ion_Reader_Reader, getAnnotationSymbol)
912 {
913 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
914 OBJ_CHECK(obj);
915
916 zend_long idx;
917 ZEND_PARSE_PARAMETERS_START(1, 1)
918 Z_PARAM_LONG(idx);
919 ZEND_PARSE_PARAMETERS_END();
920
921 ION_SYMBOL sym;
922 ION_CHECK(ion_reader_get_an_annotation_symbol(obj->reader, idx, &sym));
923 php_ion_symbol_zval(&sym, return_value);
924 }
925 static ZEND_METHOD(ion_Reader_Reader, readNull)
926 {
927 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
928 OBJ_CHECK(obj);
929
930 ZEND_PARSE_PARAMETERS_NONE();
931
932 ION_TYPE typ;
933 ION_CHECK(ion_reader_read_null(obj->reader, &typ));
934 RETURN_IONTYPE(typ);
935 }
936 static ZEND_METHOD(ion_Reader_Reader, readBool)
937 {
938 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
939 OBJ_CHECK(obj);
940
941 ZEND_PARSE_PARAMETERS_NONE();
942
943 BOOL b;
944 ION_CHECK(ion_reader_read_bool(obj->reader, &b));
945 RETURN_BOOL(b);
946 }
947 static ZEND_METHOD(ion_Reader_Reader, readInt)
948 {
949 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
950 OBJ_CHECK(obj);
951
952 ZEND_PARSE_PARAMETERS_NONE();
953
954 php_ion_reader_read_int(obj->reader, return_value);
955 }
956 static ZEND_METHOD(ion_Reader_Reader, readFloat)
957 {
958 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
959 OBJ_CHECK(obj);
960
961 ZEND_PARSE_PARAMETERS_NONE();
962
963 double dval;
964 ION_CHECK(ion_reader_read_double(obj->reader, &dval));
965 RETURN_DOUBLE(dval);
966 }
967 static ZEND_METHOD(ion_Reader_Reader, readDecimal)
968 {
969 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
970 OBJ_CHECK(obj);
971
972 ZEND_PARSE_PARAMETERS_NONE();
973
974 object_init_ex(return_value, ce_Decimal);
975 php_ion_decimal *dec = php_ion_obj(decimal, Z_OBJ_P(return_value));
976 ION_CHECK(ion_reader_read_ion_decimal(obj->reader, &dec->dec));
977 php_ion_decimal_ctor(dec);
978 }
979 static ZEND_METHOD(ion_Reader_Reader, readTimestamp)
980 {
981 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
982 OBJ_CHECK(obj);
983
984 ZEND_PARSE_PARAMETERS_NONE();
985
986 php_ion_reader_read_timestamp(obj->reader, obj->opt ? &php_ion_obj(reader_options, obj->opt)->opt : NULL, return_value);
987 }
988 static ZEND_METHOD(ion_Reader_Reader, readSymbol)
989 {
990 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
991 OBJ_CHECK(obj);
992
993 ZEND_PARSE_PARAMETERS_NONE();
994
995 ION_SYMBOL sym;
996 ION_CHECK(ion_reader_read_ion_symbol(obj->reader, &sym));
997 php_ion_symbol_zval(&sym, return_value);
998 }
999 static ZEND_METHOD(ion_Reader_Reader, readString)
1000 {
1001 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1002 OBJ_CHECK(obj);
1003
1004 ZEND_PARSE_PARAMETERS_NONE();
1005
1006 ION_STRING str;
1007 ION_CHECK(ion_reader_read_string(obj->reader, &str));
1008 RETURN_STRINGL((char *) str.value, str.length);
1009 }
1010
1011 typedef iERR (*read_part_fn)(ION_READER *, BYTE *, SIZE, SIZE *);
1012 static void read_part(INTERNAL_FUNCTION_PARAMETERS, read_part_fn fn)
1013 {
1014 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1015 OBJ_CHECK(obj);
1016
1017 zval *ref;
1018 zend_string *zstr;
1019 zend_long len = 0x1000;
1020 ZEND_PARSE_PARAMETERS_START(1, 1)
1021 Z_PARAM_ZVAL(ref)
1022 Z_PARAM_OPTIONAL
1023 Z_PARAM_LONG(len)
1024 ZEND_PARSE_PARAMETERS_END();
1025
1026 ZVAL_DEREF(ref);
1027
1028 if (Z_TYPE_P(ref) == IS_STRING && Z_STRLEN_P(ref) == len) {
1029 /* reuse */
1030 zstr = Z_STR_P(ref);
1031 } else {
1032 zval_dtor(ref);
1033 zstr = zend_string_alloc(len, 0);
1034 }
1035
1036 SIZE read = 0;
1037 ION_CHECK(fn(obj->reader, (BYTE *) zstr->val, zstr->len, &read), goto fail);
1038 if (read > 0) {
1039 if (read < zstr->len) {
1040 zstr = zend_string_truncate(zstr, read, 0);
1041 }
1042 ZVAL_STR(ref, zstr);
1043 RETURN_TRUE;
1044 }
1045 fail:
1046 zend_string_release(zstr);
1047 ZVAL_EMPTY_STRING(ref);
1048 RETURN_FALSE;
1049 }
1050 static ZEND_METHOD(ion_Reader_Reader, readStringPart)
1051 {
1052 read_part(INTERNAL_FUNCTION_PARAM_PASSTHRU, ion_reader_read_partial_string);
1053 }
1054 static ZEND_METHOD(ion_Reader_Reader, readLob)
1055 {
1056 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1057 OBJ_CHECK(obj);
1058
1059 ZEND_PARSE_PARAMETERS_NONE();
1060
1061 php_ion_reader_read_lob(obj->reader, return_value);
1062 }
1063 static ZEND_METHOD(ion_Reader_Reader, readLobPart)
1064 {
1065 read_part(INTERNAL_FUNCTION_PARAM_PASSTHRU, ion_reader_read_lob_partial_bytes);
1066 }
1067 static ZEND_METHOD(ion_Reader_Reader, getPosition)
1068 {
1069 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1070 OBJ_CHECK(obj);
1071
1072 ZEND_PARSE_PARAMETERS_NONE();
1073
1074 int64_t bytes = 0;
1075 int32_t dummy;
1076 ION_CHECK(ion_reader_get_position(obj->reader, &bytes, &dummy, &dummy));
1077 RETURN_LONG(bytes);
1078 }
1079 static ZEND_METHOD(ion_Reader_Reader, getDepth)
1080 {
1081 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1082 OBJ_CHECK(obj);
1083
1084 ZEND_PARSE_PARAMETERS_NONE();
1085
1086 SIZE depth = 0;
1087 ION_CHECK(ion_reader_get_depth(obj->reader, &depth));
1088 RETURN_LONG(depth);
1089 }
1090 static ZEND_METHOD(ion_Reader_Reader, seek)
1091 {
1092 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1093 OBJ_CHECK(obj);
1094
1095 zend_long off, len = -1;
1096 ZEND_PARSE_PARAMETERS_START(1, 2)
1097 Z_PARAM_LONG(off)
1098 Z_PARAM_OPTIONAL
1099 Z_PARAM_LONG(len)
1100 ZEND_PARSE_PARAMETERS_END();
1101
1102 ION_CHECK(ion_reader_seek(obj->reader, off, len));
1103 }
1104 static ZEND_METHOD(ion_Reader_Reader, getValueOffset)
1105 {
1106 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1107 OBJ_CHECK(obj);
1108
1109 ZEND_PARSE_PARAMETERS_NONE();
1110
1111 POSITION off = 0;
1112 ION_CHECK(ion_reader_get_value_offset(obj->reader, &off));
1113 RETURN_LONG(off);
1114 }
1115 static ZEND_METHOD(ion_Reader_Reader, getValueLength)
1116 {
1117 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1118 OBJ_CHECK(obj);
1119
1120 ZEND_PARSE_PARAMETERS_NONE();
1121
1122 SIZE len = 0;
1123 ION_CHECK(ion_reader_get_value_length(obj->reader, &len));
1124 RETURN_LONG(len);
1125 }
1126 static ZEND_METHOD(ion_Reader_Buffer_Reader, __construct)
1127 {
1128 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1129 PTR_CHECK(obj);
1130
1131 zend_string *zstr;
1132 ZEND_PARSE_PARAMETERS_START(1, 2)
1133 Z_PARAM_STR(zstr)
1134 Z_PARAM_OPTIONAL
1135 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Reader_Options)
1136 ZEND_PARSE_PARAMETERS_END();
1137
1138 obj->type = BUFFER_READER;
1139 obj->buffer = zend_string_copy(zstr);
1140
1141 php_ion_reader_ctor(obj);
1142 }
1143 static ZEND_METHOD(ion_Reader_Buffer_Reader, getBuffer)
1144 {
1145 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1146 OBJ_CHECK(obj);
1147
1148 ZEND_PARSE_PARAMETERS_NONE();
1149 RETURN_STR_COPY(obj->buffer);
1150 }
1151
1152 static ZEND_METHOD(ion_Reader_Stream_Reader, __construct)
1153 {
1154 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1155 PTR_CHECK(obj);
1156
1157 zval *zstream;
1158 ZEND_PARSE_PARAMETERS_START(1, 2)
1159 Z_PARAM_RESOURCE(zstream)
1160 Z_PARAM_OPTIONAL
1161 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Reader_Options)
1162 ZEND_PARSE_PARAMETERS_END();
1163
1164 obj->type = STREAM_READER;
1165 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1166
1167 php_ion_reader_ctor(obj);
1168 }
1169 static ZEND_METHOD(ion_Reader_Stream_Reader, getStream)
1170 {
1171 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1172 OBJ_CHECK(obj);
1173
1174 ZEND_PARSE_PARAMETERS_NONE();
1175 PTR_CHECK(obj->stream.ptr);
1176
1177 GC_ADDREF(obj->stream.ptr->res);
1178 RETURN_RES(obj->stream.ptr->res);
1179 }
1180 static ZEND_METHOD(ion_Reader_Stream_Reader, resetStream)
1181 {
1182 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1183 OBJ_CHECK(obj);
1184
1185 zval *zstream;
1186 ZEND_PARSE_PARAMETERS_START(1, 1);
1187 Z_PARAM_RESOURCE(zstream);
1188 ZEND_PARSE_PARAMETERS_END();
1189
1190 ION_CHECK(ion_reader_reset_stream(&obj->reader, obj, php_ion_reader_stream_handler));
1191
1192 if (obj->stream.ptr) {
1193 zend_list_delete(obj->stream.ptr->res);
1194 }
1195 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1196 PTR_CHECK(obj->stream.ptr);
1197 Z_ADDREF_P(zstream);
1198 }
1199 static ZEND_METHOD(ion_Reader_Stream_Reader, resetStreamWithLength)
1200 {
1201 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1202 OBJ_CHECK(obj);
1203
1204 zval *zstream;
1205 zend_long length;
1206 ZEND_PARSE_PARAMETERS_START(2, 2);
1207 Z_PARAM_RESOURCE(zstream);
1208 Z_PARAM_LONG(length)
1209 ZEND_PARSE_PARAMETERS_END();
1210
1211 ION_CHECK(ion_reader_reset_stream_with_length(&obj->reader, obj, php_ion_reader_stream_handler, length));
1212
1213 if (obj->stream.ptr) {
1214 zend_list_delete(obj->stream.ptr->res);
1215 }
1216 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1217 PTR_CHECK(obj->stream.ptr);
1218 Z_ADDREF_P(zstream);
1219 }
1220 static ZEND_METHOD(ion_Writer_Options, __construct)
1221 {
1222 php_ion_writer_options *obj = php_ion_obj(writer_options, Z_OBJ_P(ZEND_THIS));
1223 PTR_CHECK(obj);
1224
1225 zend_bool binary = false, compact_floats = false, escape = false, pretty = false,
1226 tabs = true, small_cntr_inl = true, suppress_sys = false, flush = false;
1227 zend_long indent = 2, max_depth = 10, max_ann = 10, temp = 0x4000, alloc = 0x10000;
1228 ZEND_PARSE_PARAMETERS_START(0, 15)
1229 Z_PARAM_OPTIONAL
1230 //public readonly ?\ion\Catalog $catalog = null,
1231 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->cat, ce_Catalog)
1232 //public readonly ?\ion\Decimal\Context $decimalContext = null,
1233 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->dec_ctx, ce_Decimal_Context)
1234 //public readonly bool $outputBinary = false,
1235 Z_PARAM_BOOL(binary)
1236 //public readonly bool $compactFloats = false,
1237 Z_PARAM_BOOL(compact_floats)
1238 //public readonly bool $escapeNonAscii = false,
1239 Z_PARAM_BOOL(escape)
1240 //public readonly bool $prettyPrint = false,
1241 Z_PARAM_BOOL(pretty)
1242 //public readonly bool $indentTabs = true,
1243 Z_PARAM_BOOL(tabs)
1244 //public readonly int $indentSize = 2,
1245 Z_PARAM_LONG(indent)
1246 //public readonly bool $smallContainersInline = true,
1247 Z_PARAM_BOOL(small_cntr_inl)
1248 //public readonly bool $suppressSystemValues = false,
1249 Z_PARAM_BOOL(suppress_sys)
1250 //public readonly bool $flushEveryValue = false,
1251 Z_PARAM_BOOL(flush)
1252 //public readonly int $maxContainerDepth = 10,
1253 Z_PARAM_LONG(max_depth)
1254 //public readonly int $maxAnnotations = 10,
1255 Z_PARAM_LONG(max_ann)
1256 //public readonly int $tempBufferSize = 0x4000,
1257 Z_PARAM_LONG(temp)
1258 //public readonly int $allocationPageSize = 0x10000,
1259 Z_PARAM_LONG(alloc)
1260 ZEND_PARSE_PARAMETERS_END();
1261
1262 if (obj->cat) {
1263 update_property_obj(&obj->std, ZEND_STRL("catalog"), obj->cat);
1264 obj->opt.pcatalog = php_ion_obj(catalog, obj->cat)->cat;
1265 } else {
1266 zend_update_property_null(NULL, &obj->std, ZEND_STRL("catalog"));
1267 }
1268 if (obj->dec_ctx) {
1269 update_property_obj(&obj->std, ZEND_STRL("decimalContext"), obj->dec_ctx);
1270 obj->opt.decimal_context = &php_ion_obj(decimal_ctx, obj->dec_ctx)->ctx;
1271 } else {
1272 zend_update_property_null(NULL, &obj->std, ZEND_STRL("decimalContext"));
1273 }
1274 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("outputBinary"),
1275 obj->opt.output_as_binary = binary);
1276 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("compactFloats"),
1277 obj->opt.compact_floats = compact_floats);
1278 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("escapeNonAscii"),
1279 obj->opt.escape_all_non_ascii = escape);
1280 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("prettyPrint"),
1281 obj->opt.pretty_print = pretty);
1282 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("indentTabs"),
1283 obj->opt.indent_with_tabs = tabs);
1284 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("indentSize"),
1285 obj->opt.indent_size = (SIZE) indent);
1286 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("smallContainersInline"),
1287 obj->opt.small_containers_in_line = small_cntr_inl);
1288 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("suppressSystemValues"),
1289 obj->opt.supress_system_values = suppress_sys);
1290 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("flushEveryValue"),
1291 obj->opt.flush_every_value = flush);
1292 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("maxContainerDepth"),
1293 obj->opt.max_container_depth = (SIZE) max_depth);
1294 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("maxAnnotations"),
1295 obj->opt.max_annotation_count = (SIZE) max_ann);
1296 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("tempBufferSize"),
1297 obj->opt.temp_buffer_size = (SIZE) temp);
1298 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("allocationPageSize"),
1299 obj->opt.allocation_page_size = (SIZE) alloc);
1300 }
1301 static ZEND_METHOD(ion_Writer_Writer, writeNull)
1302 {
1303 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1304 OBJ_CHECK(obj);
1305
1306 ZEND_PARSE_PARAMETERS_NONE();
1307
1308 ION_CHECK(ion_writer_write_null(obj->writer));
1309 }
1310 static ZEND_METHOD(ion_Writer_Writer, writeTypedNull)
1311 {
1312 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1313 OBJ_CHECK(obj);
1314
1315 zend_object *typ_obj;
1316 ZEND_PARSE_PARAMETERS_START(1, 1)
1317 Z_PARAM_OBJ_OF_CLASS(typ_obj, ce_Type)
1318 ZEND_PARSE_PARAMETERS_END();
1319
1320 ION_CHECK(ion_writer_write_typed_null(obj->writer, ion_type_from_enum(typ_obj)));
1321 }
1322 static ZEND_METHOD(ion_Writer_Writer, writeBool)
1323 {
1324 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1325 OBJ_CHECK(obj);
1326
1327 zend_bool b;
1328 ZEND_PARSE_PARAMETERS_START(1, 1)
1329 Z_PARAM_BOOL(b)
1330 ZEND_PARSE_PARAMETERS_END();
1331
1332 ION_CHECK(ion_writer_write_bool(obj->writer, b));
1333 }
1334 static ZEND_METHOD(ion_Writer_Writer, writeInt)
1335 {
1336 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1337 OBJ_CHECK(obj);
1338
1339 zend_long l;
1340 zend_string *s;
1341 ZEND_PARSE_PARAMETERS_START(1, 1)
1342 Z_PARAM_STR_OR_LONG(s, l)
1343 ZEND_PARSE_PARAMETERS_END();
1344
1345 if (s) {
1346 ION_INT *i;
1347 ION_CHECK(ion_int_alloc(obj->writer, &i));
1348 ION_CHECK(ion_int_from_chars(i, s->val, s->len));
1349 ION_CHECK(ion_writer_write_ion_int(obj->writer, i));
1350 ion_int_free(i);
1351 } else {
1352 ION_CHECK(ion_writer_write_int64(obj->writer, l));
1353 }
1354 }
1355 static ZEND_METHOD(ion_Writer_Writer, writeFloat)
1356 {
1357 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1358 OBJ_CHECK(obj);
1359
1360 double d;
1361 ZEND_PARSE_PARAMETERS_START(1, 1)
1362 Z_PARAM_DOUBLE(d)
1363 ZEND_PARSE_PARAMETERS_END();
1364
1365 ION_CHECK(ion_writer_write_double(obj->writer, d));
1366 }
1367 static ZEND_METHOD(ion_Writer_Writer, writeDecimal)
1368 {
1369 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1370 OBJ_CHECK(obj);
1371
1372 zend_object *dec_obj;
1373 zend_string *dec_str;
1374 ZEND_PARSE_PARAMETERS_START(1, 1)
1375 Z_PARAM_OBJ_OF_CLASS_OR_STR(dec_obj, ce_Decimal, dec_str)
1376 ZEND_PARSE_PARAMETERS_END();
1377
1378 if (dec_str) {
1379 decContext *ctx = &php_ion_globals.decimal.ctx;
1380 ION_DECIMAL dec = {0};
1381
1382 if (obj->opt) {
1383 php_ion_writer_options *opt_obj = php_ion_obj(writer_options, obj->opt);
1384 if (opt_obj->opt.decimal_context) {
1385 ctx = opt_obj->opt.decimal_context;
1386 }
1387 }
1388 ION_CHECK(ion_decimal_from_string(&dec, dec_str->val, ctx));
1389 ION_CHECK(ion_writer_write_ion_decimal(obj->writer, &dec));
1390 } else {
1391 php_ion_decimal *dec = php_ion_obj(decimal, dec_obj);
1392 ION_CHECK(ion_writer_write_ion_decimal(obj->writer, &dec->dec));
1393 }
1394 }
1395 static ZEND_METHOD(ion_Writer_Writer, writeTimestamp)
1396 {
1397 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1398 OBJ_CHECK(obj);
1399
1400 zend_object *ts_obj;
1401 zend_string *ts_str;
1402 ZEND_PARSE_PARAMETERS_START(1, 1)
1403 Z_PARAM_OBJ_OF_CLASS_OR_STR(ts_obj, ce_Timestamp, ts_str)
1404 ZEND_PARSE_PARAMETERS_END();
1405
1406 decContext *ctx = NULL;
1407 if (obj->opt) {
1408 ctx = php_ion_obj(reader_options, obj->opt)->opt.decimal_context;
1409 }
1410
1411 ION_TIMESTAMP tmp = {0};
1412 if (ts_str) {
1413 SIZE used;
1414 ION_CHECK(ion_timestamp_parse(&tmp, ts_str->val, ts_str->len, &used, ctx));
1415 } else {
1416 php_ion_timestamp *ts = php_ion_obj(timestamp, ts_obj);
1417 OBJ_CHECK(ts);
1418 ion_timestamp_from_php(&tmp, ts, ctx);
1419 }
1420 ION_CHECK(ion_writer_write_timestamp(obj->writer, &tmp));
1421 }
1422 static ZEND_METHOD(ion_Writer_Writer, writeSymbol)
1423 {
1424 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1425 OBJ_CHECK(obj);
1426
1427 zend_object *sym_obj;
1428 zend_string *sym_str;
1429 ZEND_PARSE_PARAMETERS_START(1, 1)
1430 Z_PARAM_OBJ_OF_CLASS_OR_STR(sym_obj, ce_Symbol, sym_str);
1431 ZEND_PARSE_PARAMETERS_END();
1432
1433 if (sym_str) {
1434 ION_STRING is;
1435 ION_CHECK(ion_writer_write_symbol(obj->writer, ion_string_from_zend(&is, sym_str)));
1436 } else {
1437 php_ion_symbol *sym = php_ion_obj(symbol, sym_obj);
1438 PTR_CHECK(sym);
1439 ION_CHECK(ion_writer_write_ion_symbol(obj->writer, &sym->sym));
1440 }
1441 }
1442 static ZEND_METHOD(ion_Writer_Writer, writeString)
1443 {
1444 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1445 OBJ_CHECK(obj);
1446
1447 zend_string *str;
1448 ZEND_PARSE_PARAMETERS_START(1, 1)
1449 Z_PARAM_STR(str)
1450 ZEND_PARSE_PARAMETERS_END();
1451
1452 ION_STRING is;
1453 ION_CHECK(ion_writer_write_string(obj->writer, ion_string_from_zend(&is, str)));
1454 }
1455 static ZEND_METHOD(ion_Writer_Writer, writeCLob)
1456 {
1457 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1458 OBJ_CHECK(obj);
1459
1460 zend_string *str;
1461 ZEND_PARSE_PARAMETERS_START(1, 1)
1462 Z_PARAM_STR(str)
1463 ZEND_PARSE_PARAMETERS_END();
1464
1465 ION_CHECK(ion_writer_write_clob(obj->writer, (BYTE *) str->val, str->len));
1466 }
1467 static ZEND_METHOD(ion_Writer_Writer, writeBLob)
1468 {
1469 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1470 OBJ_CHECK(obj);
1471
1472 zend_string *str;
1473 ZEND_PARSE_PARAMETERS_START(1, 1)
1474 Z_PARAM_STR(str)
1475 ZEND_PARSE_PARAMETERS_END();
1476
1477 ION_CHECK(ion_writer_write_blob(obj->writer, (BYTE *) str->val, str->len));
1478 }
1479 static ZEND_METHOD(ion_Writer_Writer, startLob)
1480 {
1481 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1482 OBJ_CHECK(obj);
1483
1484 zend_object *typ_obj;
1485 ZEND_PARSE_PARAMETERS_START(1, 1)
1486 Z_PARAM_OBJ_OF_CLASS(typ_obj, ce_Type)
1487 ZEND_PARSE_PARAMETERS_END();
1488
1489 ION_CHECK(ion_writer_start_lob(obj->writer, ion_type_from_enum(typ_obj)));
1490 }
1491 static ZEND_METHOD(ion_Writer_Writer, appendLob)
1492 {
1493 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1494 OBJ_CHECK(obj);
1495
1496 zend_string *str;
1497 ZEND_PARSE_PARAMETERS_START(1, 1)
1498 Z_PARAM_STR(str)
1499 ZEND_PARSE_PARAMETERS_END();
1500
1501 ION_CHECK(ion_writer_append_lob(obj->writer, (BYTE *) str->val, str->len));
1502 }
1503 static ZEND_METHOD(ion_Writer_Writer, finishLob)
1504 {
1505 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1506 OBJ_CHECK(obj);
1507
1508 ZEND_PARSE_PARAMETERS_NONE();
1509
1510 ION_CHECK(ion_writer_finish_lob(obj->writer));
1511 }
1512 static ZEND_METHOD(ion_Writer_Writer, startContainer)
1513 {
1514 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1515 OBJ_CHECK(obj);
1516
1517 zend_object *typ_obj;
1518 ZEND_PARSE_PARAMETERS_START(1, 1)
1519 Z_PARAM_OBJ_OF_CLASS(typ_obj, ce_Type)
1520 ZEND_PARSE_PARAMETERS_END();
1521
1522 ION_CHECK(ion_writer_start_container(obj->writer, ion_type_from_enum(typ_obj)));
1523 }
1524 static ZEND_METHOD(ion_Writer_Writer, finishContainer)
1525 {
1526 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1527 OBJ_CHECK(obj);
1528
1529 ZEND_PARSE_PARAMETERS_NONE();
1530
1531 ION_CHECK(ion_writer_finish_container(obj->writer));
1532 }
1533 static ZEND_METHOD(ion_Writer_Writer, writeFieldName)
1534 {
1535 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1536 OBJ_CHECK(obj);
1537
1538 zend_object *sym_obj;
1539 zend_string *sym_str;
1540 ZEND_PARSE_PARAMETERS_START(1, 1)
1541 Z_PARAM_OBJ_OF_CLASS_OR_STR(sym_obj, ce_Symbol, sym_str);
1542 ZEND_PARSE_PARAMETERS_END();
1543
1544 if (sym_str) {
1545 ION_STRING is;
1546 ION_CHECK(ion_writer_write_field_name(obj->writer, ion_string_from_zend(&is, sym_str)));
1547 } else {
1548 php_ion_symbol *sym = php_ion_obj(symbol, sym_obj);
1549 PTR_CHECK(sym);
1550 ION_CHECK(ion_writer_write_field_name_symbol(obj->writer, &sym->sym));
1551 }
1552 }
1553 static ZEND_METHOD(ion_Writer_Writer, writeAnnotation)
1554 {
1555 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1556 OBJ_CHECK(obj);
1557
1558 zval *args;
1559 unsigned argc;
1560 ZEND_PARSE_PARAMETERS_START(1, -1)
1561 Z_PARAM_VARIADIC('+', args, argc);
1562 ZEND_PARSE_PARAMETERS_END();
1563
1564 for (unsigned i = 0; i < argc; ++i) {
1565 switch (Z_TYPE(args[i])) {
1566 case IS_STRING: ;
1567 ION_STRING is;
1568 ION_CHECK(ion_writer_add_annotation(obj->writer, ion_string_from_zend(&is, Z_STR(args[i]))));
1569 break;
1570
1571 case IS_OBJECT:
1572 ION_CHECK(ion_writer_add_annotation_symbol(obj->writer, &php_ion_obj(symbol, Z_OBJ(args[i]))->sym));
1573 break;
1574 }
1575 }
1576 }
1577 static ZEND_METHOD(ion_Writer_Writer, getDepth)
1578 {
1579 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1580 OBJ_CHECK(obj);
1581
1582 ZEND_PARSE_PARAMETERS_NONE();
1583
1584 SIZE depth;
1585 ION_CHECK(ion_writer_get_depth(obj->writer, &depth));
1586 RETURN_LONG(depth);
1587 }
1588 static ZEND_METHOD(ion_Writer_Writer, flush)
1589 {
1590 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1591 OBJ_CHECK(obj);
1592
1593 ZEND_PARSE_PARAMETERS_NONE();
1594
1595 SIZE flushed;
1596 ION_CHECK(ion_writer_flush(obj->writer, &flushed));
1597 RETURN_LONG(flushed);
1598 }
1599 static ZEND_METHOD(ion_Writer_Writer, finish)
1600 {
1601 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1602 OBJ_CHECK(obj);
1603
1604 ZEND_PARSE_PARAMETERS_NONE();
1605
1606 SIZE flushed;
1607 ION_CHECK(ion_writer_finish(obj->writer, &flushed));
1608 RETURN_LONG(flushed);
1609 }
1610 static ZEND_METHOD(ion_Writer_Buffer_Writer, __construct)
1611 {
1612 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1613 PTR_CHECK(obj);
1614
1615 ZEND_PARSE_PARAMETERS_START(0, 1)
1616 Z_PARAM_OPTIONAL
1617 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Writer_Options)
1618 ZEND_PARSE_PARAMETERS_END();
1619
1620 obj->type = BUFFER_WRITER;
1621 php_ion_writer_ctor(obj);
1622 }
1623 static ZEND_METHOD(ion_Writer_Buffer_Writer, getBuffer)
1624 {
1625 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1626 OBJ_CHECK(obj);
1627
1628 ZEND_PARSE_PARAMETERS_NONE();
1629
1630 RETVAL_STR(php_ion_writer_buffer_copy(obj));
1631 }
1632 static ZEND_METHOD(ion_Writer_Buffer_Writer, resetBuffer)
1633 {
1634 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1635 OBJ_CHECK(obj);
1636
1637 ZEND_PARSE_PARAMETERS_NONE();
1638
1639 php_ion_writer_buffer_reset(obj);
1640 }
1641 static ZEND_METHOD(ion_Writer_Stream_Writer, __construct)
1642 {
1643 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1644 PTR_CHECK(obj);
1645
1646 zval *zstream;
1647 ZEND_PARSE_PARAMETERS_START(1, 2)
1648 Z_PARAM_RESOURCE(zstream)
1649 Z_PARAM_OPTIONAL
1650 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Writer_Options)
1651 ZEND_PARSE_PARAMETERS_END();
1652
1653 obj->type = STREAM_WRITER;
1654 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1655
1656 php_ion_writer_ctor(obj);
1657 }
1658 static ZEND_METHOD(ion_Writer_Stream_Writer, getStream)
1659 {
1660 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1661 OBJ_CHECK(obj);
1662
1663 ZEND_PARSE_PARAMETERS_NONE();
1664 PTR_CHECK(obj->stream.ptr);
1665
1666 GC_ADDREF(obj->stream.ptr->res);
1667 RETURN_RES(obj->stream.ptr->res);
1668 }
1669
1670 static ZEND_METHOD(ion_Serializer_PHP, __construct)
1671 {
1672 php_ion_serializer_php *obj = php_ion_obj(serializer_php, Z_OBJ_P(ZEND_THIS));
1673 PTR_CHECK(obj);
1674
1675 obj->serializer.call_magic = true;
1676
1677 ZEND_PARSE_PARAMETERS_START(0, 4)
1678 Z_PARAM_OPTIONAL
1679 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Writer_Options)
1680 Z_PARAM_BOOL(obj->serializer.multi_seq)
1681 Z_PARAM_BOOL(obj->serializer.call_magic)
1682 Z_PARAM_STR_OR_NULL(obj->serializer.call_custom)
1683 ZEND_PARSE_PARAMETERS_END();
1684
1685 php_ion_serializer_php_ctor(obj);
1686 }
1687 static ZEND_METHOD(ion_Serializer_PHP, serialize)
1688 {
1689 zend_object *obj = Z_OBJ_P(ZEND_THIS);
1690
1691 zval *data;
1692 ZEND_PARSE_PARAMETERS_START(1, 1)
1693 Z_PARAM_ZVAL(data)
1694 ZEND_PARSE_PARAMETERS_END();
1695
1696 php_ion_serialize(&php_ion_obj(serializer_php, obj)->serializer, data, return_value);
1697 }
1698 static ZEND_FUNCTION(ion_serialize)
1699 {
1700 zval *data;
1701 zend_object *zo_ser = NULL;
1702 ZEND_PARSE_PARAMETERS_START(1, 2)
1703 Z_PARAM_ZVAL(data)
1704 Z_PARAM_OPTIONAL
1705 Z_PARAM_OBJ_OF_CLASS_OR_NULL(zo_ser, ce_Serializer)
1706 ZEND_PARSE_PARAMETERS_END();
1707
1708 if (!zo_ser || zo_ser->ce == ce_Serializer_PHP) {
1709 // default, fast path
1710 php_ion_serializer *ser = zo_ser ? &php_ion_obj(serializer_php, zo_ser)->serializer : NULL;
1711 php_ion_serialize(ser, data, return_value);
1712 } else {
1713 zend_call_method_with_1_params(zo_ser, NULL, NULL, "serialize", return_value, data);
1714 }
1715 }
1716
1717 static ZEND_METHOD(ion_Unserializer_PHP, __construct)
1718 {
1719 php_ion_unserializer_php *obj = php_ion_obj(unserializer_php, Z_OBJ_P(ZEND_THIS));
1720 PTR_CHECK(obj);
1721
1722 obj->unserializer.call_magic = true;
1723
1724 ZEND_PARSE_PARAMETERS_START(0, 4)
1725 Z_PARAM_OPTIONAL
1726 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Reader_Options)
1727 Z_PARAM_BOOL(obj->unserializer.multi_seq)
1728 Z_PARAM_BOOL(obj->unserializer.call_magic)
1729 Z_PARAM_STR_OR_NULL(obj->unserializer.call_custom)
1730 ZEND_PARSE_PARAMETERS_END();
1731
1732 php_ion_unserializer_php_ctor(obj);
1733 }
1734 static ZEND_METHOD(ion_Unserializer_PHP, unserialize)
1735 {
1736 zend_object *obj = Z_OBJ_P(ZEND_THIS);
1737
1738 zval *data;
1739 ZEND_PARSE_PARAMETERS_START(1, 1)
1740 Z_PARAM_ZVAL(data)
1741 ZEND_PARSE_PARAMETERS_END();
1742
1743 php_ion_unserialize(&php_ion_obj(unserializer_php, obj)->unserializer, data, return_value);
1744 }
1745 static ZEND_FUNCTION(ion_unserialize)
1746 {
1747 zval *data;
1748 zend_object *zo_ser = NULL;
1749 ZEND_PARSE_PARAMETERS_START(1, 2)
1750 Z_PARAM_ZVAL(data)
1751 Z_PARAM_OPTIONAL
1752 Z_PARAM_OBJ_OF_CLASS_OR_NULL(zo_ser, ce_Unserializer)
1753 ZEND_PARSE_PARAMETERS_END();
1754
1755 if (!zo_ser || zo_ser->ce == ce_Unserializer_PHP) {
1756 // default, fast path
1757 php_ion_unserializer *ser = zo_ser ? &php_ion_obj(unserializer_php, zo_ser)->unserializer : NULL;
1758 php_ion_unserialize(ser, data, return_value);
1759 } else {
1760 zend_call_method_with_1_params(zo_ser, NULL, NULL, "__invoke", return_value, data);
1761 }
1762 }
1763
1764 PHP_RINIT_FUNCTION(ion)
1765 {
1766 #if defined(ZTS) && defined(COMPILE_DL_ION)
1767 ZEND_TSRMLS_CACHE_UPDATE();
1768 #endif
1769
1770 php_ion_globals_symbols_init();
1771 php_ion_globals_serializer_init();
1772 php_ion_globals_unserializer_init();
1773 return SUCCESS;
1774 }
1775
1776 PHP_RSHUTDOWN_FUNCTION(ion)
1777 {
1778 php_ion_globals_unserializer_dtor();
1779 php_ion_globals_serializer_dtor();
1780 php_ion_globals_symbols_dtor();
1781 return SUCCESS;
1782 }
1783
1784 #define ZEND_ARG_VARIADIC_OBJ_TYPE_MASK(pass_by_ref, name, classname, type_mask, default_value) \
1785 { #name, ZEND_TYPE_INIT_CLASS_CONST_MASK(#classname, ((type_mask) | _ZEND_ARG_INFO_FLAGS(pass_by_ref, 1, 0))), default_value },
1786 #include "ion_arginfo.h"
1787
1788 // spl_iterators.h includes ext/pcre/php_pcre.h which might not find pcre2.h
1789 extern PHPAPI zend_class_entry *spl_ce_RecursiveIterator;
1790
1791 PHP_MINIT_FUNCTION(ion)
1792 {
1793 // true globals
1794 if (SUCCESS != g_sym_init()) {
1795 return FAILURE;
1796 }
1797 g_intern_str_init();
1798
1799 // Catalog
1800 php_ion_register(catalog, Catalog, zend_ce_countable);
1801
1802 // Decimal
1803 php_ion_register(decimal, Decimal);
1804 php_ion_register(decimal_ctx, Decimal_Context);
1805 ce_Decimal_Context_Rounding = register_class_ion_Decimal_Context_Rounding();
1806
1807 // LOB
1808 ce_LOB = register_class_ion_LOB();
1809
1810 // Reader
1811 ce_Reader = register_class_ion_Reader(spl_ce_RecursiveIterator);
1812 php_ion_register(reader_options, Reader_Options);
1813 php_ion_register(reader, Reader_Reader, ce_Reader);
1814 ce_Reader_Buffer = register_class_ion_Reader_Buffer(ce_Reader);
1815 ce_Reader_Buffer_Reader = register_class_ion_Reader_Buffer_Reader(ce_Reader_Reader, ce_Reader_Buffer);
1816 ce_Reader_Stream = register_class_ion_Reader_Stream(ce_Reader);
1817 ce_Reader_Stream_Reader = register_class_ion_Reader_Stream_Reader(ce_Reader_Reader, ce_Reader_Stream);
1818
1819 // Serializer
1820 ce_Serializer = register_class_ion_Serializer();
1821 php_ion_register(serializer_php, Serializer_PHP, ce_Serializer);
1822
1823 // Symbol
1824 php_ion_register(symbol, Symbol);
1825 oh_Symbol.compare = php_ion_symbol_zval_compare;
1826 php_ion_register(symbol_iloc, Symbol_ImportLocation);
1827 php_ion_register(symbol_table, Symbol_Table);
1828 ce_Symbol_Table->create_object = NULL;
1829 ce_Symbol_Table_Local = register_class_ion_Symbol_Table_Local(ce_Symbol_Table);
1830 ce_Symbol_Table_Local->create_object = create_ion_Symbol_Table;
1831 ce_Symbol_Table_Shared = register_class_ion_Symbol_Table_Shared(ce_Symbol_Table);
1832 ce_Symbol_Table_Shared->create_object = create_ion_Symbol_Table;
1833 ce_Symbol_Enum = register_class_ion_Symbol_Enum();
1834 ce_Symbol_Table_System = register_class_ion_Symbol_Table_System(ce_Symbol_Enum);
1835 ce_Symbol_Table_PHP = register_class_ion_Symbol_Table_PHP(ce_Symbol_Enum);
1836
1837 // Timestamp
1838 ce_Timestamp = register_class_ion_Timestamp(php_date_get_date_ce());
1839 ce_Timestamp_Format = register_class_ion_Timestamp_Format();
1840 ce_Timestamp_Precision = register_class_ion_Timestamp_Precision();
1841
1842 // Type
1843 ce_Type = register_class_ion_Type();
1844
1845 // Writer
1846 ce_Writer = register_class_ion_Writer();
1847 php_ion_register(writer_options, Writer_Options);
1848 php_ion_register(writer, Writer_Writer, ce_Writer);
1849 ce_Writer_Buffer = register_class_ion_Writer_Buffer(ce_Writer);
1850 ce_Writer_Buffer_Writer = register_class_ion_Writer_Buffer_Writer(ce_Writer_Writer, ce_Writer_Buffer);
1851 ce_Writer_Stream = register_class_ion_Writer_Stream(ce_Writer);
1852 ce_Writer_Stream_Writer = register_class_ion_Writer_Stream_Writer(ce_Writer_Writer, ce_Writer_Stream);
1853
1854 // Unserializer
1855 ce_Unserializer = register_class_ion_Unserializer();
1856 php_ion_register(unserializer_php, Unserializer_PHP, ce_Unserializer);
1857
1858 return SUCCESS;
1859 }
1860
1861 PHP_MSHUTDOWN_FUNCTION(ion)
1862 {
1863 if (g_sym_tab_php) {
1864 ion_symbol_table_close(g_sym_tab_php);
1865 }
1866 zend_hash_destroy(&g_sym_hash);
1867 return SUCCESS;
1868 }
1869
1870 PHP_MINFO_FUNCTION(ion)
1871 {
1872 php_info_print_table_start();
1873 php_info_print_table_header(2, "ion support", "enabled");
1874 php_info_print_table_end();
1875 }
1876
1877 PHP_GINIT_FUNCTION(ion)
1878 {
1879 memset(ion_globals, 0, sizeof(*ion_globals));
1880
1881 php_ion_decimal_ctx_init_max(&ion_globals->decimal.ctx, DEC_ROUND_HALF_EVEN);
1882 php_ion_decimal_from_zend_long(&ion_globals->decimal.zend_max, &ion_globals->decimal.ctx, ZEND_LONG_MAX);
1883 php_ion_decimal_from_zend_long(&ion_globals->decimal.zend_min, &ion_globals->decimal.ctx, ZEND_LONG_MIN);
1884 }
1885
1886 PHP_GSHUTDOWN_FUNCTION(ion)
1887 {
1888 }
1889
1890 static zend_module_dep ion_module_deps[] = {
1891 ZEND_MOD_REQUIRED("date")
1892 ZEND_MOD_REQUIRED("spl")
1893 ZEND_MOD_END
1894 };
1895
1896 zend_module_entry ion_module_entry = {
1897 STANDARD_MODULE_HEADER_EX,
1898 NULL,
1899 ion_module_deps,
1900 "ion", /* Extension name */
1901 ext_functions, /* zend_function_entry */
1902 PHP_MINIT(ion), /* PHP_MINIT - Module initialization */
1903 PHP_MSHUTDOWN(ion), /* PHP_MSHUTDOWN - Module shutdown */
1904 PHP_RINIT(ion), /* PHP_RINIT - Request initialization */
1905 PHP_RSHUTDOWN(ion), /* PHP_RSHUTDOWN - Request shutdown */
1906 PHP_MINFO(ion), /* PHP_MINFO - Module info */
1907 PHP_ION_VERSION, /* Version */
1908 ZEND_MODULE_GLOBALS(ion),
1909 PHP_GINIT(ion), /* PHP_GINIT */
1910 PHP_GSHUTDOWN(ion), /* PHP_GSHUTDOWN */
1911 NULL,
1912 STANDARD_MODULE_PROPERTIES_EX
1913 };
1914
1915 #ifdef COMPILE_DL_ION
1916 # ifdef ZTS
1917 ZEND_TSRMLS_CACHE_DEFINE()
1918 # endif
1919 ZEND_GET_MODULE(ion)
1920 #endif
PHP extension for Amazon ION