projects / awesomized / ext-ion / blob
? search:
summary | shortlog | log | commit | commitdiff | tree | github
history | raw | HEAD
add README
[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;
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_STR_OR_NULL(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 php_ion_timestamp_ctor(obj, precision, fmt, dt, tz);
427 }
428 static ZEND_METHOD(ion_Timestamp, __toString)
429 {
430 php_ion_timestamp *obj = php_ion_obj(timestamp, Z_OBJ_P(ZEND_THIS));
431 OBJ_CHECK(obj);
432
433 ZEND_PARSE_PARAMETERS_NONE();
434
435 zval fmt;
436 ZVAL_NULL(&fmt);
437 zend_call_method_with_1_params(&obj->std, obj->std.ce, NULL, "format", return_value,
438 zend_read_property(obj->std.ce, &obj->std, ZEND_STRL("format"), 0, &fmt));
439 }
440 static ZEND_METHOD(ion_Decimal_Context, __construct)
441 {
442 php_ion_decimal_ctx *obj = php_ion_obj(decimal_ctx, Z_OBJ_P(ZEND_THIS));
443 PTR_CHECK(obj);
444
445 zend_bool clamp;
446 zend_object *o_round = NULL;
447 zend_long digits, emax, emin, round;
448 ZEND_PARSE_PARAMETERS_START(5, 5)
449 Z_PARAM_LONG(digits)
450 Z_PARAM_LONG(emax)
451 Z_PARAM_LONG(emin)
452 Z_PARAM_OBJ_OF_CLASS_OR_LONG(o_round, ce_Decimal_Context_Rounding, round)
453 Z_PARAM_BOOL(clamp)
454 ZEND_PARSE_PARAMETERS_END();
455
456 if (o_round) {
457 round = Z_LVAL_P(zend_enum_fetch_case_value(o_round));
458 }
459 php_ion_decimal_ctx_init(&obj->ctx, digits, emax, emin, round, clamp); // NOLINT(cppcoreguidelines-narrowing-conversions)
460 php_ion_decimal_ctx_ctor(obj, o_round);
461 }
462 static inline void make_decimal_ctx(INTERNAL_FUNCTION_PARAMETERS, int kind)
463 {
464 ZEND_PARSE_PARAMETERS_NONE();
465
466 object_init_ex(return_value, ce_Decimal_Context);
467 php_ion_decimal_ctx *obj = php_ion_obj(decimal_ctx, Z_OBJ_P(return_value));
468 decContextDefault(&obj->ctx, kind);
469 php_ion_decimal_ctx_ctor(obj, NULL);
470 }
471 static ZEND_METHOD(ion_Decimal_Context, Dec32)
472 {
473 make_decimal_ctx(INTERNAL_FUNCTION_PARAM_PASSTHRU, DEC_INIT_DECIMAL32);
474 }
475 static ZEND_METHOD(ion_Decimal_Context, Dec64)
476 {
477 make_decimal_ctx(INTERNAL_FUNCTION_PARAM_PASSTHRU, DEC_INIT_DECIMAL64);
478 }
479 static ZEND_METHOD(ion_Decimal_Context, Dec128)
480 {
481 make_decimal_ctx(INTERNAL_FUNCTION_PARAM_PASSTHRU, DEC_INIT_DECIMAL128);
482 }
483 static ZEND_METHOD(ion_Decimal_Context, DecMax)
484 {
485 zend_object *o_round = NULL;
486 zend_long round = DEC_ROUND_HALF_EVEN;
487 ZEND_PARSE_PARAMETERS_START(0, 1)
488 Z_PARAM_OPTIONAL
489 Z_PARAM_OBJ_OF_CLASS_OR_LONG(o_round, ce_Decimal_Context_Rounding, round)
490 ZEND_PARSE_PARAMETERS_END();
491
492 if (o_round) {
493 round = Z_LVAL_P(zend_enum_fetch_case_value(o_round));
494 }
495 object_init_ex(return_value, ce_Decimal_Context);
496 php_ion_decimal_ctx *obj = php_ion_obj(decimal_ctx, Z_OBJ_P(return_value));
497 php_ion_decimal_ctx_init_max(&obj->ctx, round);
498 php_ion_decimal_ctx_ctor(obj, o_round);
499 }
500 static ZEND_METHOD(ion_Decimal, __construct)
501 {
502 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
503 PTR_CHECK(obj);
504
505 zend_long num;
506 zend_string *zstr;
507 ZEND_PARSE_PARAMETERS_START(1, 2)
508 Z_PARAM_STR_OR_LONG(zstr, num)
509 Z_PARAM_OPTIONAL
510 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->ctx, ce_Decimal_Context)
511 ZEND_PARSE_PARAMETERS_END();
512
513 if (obj->ctx) {
514 GC_ADDREF(obj->ctx);
515 } else {
516 zval zdc;
517 object_init_ex(&zdc, ce_Decimal_Context);
518 obj->ctx = Z_OBJ(zdc);
519 php_ion_decimal_ctx_ctor(php_ion_obj(decimal_ctx, obj->ctx), NULL);
520 }
521
522 decContext *ctx = &php_ion_obj(decimal_ctx, obj->ctx)->ctx;
523
524 if (zstr) {
525 ION_CHECK(ion_decimal_from_string(&obj->dec, zstr->val, ctx), OBJ_RELEASE(obj->ctx));
526 } else {
527 php_ion_decimal_from_zend_long(&obj->dec, ctx, num);
528 }
529
530 php_ion_decimal_ctor(obj);
531 OBJ_RELEASE(obj->ctx);
532 }
533 static ZEND_METHOD(ion_Decimal, equals)
534 {
535 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
536 PTR_CHECK(obj);
537
538 zend_object *dec_obj;
539 ZEND_PARSE_PARAMETERS_START(1, 1)
540 Z_PARAM_OBJ_OF_CLASS(dec_obj, ce_Decimal)
541 ZEND_PARSE_PARAMETERS_END();
542
543 BOOL is = FALSE;
544 ION_CHECK(ion_decimal_equals(&obj->dec, &php_ion_obj(decimal, dec_obj)->dec,
545 obj->ctx ? &php_ion_obj(decimal_ctx, obj->ctx)->ctx : NULL, &is));
546 RETURN_BOOL(is);
547 }
548 static ZEND_METHOD(ion_Decimal, __toString)
549 {
550 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
551 PTR_CHECK(obj);
552
553 ZEND_PARSE_PARAMETERS_NONE();
554
555 RETURN_STR(php_ion_decimal_to_string(&obj->dec));
556 }
557 static ZEND_METHOD(ion_Decimal, toInt)
558 {
559 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
560 PTR_CHECK(obj);
561
562 ZEND_PARSE_PARAMETERS_NONE();
563
564 zend_long l;
565 php_ion_decimal_to_zend_long(&obj->dec, &php_ion_obj(decimal_ctx, obj->ctx)->ctx, &l);
566 RETURN_LONG(l);
567 }
568 static ZEND_METHOD(ion_Decimal, isInt)
569 {
570 php_ion_decimal *obj = php_ion_obj(decimal, Z_OBJ_P(ZEND_THIS));
571 PTR_CHECK(obj);
572
573 ZEND_PARSE_PARAMETERS_NONE();
574
575 RETURN_BOOL(ion_decimal_is_integer(&obj->dec));
576 }
577 static ZEND_METHOD(ion_LOB, __construct)
578 {
579 zend_string *value;
580 zend_object *type = NULL;
581 ZEND_PARSE_PARAMETERS_START(1, 2)
582 Z_PARAM_STR(value)
583 Z_PARAM_OPTIONAL
584 Z_PARAM_OBJ_OF_CLASS(type, ce_Type)
585 ZEND_PARSE_PARAMETERS_END();
586
587 if (!type) {
588 type = zend_enum_get_case_cstr(ce_Type, "CLob");
589 }
590 update_property_obj(Z_OBJ_P(ZEND_THIS), ZEND_STRL("type"), type);
591 zend_update_property_str(Z_OBJCE_P(ZEND_THIS), Z_OBJ_P(ZEND_THIS), ZEND_STRL("value"), value);
592 }
593 static ZEND_METHOD(ion_Reader_Options, __construct)
594 {
595 php_ion_reader_options *opt = php_ion_obj(reader_options, Z_OBJ_P(ZEND_THIS));
596 zend_bool ret_sys_val = false, skip_validation = false;
597 zend_long ch_nl = 0xa, max_depth = 10, max_ann = 10, max_ann_buf = 512,
598 sym_thr = 0x4000, uval_thr = 0x4000, chunk_thr = 0x4000, alloc_pgsz = 0x10000;
599
600 PTR_CHECK(opt);
601
602 ZEND_PARSE_PARAMETERS_START(0, 13)
603 Z_PARAM_OPTIONAL
604 // public readonly ?\ion\Catalog $catalog = null,
605 Z_PARAM_OBJ_OF_CLASS_OR_NULL(opt->cat, ce_Catalog)
606 // public readonly ?\ion\Decimal\Context $decimalContext = null,
607 Z_PARAM_OBJ_OF_CLASS_OR_NULL(opt->dec_ctx, ce_Decimal_Context)
608 // public readonly ?\Closure $onContextChange = null,
609 Z_PARAM_OBJ_OF_CLASS_OR_NULL(opt->cb, zend_ce_closure);
610 // public readonly bool $returnSystemValues = false,
611 Z_PARAM_BOOL(ret_sys_val)
612 // public readonly int $newLine = 0xa,
613 Z_PARAM_LONG(ch_nl)
614 // public readonly int $maxContainerDepth = 10,
615 Z_PARAM_LONG(max_depth)
616 // public readonly int $maxAnnotations = 10,
617 Z_PARAM_LONG(max_ann)
618 // public readonly int $maxAnnotationBuffered = 512,
619 Z_PARAM_LONG(max_ann_buf)
620 // public readonly int $symbolThreshold = 0x4000,
621 Z_PARAM_LONG(sym_thr)
622 // public readonly int $userValueThreshold = 0x4000,
623 Z_PARAM_LONG(uval_thr)
624 // public readonly int $chunkThreshold = 0x4000,
625 Z_PARAM_LONG(chunk_thr)
626 // public readonly int $allocationPageSize = 0x10000,
627 Z_PARAM_LONG(alloc_pgsz)
628 // public readonly bool $skipCharacterValidation = false,
629 Z_PARAM_BOOL(skip_validation)
630 ZEND_PARSE_PARAMETERS_END();
631
632 if (opt->cb) {
633 zval zcb;
634 ZVAL_OBJ(&zcb, opt->cb);
635 zend_fcall_info_init(&zcb, 0, &opt->ccn.fci, &opt->ccn.fcc, NULL, NULL);
636 opt->opt.context_change_notifier.context = &opt->ccn;
637 update_property_obj(&opt->std, ZEND_STRL("onContextChange"), opt->cb);
638 } else {
639 zend_update_property_null(NULL, &opt->std, ZEND_STRL("onContextChange"));
640 }
641 if (opt->cat) {
642 update_property_obj(&opt->std, ZEND_STRL("catalog"), opt->cat);
643 opt->opt.pcatalog = php_ion_obj(catalog, opt->cat)->cat;
644 } else {
645 zend_update_property_null(NULL, &opt->std, ZEND_STRL("catalog"));
646 }
647 if (opt->dec_ctx) {
648 update_property_obj(&opt->std, ZEND_STRL("decimalContext"), opt->dec_ctx);
649 opt->opt.decimal_context = &php_ion_obj(decimal_ctx, opt->dec_ctx)->ctx;
650 } else {
651 zend_update_property_null(NULL, &opt->std, ZEND_STRL("decimalContext"));
652 }
653 zend_update_property_bool(opt->std.ce, &opt->std, ZEND_STRL("returnSystemValues"),
654 opt->opt.return_system_values = ret_sys_val);
655 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("newLine"),
656 opt->opt.new_line_char = (int) ch_nl);
657 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("maxContainerDepth"),
658 opt->opt.max_container_depth = (SIZE) max_depth);
659 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("maxAnnotations"),
660 opt->opt.max_annotation_count = (SIZE) max_ann);
661 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("maxAnnotationBuffered"),
662 opt->opt.max_annotation_buffered = (SIZE) max_ann_buf);
663 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("symbolThreshold"),
664 opt->opt.symbol_threshold = (SIZE) sym_thr);
665 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("userValueThreshold"),
666 opt->opt.user_value_threshold = (SIZE) uval_thr);
667 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("chunkThreshold"),
668 opt->opt.chunk_threshold = (SIZE) chunk_thr);
669 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("allocationPageSize"),
670 opt->opt.allocation_page_size = (SIZE) alloc_pgsz);
671 zend_update_property_long(opt->std.ce, &opt->std, ZEND_STRL("skipCharacterValidation"),
672 opt->opt.skip_character_validation = (SIZE) skip_validation);
673 }
674 static ZEND_METHOD(ion_Reader_Reader, hasChildren)
675 {
676 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
677
678 OBJ_CHECK(obj);
679 ZEND_PARSE_PARAMETERS_NONE();
680
681 ION_TYPE t;
682 ION_CHECK(ion_reader_get_type(obj->reader, &t));
683 switch (ION_TYPE_INT(t)) {
684 case tid_LIST_INT:
685 case tid_SEXP_INT:
686 case tid_STRUCT_INT:
687 RETVAL_TRUE;
688 break;
689 default:
690 RETVAL_FALSE;
691 break;
692 }
693 }
694 static ZEND_METHOD(ion_Reader_Reader, getChildren)
695 {
696 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
697 OBJ_CHECK(obj);
698
699 ZEND_PARSE_PARAMETERS_NONE();
700
701 ION_CHECK(ion_reader_step_in(obj->reader));
702
703 RETURN_ZVAL(ZEND_THIS, 1, 0);
704 }
705 static ZEND_METHOD(ion_Reader_Reader, rewind)
706 {
707 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
708 OBJ_CHECK(obj);
709
710 ZEND_PARSE_PARAMETERS_NONE();
711
712 ION_CHECK(ion_reader_next(obj->reader, &obj->state));
713 }
714 static ZEND_METHOD(ion_Reader_Reader, next)
715 {
716 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
717 OBJ_CHECK(obj);
718
719 ZEND_PARSE_PARAMETERS_NONE();
720
721 if (obj->state == tid_EOF) {
722 SIZE depth = 0;
723 ION_CHECK(ion_reader_get_depth(obj->reader, &depth));
724 if (depth) {
725 ION_CHECK(ion_reader_step_out(obj->reader));
726 }
727 }
728 ION_CHECK(ion_reader_next(obj->reader, &obj->state));
729 }
730 static ZEND_METHOD(ion_Reader_Reader, valid)
731 {
732 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
733 OBJ_CHECK(obj);
734
735 ZEND_PARSE_PARAMETERS_NONE();
736 RETURN_BOOL(obj->state != tid_none && obj->state != tid_EOF);
737 }
738 static ZEND_METHOD(ion_Reader_Reader, key)
739 {
740 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
741 OBJ_CHECK(obj);
742
743 ZEND_PARSE_PARAMETERS_NONE();
744 RETURN_IONTYPE(obj->state);
745 }
746 static ZEND_METHOD(ion_Reader_Reader, current)
747 {
748 ZEND_PARSE_PARAMETERS_NONE();
749 RETURN_ZVAL(ZEND_THIS, 1, 0);
750 }
751 static ZEND_METHOD(ion_Reader_Reader, getType)
752 {
753 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
754 OBJ_CHECK(obj);
755
756 ZEND_PARSE_PARAMETERS_NONE();
757
758 ION_TYPE typ;
759 ION_CHECK(ion_reader_get_type(obj->reader, &typ));
760 RETURN_IONTYPE(typ);
761 }
762 static ZEND_METHOD(ion_Reader_Reader, hasAnnotations)
763 {
764 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
765 OBJ_CHECK(obj);
766
767 ZEND_PARSE_PARAMETERS_NONE();
768
769 BOOL has = FALSE;
770 ION_CHECK(ion_reader_has_any_annotations(obj->reader, &has));
771 RETURN_BOOL(has);
772 }
773 static ZEND_METHOD(ion_Reader_Reader, hasAnnotation)
774 {
775 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
776 OBJ_CHECK(obj);
777
778 zend_string *ann_zstr;
779 ZEND_PARSE_PARAMETERS_START(1, 1);
780 Z_PARAM_STR(ann_zstr);
781 ZEND_PARSE_PARAMETERS_END();
782
783 ION_STRING ann_istr;
784 BOOL has = FALSE;
785 ION_CHECK(ion_reader_has_annotation(obj->reader, ion_string_from_zend(&ann_istr, ann_zstr), &has));
786 RETURN_BOOL(has);
787 }
788 static ZEND_METHOD(ion_Reader_Reader, isNull)
789 {
790 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
791 OBJ_CHECK(obj);
792
793 ZEND_PARSE_PARAMETERS_NONE();
794
795 BOOL is = FALSE;
796 ION_CHECK(ion_reader_is_null(obj->reader, &is));
797 RETURN_BOOL(is);
798 }
799 static ZEND_METHOD(ion_Reader_Reader, isInStruct)
800 {
801 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
802 OBJ_CHECK(obj);
803
804 ZEND_PARSE_PARAMETERS_NONE();
805
806 BOOL is = FALSE;
807 ION_CHECK(ion_reader_is_in_struct(obj->reader, &is));
808 RETURN_BOOL(is);
809 }
810 static ZEND_METHOD(ion_Reader_Reader, getFieldName)
811 {
812 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
813 OBJ_CHECK(obj);
814
815 ZEND_PARSE_PARAMETERS_NONE();
816
817 ION_STRING name;
818 ION_CHECK(ion_reader_get_field_name(obj->reader, &name));
819 RETURN_STRINGL((char *) name.value, name.length);
820 }
821 static ZEND_METHOD(ion_Reader_Reader, getFieldNameSymbol)
822 {
823 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
824 OBJ_CHECK(obj);
825
826 ZEND_PARSE_PARAMETERS_NONE();
827
828 ION_SYMBOL *sym_ptr;
829 ION_CHECK(ion_reader_get_field_name_symbol(obj->reader, &sym_ptr));
830
831 php_ion_symbol_zval(sym_ptr, return_value);
832 }
833 static ZEND_METHOD(ion_Reader_Reader, getAnnotations)
834 {
835 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
836 OBJ_CHECK(obj);
837
838 ZEND_PARSE_PARAMETERS_NONE();
839
840 int32_t count, max;
841 if (obj->opt) {
842 max = php_ion_obj(reader_options, obj->opt)->opt.max_annotation_count;
843 } else {
844 max = 10;
845 }
846 ION_STRING *ptr = ecalloc(sizeof(*ptr), max);
847 iERR err = ion_reader_get_annotations(obj->reader, ptr, max, &count);
848 if (!err) {
849 array_init_size(return_value, count);
850 for (int32_t i = 0; i < count; ++i) {
851 add_next_index_str(return_value, zend_string_from_ion(&ptr[i]));
852 }
853 }
854 efree(ptr);
855 ION_CHECK(err);
856 }
857 static ZEND_METHOD(ion_Reader_Reader, getAnnotationSymbols)
858 {
859 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
860 OBJ_CHECK(obj);
861
862 ZEND_PARSE_PARAMETERS_NONE();
863
864 int32_t count, max = php_ion_obj(reader_options, obj->opt)->opt.max_annotation_count;
865 ION_SYMBOL *ptr = ecalloc(sizeof(*ptr), max);
866 iERR err = ion_reader_get_annotation_symbols(obj->reader, ptr, max, &count);
867 if (!err) {
868 array_init_size(return_value, count);
869 for (int32_t i = 0; i < count; ++i) {
870 zval zsym;
871 php_ion_symbol_zval(&ptr[i], &zsym);
872 add_next_index_zval(return_value, &zsym);
873 }
874 }
875 efree(ptr);
876 ION_CHECK(err);
877 }
878 static ZEND_METHOD(ion_Reader_Reader, countAnnotations)
879 {
880 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
881 OBJ_CHECK(obj);
882
883 ZEND_PARSE_PARAMETERS_NONE();
884
885 SIZE sz = 0;
886 ION_CHECK(ion_reader_get_annotation_count(obj->reader, &sz));
887 RETURN_LONG(sz);
888 }
889 static ZEND_METHOD(ion_Reader_Reader, getAnnotation)
890 {
891 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
892 OBJ_CHECK(obj);
893
894 zend_long idx;
895 ZEND_PARSE_PARAMETERS_START(1, 1)
896 Z_PARAM_LONG(idx);
897 ZEND_PARSE_PARAMETERS_END();
898
899 ION_STRING ann;
900 ION_CHECK(ion_reader_get_an_annotation(obj->reader, idx, &ann));
901 RETURN_STRINGL((char *) ann.value, ann.length);
902 }
903 static ZEND_METHOD(ion_Reader_Reader, getAnnotationSymbol)
904 {
905 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
906 OBJ_CHECK(obj);
907
908 zend_long idx;
909 ZEND_PARSE_PARAMETERS_START(1, 1)
910 Z_PARAM_LONG(idx);
911 ZEND_PARSE_PARAMETERS_END();
912
913 ION_SYMBOL sym;
914 ION_CHECK(ion_reader_get_an_annotation_symbol(obj->reader, idx, &sym));
915 php_ion_symbol_zval(&sym, return_value);
916 }
917 static ZEND_METHOD(ion_Reader_Reader, readNull)
918 {
919 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
920 OBJ_CHECK(obj);
921
922 ZEND_PARSE_PARAMETERS_NONE();
923
924 ION_TYPE typ;
925 ION_CHECK(ion_reader_read_null(obj->reader, &typ));
926 RETURN_IONTYPE(typ);
927 }
928 static ZEND_METHOD(ion_Reader_Reader, readBool)
929 {
930 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
931 OBJ_CHECK(obj);
932
933 ZEND_PARSE_PARAMETERS_NONE();
934
935 BOOL b;
936 ION_CHECK(ion_reader_read_bool(obj->reader, &b));
937 RETURN_BOOL(b);
938 }
939 static ZEND_METHOD(ion_Reader_Reader, readInt)
940 {
941 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
942 OBJ_CHECK(obj);
943
944 ZEND_PARSE_PARAMETERS_NONE();
945
946 php_ion_reader_read_int(obj->reader, return_value);
947 }
948 static ZEND_METHOD(ion_Reader_Reader, readFloat)
949 {
950 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
951 OBJ_CHECK(obj);
952
953 ZEND_PARSE_PARAMETERS_NONE();
954
955 ION_CHECK(ion_reader_read_double(obj->reader, &Z_DVAL_P(return_value)));
956 }
957 static ZEND_METHOD(ion_Reader_Reader, readDecimal)
958 {
959 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
960 OBJ_CHECK(obj);
961
962 ZEND_PARSE_PARAMETERS_NONE();
963
964 object_init_ex(return_value, ce_Decimal);
965 php_ion_decimal *dec = php_ion_obj(decimal, Z_OBJ_P(return_value));
966 ION_CHECK(ion_reader_read_ion_decimal(obj->reader, &dec->dec));
967 php_ion_decimal_ctor(dec);
968 }
969 static ZEND_METHOD(ion_Reader_Reader, readTimestamp)
970 {
971 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
972 OBJ_CHECK(obj);
973
974 ZEND_PARSE_PARAMETERS_NONE();
975
976 php_ion_reader_read_timestamp(obj->reader, obj->opt ? &php_ion_obj(reader_options, obj->opt)->opt : NULL, return_value);
977 }
978 static ZEND_METHOD(ion_Reader_Reader, readSymbol)
979 {
980 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
981 OBJ_CHECK(obj);
982
983 ZEND_PARSE_PARAMETERS_NONE();
984
985 ION_SYMBOL sym;
986 ION_CHECK(ion_reader_read_ion_symbol(obj->reader, &sym));
987 php_ion_symbol_zval(&sym, return_value);
988 }
989 static ZEND_METHOD(ion_Reader_Reader, readString)
990 {
991 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
992 OBJ_CHECK(obj);
993
994 ZEND_PARSE_PARAMETERS_NONE();
995
996 ION_STRING str;
997 ION_CHECK(ion_reader_read_string(obj->reader, &str));
998 RETURN_STRINGL((char *) str.value, str.length);
999 }
1000
1001 typedef iERR (*read_part_fn)(ION_READER *, BYTE *, SIZE, SIZE *);
1002 static void read_part(INTERNAL_FUNCTION_PARAMETERS, read_part_fn fn)
1003 {
1004 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1005 OBJ_CHECK(obj);
1006
1007 zval *ref;
1008 zend_string *zstr;
1009 zend_long len = 0x1000;
1010 ZEND_PARSE_PARAMETERS_START(1, 1)
1011 Z_PARAM_ZVAL(ref)
1012 Z_PARAM_OPTIONAL
1013 Z_PARAM_LONG(len)
1014 ZEND_PARSE_PARAMETERS_END();
1015
1016 ZVAL_DEREF(ref);
1017
1018 if (Z_TYPE_P(ref) == IS_STRING && Z_STRLEN_P(ref) == len) {
1019 /* reuse */
1020 zstr = Z_STR_P(ref);
1021 } else {
1022 zval_dtor(ref);
1023 zstr = zend_string_alloc(len, 0);
1024 }
1025
1026 SIZE read = 0;
1027 ION_CHECK(fn(obj->reader, (BYTE *) zstr->val, zstr->len, &read), goto fail);
1028 if (read > 0) {
1029 if (read < zstr->len) {
1030 zstr = zend_string_truncate(zstr, read, 0);
1031 }
1032 ZVAL_STR(ref, zstr);
1033 RETURN_TRUE;
1034 }
1035 fail:
1036 if (zstr != Z_STR_P(ref)) {
1037 zend_string_release(zstr);
1038 }
1039 ZVAL_EMPTY_STRING(ref);
1040 RETURN_FALSE;
1041 }
1042 static ZEND_METHOD(ion_Reader_Reader, readStringPart)
1043 {
1044 read_part(INTERNAL_FUNCTION_PARAM_PASSTHRU, ion_reader_read_partial_string);
1045 }
1046 static ZEND_METHOD(ion_Reader_Reader, readLob)
1047 {
1048 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1049 OBJ_CHECK(obj);
1050
1051 ZEND_PARSE_PARAMETERS_NONE();
1052
1053 php_ion_reader_read_lob(obj->reader, return_value);
1054 }
1055 static ZEND_METHOD(ion_Reader_Reader, readLobPart)
1056 {
1057 read_part(INTERNAL_FUNCTION_PARAM_PASSTHRU, ion_reader_read_lob_partial_bytes);
1058 }
1059 static ZEND_METHOD(ion_Reader_Reader, getPosition)
1060 {
1061 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1062 OBJ_CHECK(obj);
1063
1064 ZEND_PARSE_PARAMETERS_NONE();
1065
1066 int64_t bytes = 0;
1067 int32_t dummy;
1068 ION_CHECK(ion_reader_get_position(obj->reader, &bytes, &dummy, &dummy));
1069 RETURN_LONG(bytes);
1070 }
1071 static ZEND_METHOD(ion_Reader_Reader, getDepth)
1072 {
1073 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1074 OBJ_CHECK(obj);
1075
1076 ZEND_PARSE_PARAMETERS_NONE();
1077
1078 SIZE depth = 0;
1079 ION_CHECK(ion_reader_get_depth(obj->reader, &depth));
1080 RETURN_LONG(depth);
1081 }
1082 static ZEND_METHOD(ion_Reader_Reader, seek)
1083 {
1084 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1085 OBJ_CHECK(obj);
1086
1087 zend_long off, len = -1;
1088 ZEND_PARSE_PARAMETERS_START(1, 2)
1089 Z_PARAM_LONG(off)
1090 Z_PARAM_OPTIONAL
1091 Z_PARAM_LONG(len)
1092 ZEND_PARSE_PARAMETERS_END();
1093
1094 ION_CHECK(ion_reader_seek(obj->reader, off, len));
1095 }
1096 static ZEND_METHOD(ion_Reader_Reader, getValueOffset)
1097 {
1098 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1099 OBJ_CHECK(obj);
1100
1101 ZEND_PARSE_PARAMETERS_NONE();
1102
1103 POSITION off = 0;
1104 ION_CHECK(ion_reader_get_value_offset(obj->reader, &off));
1105 RETURN_LONG(off);
1106 }
1107 static ZEND_METHOD(ion_Reader_Reader, getValueLength)
1108 {
1109 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1110 OBJ_CHECK(obj);
1111
1112 ZEND_PARSE_PARAMETERS_NONE();
1113
1114 SIZE len = 0;
1115 ION_CHECK(ion_reader_get_value_length(obj->reader, &len));
1116 RETURN_LONG(len);
1117 }
1118 static ZEND_METHOD(ion_Reader_Buffer_Reader, __construct)
1119 {
1120 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1121 PTR_CHECK(obj);
1122
1123 zend_string *zstr;
1124 ZEND_PARSE_PARAMETERS_START(1, 2)
1125 Z_PARAM_STR(zstr)
1126 Z_PARAM_OPTIONAL
1127 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Reader_Options)
1128 ZEND_PARSE_PARAMETERS_END();
1129
1130 obj->type = BUFFER_READER;
1131 obj->buffer = zend_string_copy(zstr);
1132
1133 php_ion_reader_ctor(obj);
1134 }
1135 static ZEND_METHOD(ion_Reader_Buffer_Reader, getBuffer)
1136 {
1137 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1138 OBJ_CHECK(obj);
1139
1140 ZEND_PARSE_PARAMETERS_NONE();
1141 RETURN_STR_COPY(obj->buffer);
1142 }
1143
1144 static ZEND_METHOD(ion_Reader_Stream_Reader, __construct)
1145 {
1146 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1147 PTR_CHECK(obj);
1148
1149 zval *zstream;
1150 ZEND_PARSE_PARAMETERS_START(1, 2)
1151 Z_PARAM_RESOURCE(zstream)
1152 Z_PARAM_OPTIONAL
1153 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Reader_Options)
1154 ZEND_PARSE_PARAMETERS_END();
1155
1156 obj->type = STREAM_READER;
1157 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1158
1159 php_ion_reader_ctor(obj);
1160 }
1161 static ZEND_METHOD(ion_Reader_Stream_Reader, getStream)
1162 {
1163 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1164 OBJ_CHECK(obj);
1165
1166 ZEND_PARSE_PARAMETERS_NONE();
1167 PTR_CHECK(obj->stream.ptr);
1168
1169 GC_ADDREF(obj->stream.ptr->res);
1170 RETURN_RES(obj->stream.ptr->res);
1171 }
1172 static ZEND_METHOD(ion_Reader_Stream_Reader, resetStream)
1173 {
1174 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1175 OBJ_CHECK(obj);
1176
1177 zval *zstream;
1178 ZEND_PARSE_PARAMETERS_START(1, 1);
1179 Z_PARAM_RESOURCE(zstream);
1180 ZEND_PARSE_PARAMETERS_END();
1181
1182 ION_CHECK(ion_reader_reset_stream(&obj->reader, obj, php_ion_reader_stream_handler));
1183
1184 if (obj->stream.ptr) {
1185 zend_list_delete(obj->stream.ptr->res);
1186 }
1187 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1188 PTR_CHECK(obj->stream.ptr);
1189 Z_ADDREF_P(zstream);
1190 }
1191 static ZEND_METHOD(ion_Reader_Stream_Reader, resetStreamWithLength)
1192 {
1193 php_ion_reader *obj = php_ion_obj(reader, Z_OBJ_P(ZEND_THIS));
1194 OBJ_CHECK(obj);
1195
1196 zval *zstream;
1197 zend_long length;
1198 ZEND_PARSE_PARAMETERS_START(1, 2);
1199 Z_PARAM_RESOURCE(zstream);
1200 Z_PARAM_LONG(length)
1201 ZEND_PARSE_PARAMETERS_END();
1202
1203 ION_CHECK(ion_reader_reset_stream_with_length(&obj->reader, obj, php_ion_reader_stream_handler, length));
1204
1205 if (obj->stream.ptr) {
1206 zend_list_delete(obj->stream.ptr->res);
1207 }
1208 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1209 PTR_CHECK(obj->stream.ptr);
1210 Z_ADDREF_P(zstream);
1211 }
1212 static ZEND_METHOD(ion_Writer_Options, __construct)
1213 {
1214 php_ion_writer_options *obj = php_ion_obj(writer_options, Z_OBJ_P(ZEND_THIS));
1215 PTR_CHECK(obj);
1216
1217 zend_bool binary = false, compact_floats = false, escape = false, pretty = false,
1218 tabs = true, small_cntr_inl = true, suppress_sys = false, flush = false;
1219 zend_long indent = 2, max_depth = 10, max_ann = 10, temp = 0x4000, alloc = 0x10000;
1220 ZEND_PARSE_PARAMETERS_START(0, 16)
1221 Z_PARAM_OPTIONAL
1222 //public readonly ?\ion\Catalog $catalog = null,
1223 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->cat, ce_Catalog)
1224 //public readonly ?\ion\Decimal\Context $decimalContext = null,
1225 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->dec_ctx, ce_Decimal_Context)
1226 //public readonly bool $outputBinary = false,
1227 Z_PARAM_BOOL(binary)
1228 //public readonly bool $compactFloats = false,
1229 Z_PARAM_BOOL(compact_floats)
1230 //public readonly bool $escapeNonAscii = false,
1231 Z_PARAM_BOOL(escape)
1232 //public readonly bool $prettyPrint = false,
1233 Z_PARAM_BOOL(pretty)
1234 //public readonly bool $indentTabs = true,
1235 Z_PARAM_BOOL(tabs)
1236 //public readonly int $indentSize = 2,
1237 Z_PARAM_LONG(indent)
1238 //public readonly bool $smallContainersInline = true,
1239 Z_PARAM_BOOL(small_cntr_inl)
1240 //public readonly bool $suppressSystemValues = false,
1241 Z_PARAM_BOOL(suppress_sys)
1242 //public readonly bool $flushEveryValue = false,
1243 Z_PARAM_BOOL(flush)
1244 //public readonly int $maxContainerDepth = 10,
1245 Z_PARAM_LONG(max_depth)
1246 //public readonly int $maxAnnotations = 10,
1247 Z_PARAM_LONG(max_ann)
1248 //public readonly int $tempBufferSize = 0x4000,
1249 Z_PARAM_LONG(temp)
1250 //public readonly int $allocationPageSize = 0x10000,
1251 Z_PARAM_LONG(alloc)
1252 ZEND_PARSE_PARAMETERS_END();
1253
1254 if (obj->cat) {
1255 update_property_obj(&obj->std, ZEND_STRL("catalog"), obj->cat);
1256 obj->opt.pcatalog = php_ion_obj(catalog, obj->cat)->cat;
1257 } else {
1258 zend_update_property_null(NULL, &obj->std, ZEND_STRL("catalog"));
1259 }
1260 if (obj->dec_ctx) {
1261 update_property_obj(&obj->std, ZEND_STRL("decimalContext"), obj->dec_ctx);
1262 obj->opt.decimal_context = &php_ion_obj(decimal_ctx, obj->dec_ctx)->ctx;
1263 } else {
1264 zend_update_property_null(NULL, &obj->std, ZEND_STRL("decimalContext"));
1265 }
1266 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("outputBinary"),
1267 obj->opt.output_as_binary = binary);
1268 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("compactFloats"),
1269 obj->opt.compact_floats = compact_floats);
1270 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("escapeNonAscii"),
1271 obj->opt.escape_all_non_ascii = escape);
1272 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("prettyPrint"),
1273 obj->opt.pretty_print = pretty);
1274 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("indentTabs"),
1275 obj->opt.indent_with_tabs = tabs);
1276 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("indentSize"),
1277 obj->opt.indent_size = (SIZE) indent);
1278 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("smallContainersInline"),
1279 obj->opt.small_containers_in_line = small_cntr_inl);
1280 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("suppressSystemValues"),
1281 obj->opt.supress_system_values = suppress_sys);
1282 zend_update_property_bool(obj->std.ce, &obj->std, ZEND_STRL("flushEveryValue"),
1283 obj->opt.flush_every_value = flush);
1284 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("maxContainerDepth"),
1285 obj->opt.max_container_depth = (SIZE) max_depth);
1286 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("maxAnnotations"),
1287 obj->opt.max_annotation_count = (SIZE) max_ann);
1288 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("tempBufferSize"),
1289 obj->opt.temp_buffer_size = (SIZE) temp);
1290 zend_update_property_long(obj->std.ce, &obj->std, ZEND_STRL("allocationPageSize"),
1291 obj->opt.allocation_page_size = (SIZE) alloc);
1292 }
1293 static ZEND_METHOD(ion_Writer_Writer, writeNull)
1294 {
1295 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1296 OBJ_CHECK(obj);
1297
1298 ZEND_PARSE_PARAMETERS_NONE();
1299
1300 ION_CHECK(ion_writer_write_null(obj->writer));
1301 }
1302 static ZEND_METHOD(ion_Writer_Writer, writeTypedNull)
1303 {
1304 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1305 OBJ_CHECK(obj);
1306
1307 zend_object *typ_obj;
1308 ZEND_PARSE_PARAMETERS_START(1, 1)
1309 Z_PARAM_OBJ_OF_CLASS(typ_obj, ce_Type)
1310 ZEND_PARSE_PARAMETERS_END();
1311
1312 ION_CHECK(ion_writer_write_typed_null(obj->writer, ion_type_from_enum(typ_obj)));
1313 }
1314 static ZEND_METHOD(ion_Writer_Writer, writeBool)
1315 {
1316 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1317 OBJ_CHECK(obj);
1318
1319 zend_bool b;
1320 ZEND_PARSE_PARAMETERS_START(1, 1)
1321 Z_PARAM_BOOL(b)
1322 ZEND_PARSE_PARAMETERS_END();
1323
1324 ION_CHECK(ion_writer_write_bool(obj->writer, b));
1325 }
1326 static ZEND_METHOD(ion_Writer_Writer, writeInt)
1327 {
1328 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1329 OBJ_CHECK(obj);
1330
1331 zend_long l;
1332 zend_string *s;
1333 ZEND_PARSE_PARAMETERS_START(1, 1)
1334 Z_PARAM_STR_OR_LONG(s, l)
1335 ZEND_PARSE_PARAMETERS_END();
1336
1337 if (s) {
1338 ION_INT *i;
1339 ION_CHECK(ion_int_alloc(obj->writer, &i));
1340 ION_CHECK(ion_int_from_chars(i, s->val, s->len));
1341 ION_CHECK(ion_writer_write_ion_int(obj->writer, i));
1342 ion_int_free(i);
1343 } else {
1344 ION_CHECK(ion_writer_write_int64(obj->writer, l));
1345 }
1346 }
1347 static ZEND_METHOD(ion_Writer_Writer, writeFloat)
1348 {
1349 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1350 OBJ_CHECK(obj);
1351
1352 double d;
1353 ZEND_PARSE_PARAMETERS_START(1, 1)
1354 Z_PARAM_DOUBLE(d)
1355 ZEND_PARSE_PARAMETERS_END();
1356
1357 ION_CHECK(ion_writer_write_double(obj->writer, d));
1358 }
1359 static ZEND_METHOD(ion_Writer_Writer, writeDecimal)
1360 {
1361 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1362 OBJ_CHECK(obj);
1363
1364 zend_object *dec_obj;
1365 zend_string *dec_str;
1366 ZEND_PARSE_PARAMETERS_START(1, 1)
1367 Z_PARAM_OBJ_OF_CLASS_OR_STR(dec_obj, ce_Decimal, dec_str)
1368 ZEND_PARSE_PARAMETERS_END();
1369
1370 if (dec_str) {
1371 ION_STRING s;
1372 ION_CHECK(ion_writer_write_string(obj->writer, ion_string_from_zend(&s, dec_str)));
1373 } else {
1374 php_ion_decimal *dec = php_ion_obj(decimal, dec_obj);
1375 ION_CHECK(ion_writer_write_ion_decimal(obj->writer, &dec->dec));
1376 }
1377 }
1378 static ZEND_METHOD(ion_Writer_Writer, writeTimestamp)
1379 {
1380 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1381 OBJ_CHECK(obj);
1382
1383 zend_object *ts_obj;
1384 zend_string *ts_str;
1385 ZEND_PARSE_PARAMETERS_START(1, 1)
1386 Z_PARAM_OBJ_OF_CLASS_OR_STR(ts_obj, ce_Timestamp, ts_str)
1387 ZEND_PARSE_PARAMETERS_END();
1388
1389 decContext *ctx = NULL;
1390 if (obj->opt) {
1391 ctx = php_ion_obj(reader_options, obj->opt)->opt.decimal_context;
1392 }
1393
1394 ION_TIMESTAMP tmp = {0};
1395 if (ts_str) {
1396 SIZE used;
1397 ION_CHECK(ion_timestamp_parse(&tmp, ts_str->val, ts_str->len, &used, ctx));
1398 } else {
1399 php_ion_timestamp *ts = php_ion_obj(timestamp, ts_obj);
1400 OBJ_CHECK(ts);
1401 ion_timestamp_from_php(&tmp, ts, ctx);
1402 }
1403 ION_CHECK(ion_writer_write_timestamp(obj->writer, &tmp));
1404 }
1405 static ZEND_METHOD(ion_Writer_Writer, writeSymbol)
1406 {
1407 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1408 OBJ_CHECK(obj);
1409
1410 zend_object *sym_obj;
1411 zend_string *sym_str;
1412 ZEND_PARSE_PARAMETERS_START(1, 1)
1413 Z_PARAM_OBJ_OF_CLASS_OR_STR(sym_obj, ce_Symbol, sym_str);
1414 ZEND_PARSE_PARAMETERS_END();
1415
1416 if (sym_str) {
1417 ION_STRING is;
1418 ION_CHECK(ion_writer_write_symbol(obj->writer, ion_string_from_zend(&is, sym_str)));
1419 } else {
1420 php_ion_symbol *sym = php_ion_obj(symbol, sym_obj);
1421 PTR_CHECK(sym);
1422 ION_CHECK(ion_writer_write_ion_symbol(obj->writer, &sym->sym));
1423 }
1424 }
1425 static ZEND_METHOD(ion_Writer_Writer, writeString)
1426 {
1427 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1428 OBJ_CHECK(obj);
1429
1430 zend_string *str;
1431 ZEND_PARSE_PARAMETERS_START(1, 1)
1432 Z_PARAM_STR(str)
1433 ZEND_PARSE_PARAMETERS_END();
1434
1435 ION_STRING is;
1436 ION_CHECK(ion_writer_write_string(obj->writer, ion_string_from_zend(&is, str)));
1437 }
1438 static ZEND_METHOD(ion_Writer_Writer, writeCLob)
1439 {
1440 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1441 OBJ_CHECK(obj);
1442
1443 zend_string *str;
1444 ZEND_PARSE_PARAMETERS_START(1, 1)
1445 Z_PARAM_STR(str)
1446 ZEND_PARSE_PARAMETERS_END();
1447
1448 ION_CHECK(ion_writer_write_clob(obj->writer, (BYTE *) str->val, str->len));
1449 }
1450 static ZEND_METHOD(ion_Writer_Writer, writeBLob)
1451 {
1452 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1453 OBJ_CHECK(obj);
1454
1455 zend_string *str;
1456 ZEND_PARSE_PARAMETERS_START(1, 1)
1457 Z_PARAM_STR(str)
1458 ZEND_PARSE_PARAMETERS_END();
1459
1460 ION_CHECK(ion_writer_write_blob(obj->writer, (BYTE *) str->val, str->len));
1461 }
1462 static ZEND_METHOD(ion_Writer_Writer, startLob)
1463 {
1464 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1465 OBJ_CHECK(obj);
1466
1467 zend_object *typ_obj;
1468 ZEND_PARSE_PARAMETERS_START(1, 1)
1469 Z_PARAM_OBJ_OF_CLASS(typ_obj, ce_Type)
1470 ZEND_PARSE_PARAMETERS_END();
1471
1472 ION_CHECK(ion_writer_start_lob(obj->writer, ion_type_from_enum(typ_obj)));
1473 }
1474 static ZEND_METHOD(ion_Writer_Writer, appendLob)
1475 {
1476 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1477 OBJ_CHECK(obj);
1478
1479 zend_string *str;
1480 ZEND_PARSE_PARAMETERS_START(1, 1)
1481 Z_PARAM_STR(str)
1482 ZEND_PARSE_PARAMETERS_END();
1483
1484 ION_CHECK(ion_writer_append_lob(obj->writer, (BYTE *) str->val, str->len));
1485 }
1486 static ZEND_METHOD(ion_Writer_Writer, finishLob)
1487 {
1488 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1489 OBJ_CHECK(obj);
1490
1491 ZEND_PARSE_PARAMETERS_NONE();
1492
1493 ION_CHECK(ion_writer_finish_lob(obj->writer));
1494 }
1495 static ZEND_METHOD(ion_Writer_Writer, startContainer)
1496 {
1497 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1498 OBJ_CHECK(obj);
1499
1500 zend_object *typ_obj;
1501 ZEND_PARSE_PARAMETERS_START(1, 1)
1502 Z_PARAM_OBJ_OF_CLASS(typ_obj, ce_Type)
1503 ZEND_PARSE_PARAMETERS_END();
1504
1505 ION_CHECK(ion_writer_start_container(obj->writer, ion_type_from_enum(typ_obj)));
1506 }
1507 static ZEND_METHOD(ion_Writer_Writer, finishContainer)
1508 {
1509 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1510 OBJ_CHECK(obj);
1511
1512 ZEND_PARSE_PARAMETERS_NONE();
1513
1514 ION_CHECK(ion_writer_finish_container(obj->writer));
1515 }
1516 static ZEND_METHOD(ion_Writer_Writer, writeFieldName)
1517 {
1518 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1519 OBJ_CHECK(obj);
1520
1521 zend_object *sym_obj;
1522 zend_string *sym_str;
1523 ZEND_PARSE_PARAMETERS_START(1, 1)
1524 Z_PARAM_OBJ_OF_CLASS_OR_STR(sym_obj, ce_Symbol, sym_str);
1525 ZEND_PARSE_PARAMETERS_END();
1526
1527 if (sym_str) {
1528 ION_STRING is;
1529 ION_CHECK(ion_writer_write_field_name(obj->writer, ion_string_from_zend(&is, sym_str)));
1530 } else {
1531 php_ion_symbol *sym = php_ion_obj(symbol, sym_obj);
1532 PTR_CHECK(sym);
1533 ION_CHECK(ion_writer_write_field_name_symbol(obj->writer, &sym->sym));
1534 }
1535 }
1536 static ZEND_METHOD(ion_Writer_Writer, writeAnnotation)
1537 {
1538 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1539 OBJ_CHECK(obj);
1540
1541 zval *args;
1542 unsigned argc;
1543 ZEND_PARSE_PARAMETERS_START(1, -1)
1544 Z_PARAM_VARIADIC('+', args, argc);
1545 ZEND_PARSE_PARAMETERS_END();
1546
1547 for (unsigned i = 0; i < argc; ++i) {
1548 switch (Z_TYPE(args[i])) {
1549 case IS_STRING: ;
1550 ION_STRING is;
1551 ION_CHECK(ion_writer_add_annotation(obj->writer, ion_string_from_zend(&is, Z_STR(args[i]))));
1552 break;
1553
1554 case IS_OBJECT:
1555 ION_CHECK(ion_writer_add_annotation_symbol(obj->writer, &php_ion_obj(symbol, Z_OBJ(args[i]))->sym));
1556 break;
1557 }
1558 }
1559 }
1560 static ZEND_METHOD(ion_Writer_Writer, getDepth)
1561 {
1562 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1563 OBJ_CHECK(obj);
1564
1565 ZEND_PARSE_PARAMETERS_NONE();
1566
1567 SIZE depth;
1568 ION_CHECK(ion_writer_get_depth(obj->writer, &depth));
1569 RETURN_LONG(depth);
1570 }
1571 static ZEND_METHOD(ion_Writer_Writer, flush)
1572 {
1573 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1574 OBJ_CHECK(obj);
1575
1576 ZEND_PARSE_PARAMETERS_NONE();
1577
1578 SIZE flushed;
1579 ION_CHECK(ion_writer_flush(obj->writer, &flushed));
1580 if (obj->type == BUFFER_WRITER) {
1581 smart_str_0(&obj->buffer.str);
1582 }
1583 RETURN_LONG(flushed);
1584 }
1585 static ZEND_METHOD(ion_Writer_Writer, finish)
1586 {
1587 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1588 OBJ_CHECK(obj);
1589
1590 ZEND_PARSE_PARAMETERS_NONE();
1591
1592 SIZE flushed;
1593 ION_CHECK(ion_writer_finish(obj->writer, &flushed));
1594 if (obj->type == BUFFER_WRITER) {
1595 smart_str_0(&obj->buffer.str);
1596 }
1597 RETURN_LONG(flushed);
1598 }
1599 static ZEND_METHOD(ion_Writer_Writer, writeOne)
1600 {
1601 }
1602 static ZEND_METHOD(ion_Writer_Writer, writeAll)
1603 {
1604 }
1605 static ZEND_METHOD(ion_Writer_Buffer_Writer, __construct)
1606 {
1607 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1608 PTR_CHECK(obj);
1609
1610 zval *ref;
1611 ZEND_PARSE_PARAMETERS_START(1, 2)
1612 Z_PARAM_ZVAL(ref)
1613 Z_PARAM_OPTIONAL
1614 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Writer_Options)
1615 ZEND_PARSE_PARAMETERS_END();
1616
1617 obj->type = BUFFER_WRITER;
1618 ZVAL_COPY(&obj->buffer.val, ref);
1619 zval_dtor(Z_REFVAL_P(ref));
1620
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(zend_string_dup(obj->buffer.str.s, 0));
1631 }
1632 static ZEND_METHOD(ion_Writer_Stream_Writer, __construct)
1633 {
1634 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1635 PTR_CHECK(obj);
1636
1637 zval *zstream;
1638 ZEND_PARSE_PARAMETERS_START(1, 2)
1639 Z_PARAM_RESOURCE(zstream)
1640 Z_PARAM_OPTIONAL
1641 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Writer_Options)
1642 ZEND_PARSE_PARAMETERS_END();
1643
1644 obj->type = STREAM_WRITER;
1645 php_stream_from_zval_no_verify(obj->stream.ptr, zstream);
1646
1647 php_ion_writer_ctor(obj);
1648 }
1649 static ZEND_METHOD(ion_Writer_Stream_Writer, getStream)
1650 {
1651 php_ion_writer *obj = php_ion_obj(writer, Z_OBJ_P(ZEND_THIS));
1652 OBJ_CHECK(obj);
1653
1654 ZEND_PARSE_PARAMETERS_NONE();
1655 PTR_CHECK(obj->stream.ptr);
1656
1657 GC_ADDREF(obj->stream.ptr->res);
1658 RETURN_RES(obj->stream.ptr->res);
1659 }
1660
1661 static ZEND_METHOD(ion_Serializer_PHP, __construct)
1662 {
1663 php_ion_serializer_php *obj = php_ion_obj(serializer_php, Z_OBJ_P(ZEND_THIS));
1664 PTR_CHECK(obj);
1665
1666 obj->serializer.call_magic = true;
1667
1668 ZEND_PARSE_PARAMETERS_START(0, 4)
1669 Z_PARAM_OPTIONAL
1670 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Writer_Options)
1671 Z_PARAM_BOOL(obj->serializer.multi_seq)
1672 Z_PARAM_BOOL(obj->serializer.call_magic)
1673 Z_PARAM_STR_OR_NULL(obj->serializer.call_custom)
1674 ZEND_PARSE_PARAMETERS_END();
1675
1676 php_ion_serializer_php_ctor(obj);
1677 }
1678 static ZEND_METHOD(ion_Serializer_PHP, serialize)
1679 {
1680 zend_object *obj = Z_OBJ_P(ZEND_THIS);
1681
1682 zval *data;
1683 ZEND_PARSE_PARAMETERS_START(1, 1)
1684 Z_PARAM_ZVAL(data)
1685 ZEND_PARSE_PARAMETERS_END();
1686
1687 php_ion_serialize(&php_ion_obj(serializer_php, obj)->serializer, data, return_value);
1688 }
1689 static ZEND_FUNCTION(ion_serialize)
1690 {
1691 zval *data;
1692 zend_object *zo_ser = NULL;
1693 ZEND_PARSE_PARAMETERS_START(1, 2)
1694 Z_PARAM_ZVAL(data)
1695 Z_PARAM_OPTIONAL
1696 Z_PARAM_OBJ_OF_CLASS_OR_NULL(zo_ser, ce_Serializer)
1697 ZEND_PARSE_PARAMETERS_END();
1698
1699 if (!zo_ser || zo_ser->ce == ce_Serializer_PHP) {
1700 // default, fast path
1701 php_ion_serializer *ser = zo_ser ? &php_ion_obj(serializer_php, zo_ser)->serializer : NULL;
1702 php_ion_serialize(ser, data, return_value);
1703 } else {
1704 zend_call_method_with_1_params(zo_ser, NULL, NULL, "serialize", return_value, data);
1705 }
1706 }
1707
1708 static ZEND_METHOD(ion_Unserializer_PHP, __construct)
1709 {
1710 php_ion_unserializer_php *obj = php_ion_obj(unserializer_php, Z_OBJ_P(ZEND_THIS));
1711 PTR_CHECK(obj);
1712
1713 obj->unserializer.call_magic = true;
1714
1715 ZEND_PARSE_PARAMETERS_START(0, 4)
1716 Z_PARAM_OPTIONAL
1717 Z_PARAM_OBJ_OF_CLASS_OR_NULL(obj->opt, ce_Reader_Options)
1718 Z_PARAM_BOOL(obj->unserializer.multi_seq)
1719 Z_PARAM_BOOL(obj->unserializer.call_magic)
1720 Z_PARAM_STR_OR_NULL(obj->unserializer.call_custom)
1721 ZEND_PARSE_PARAMETERS_END();
1722
1723 php_ion_unserializer_php_ctor(obj);
1724 }
1725 static ZEND_METHOD(ion_Unserializer_PHP, unserialize)
1726 {
1727 zend_object *obj = Z_OBJ_P(ZEND_THIS);
1728
1729 zval *data;
1730 ZEND_PARSE_PARAMETERS_START(1, 1)
1731 Z_PARAM_ZVAL(data)
1732 ZEND_PARSE_PARAMETERS_END();
1733
1734 php_ion_unserialize(&php_ion_obj(unserializer_php, obj)->unserializer, data, return_value);
1735 }
1736 static ZEND_FUNCTION(ion_unserialize)
1737 {
1738 zval *data;
1739 zend_object *zo_ser = NULL;
1740 ZEND_PARSE_PARAMETERS_START(1, 2)
1741 Z_PARAM_ZVAL(data)
1742 Z_PARAM_OPTIONAL
1743 Z_PARAM_OBJ_OF_CLASS_OR_NULL(zo_ser, ce_Unserializer)
1744 ZEND_PARSE_PARAMETERS_END();
1745
1746 if (!zo_ser || zo_ser->ce == ce_Unserializer_PHP) {
1747 // default, fast path
1748 php_ion_unserializer *ser = zo_ser ? &php_ion_obj(unserializer_php, zo_ser)->unserializer : NULL;
1749 php_ion_unserialize(ser, data, return_value);
1750 } else {
1751 zend_call_method_with_1_params(zo_ser, NULL, NULL, "__invoke", return_value, data);
1752 }
1753 }
1754
1755 PHP_RINIT_FUNCTION(ion)
1756 {
1757 #if defined(ZTS) && defined(COMPILE_DL_ION)
1758 ZEND_TSRMLS_CACHE_UPDATE();
1759 #endif
1760
1761 php_ion_globals_symbols_init();
1762 php_ion_globals_serializer_init();
1763 php_ion_globals_unserializer_init();
1764 return SUCCESS;
1765 }
1766
1767 PHP_RSHUTDOWN_FUNCTION(ion)
1768 {
1769 php_ion_globals_unserializer_dtor();
1770 php_ion_globals_serializer_dtor();
1771 php_ion_globals_symbols_dtor();
1772 return SUCCESS;
1773 }
1774
1775 #define ZEND_ARG_VARIADIC_OBJ_TYPE_MASK(pass_by_ref, name, classname, type_mask, default_value) \
1776 { #name, ZEND_TYPE_INIT_CLASS_CONST_MASK(#classname, ((type_mask) | _ZEND_ARG_INFO_FLAGS(pass_by_ref, 1, 0))), default_value },
1777 #include "ion_arginfo.h"
1778
1779 // spl_iterators.h includes ext/pcre/php_pcre.h which might not find pcre2.h
1780 extern PHPAPI zend_class_entry *spl_ce_RecursiveIterator;
1781
1782 PHP_MINIT_FUNCTION(ion)
1783 {
1784 // true globals
1785 if (SUCCESS != g_sym_init()) {
1786 return FAILURE;
1787 }
1788
1789 // Catalog
1790 php_ion_register(catalog, Catalog, zend_ce_countable);
1791
1792 // Decimal
1793 php_ion_register(decimal, Decimal);
1794 php_ion_register(decimal_ctx, Decimal_Context);
1795 ce_Decimal_Context_Rounding = register_class_ion_Decimal_Context_Rounding();
1796
1797 // LOB
1798 ce_LOB = register_class_ion_LOB();
1799
1800 // Reader
1801 ce_Reader = register_class_ion_Reader(spl_ce_RecursiveIterator);
1802 php_ion_register(reader_options, Reader_Options);
1803 php_ion_register(reader, Reader_Reader, ce_Reader);
1804 ce_Reader_Buffer = register_class_ion_Reader_Buffer(ce_Reader);
1805 ce_Reader_Buffer_Reader = register_class_ion_Reader_Buffer_Reader(ce_Reader_Reader, ce_Reader_Buffer);
1806 ce_Reader_Stream = register_class_ion_Reader_Stream(ce_Reader);
1807 ce_Reader_Stream_Reader = register_class_ion_Reader_Stream_Reader(ce_Reader_Reader, ce_Reader_Stream);
1808
1809 // Serializer
1810 ce_Serializer = register_class_ion_Serializer();
1811 php_ion_register(serializer_php, Serializer_PHP, ce_Serializer);
1812
1813 // Symbol
1814 php_ion_register(symbol, Symbol);
1815 oh_Symbol.compare = php_ion_symbol_zval_compare;
1816 php_ion_register(symbol_iloc, Symbol_ImportLocation);
1817 php_ion_register(symbol_table, Symbol_Table);
1818 ce_Symbol_Table->create_object = NULL;
1819 ce_Symbol_Table_Local = register_class_ion_Symbol_Table_Local(ce_Symbol_Table);
1820 ce_Symbol_Table_Local->create_object = create_ion_Symbol_Table;
1821 ce_Symbol_Table_Shared = register_class_ion_Symbol_Table_Shared(ce_Symbol_Table);
1822 ce_Symbol_Table_Shared->create_object = create_ion_Symbol_Table;
1823 ce_Symbol_Enum = register_class_ion_Symbol_Enum();
1824 ce_Symbol_Table_System = register_class_ion_Symbol_Table_System(ce_Symbol_Enum);
1825 ce_Symbol_Table_PHP = register_class_ion_Symbol_Table_PHP(ce_Symbol_Enum);
1826
1827 // Timestamp
1828 ce_Timestamp = register_class_ion_Timestamp(php_date_get_date_ce());
1829 ce_Timestamp_Precision = register_class_ion_Timestamp_Precision();
1830
1831 // Type
1832 ce_Type = register_class_ion_Type();
1833
1834 // Writer
1835 ce_Writer = register_class_ion_Writer();
1836 php_ion_register(writer_options, Writer_Options);
1837 php_ion_register(writer, Writer_Writer, ce_Writer);
1838 ce_Writer_Buffer = register_class_ion_Writer_Buffer(ce_Writer);
1839 ce_Writer_Buffer_Writer = register_class_ion_Writer_Buffer_Writer(ce_Writer_Writer, ce_Writer_Buffer);
1840 ce_Writer_Stream = register_class_ion_Writer_Stream(ce_Writer);
1841 ce_Writer_Stream_Writer = register_class_ion_Writer_Stream_Writer(ce_Writer_Writer, ce_Writer_Stream);
1842
1843 // Unserializer
1844 ce_Unserializer = register_class_ion_Unserializer();
1845 php_ion_register(unserializer_php, Unserializer_PHP, ce_Unserializer);
1846
1847 return SUCCESS;
1848 }
1849
1850 PHP_MSHUTDOWN_FUNCTION(ion)
1851 {
1852 if (g_sym_tab_php) {
1853 ion_symbol_table_close(g_sym_tab_php);
1854 }
1855 zend_hash_destroy(&g_sym_hash);
1856 return SUCCESS;
1857 }
1858
1859 PHP_MINFO_FUNCTION(ion)
1860 {
1861 php_info_print_table_start();
1862 php_info_print_table_header(2, "ion support", "enabled");
1863 php_info_print_table_end();
1864 }
1865
1866 PHP_GINIT_FUNCTION(ion)
1867 {
1868 memset(ion_globals, 0, sizeof(*ion_globals));
1869
1870 php_ion_decimal_ctx_init_max(&ion_globals->decimal.ctx, DEC_ROUND_HALF_EVEN);
1871 php_ion_decimal_from_zend_long(&ion_globals->decimal.zend_max, &ion_globals->decimal.ctx, ZEND_LONG_MAX);
1872 php_ion_decimal_from_zend_long(&ion_globals->decimal.zend_min, &ion_globals->decimal.ctx, ZEND_LONG_MIN);
1873 }
1874
1875 PHP_GSHUTDOWN_FUNCTION(ion)
1876 {
1877 }
1878
1879 static zend_module_dep ion_module_deps[] = {
1880 ZEND_MOD_REQUIRED("date")
1881 ZEND_MOD_REQUIRED("spl")
1882 ZEND_MOD_END
1883 };
1884
1885 zend_module_entry ion_module_entry = {
1886 STANDARD_MODULE_HEADER_EX,
1887 NULL,
1888 ion_module_deps,
1889 "ion", /* Extension name */
1890 ext_functions, /* zend_function_entry */
1891 PHP_MINIT(ion), /* PHP_MINIT - Module initialization */
1892 PHP_MSHUTDOWN(ion), /* PHP_MSHUTDOWN - Module shutdown */
1893 PHP_RINIT(ion), /* PHP_RINIT - Request initialization */
1894 PHP_RSHUTDOWN(ion), /* PHP_RSHUTDOWN - Request shutdown */
1895 PHP_MINFO(ion), /* PHP_MINFO - Module info */
1896 PHP_ION_VERSION, /* Version */
1897 ZEND_MODULE_GLOBALS(ion),
1898 PHP_GINIT(ion), /* PHP_GINIT */
1899 PHP_GSHUTDOWN(ion), /* PHP_GSHUTDOWN */
1900 NULL,
1901 STANDARD_MODULE_PROPERTIES_EX
1902 };
1903
1904 #ifdef COMPILE_DL_ION
1905 # ifdef ZTS
1906 ZEND_TSRMLS_CACHE_DEFINE()
1907 # endif
1908 ZEND_GET_MODULE(ion)
1909 #endif
PHP extension for Amazon ION