source: trunk/processor/struct.m4 @ 843

Last change on this file since 843 was 843, checked in by moo, 3 years ago

PHP_5_4: handle exclude_from_classes

  • Property svn:eol-style set to native
File size: 6.7 KB
RevLine 
[1]1define(`pushdefFUNC_NAME', `
2    pushdef(`FUNC_NAME', `xc_`'KIND`'_`'ifelse(`$2', `', `$1', `$2')')
3')
4dnl {{{ DECL_STRUCT_P_FUNC(1:type, 2:name, 3:comma=;)
[4]5define(`DECL_STRUCT_P_FUNC', `translit(
[1]6    pushdefFUNC_NAME(`$1', `$2')
7    define(`DEFINED_'ifelse(`$2', `', `$1', `$2'), `')
8    ifdef(`EXPORT_'ifelse(`$2', `', `$1', `$2'), `void', `static void inline')
9    FUNC_NAME`'(
10        IFDPRINT( `const $1 * const src, int indent')
[178]11        IFCALC(   `xc_processor_t *processor, const $1 * const src')
12        IFSTORE(  `xc_processor_t *processor, $1 *dst, const $1 * const src')
13        IFRESTORE(`xc_processor_t *processor, $1 *dst, const $1 * const src')
[1]14        IFDASM(   `zval *dst, const $1 * const src')
15        IFASM(    `$1 *dst, const $1 * const src')
16        TSRMLS_DC
17    )ifelse(`$3', `', `;')
18    popdef(`FUNC_NAME')dnl
[4]19, `
20', ` ')')
[1]21dnl }}}
22dnl {{{ DEF_STRUCT_P_FUNC(1:type, 2:name, 3:body)
23define(`DEF_STRUCT_P_FUNC', `
24    pushdefFUNC_NAME(`$1', `$2')
25/* {`{'{ FUNC_NAME */
26    ifdef(`EXPORT_'ifelse(`$2', `', `$1', `$2'), `
27        /* export: DECL_STRUCT_P_FUNC(`$1', `$2') :export */
28    ')
29DECL_STRUCT_P_FUNC(`$1', `$2', 1)
30    {
[29]31        pushdef(`ELEMENTS_DONE')
[1]32        IFASSERT(`
33            /* {{{ init assert */
[719]34            ifdef(`SIZEOF_$1', , `m4_errprint(`missing SIZEOF_$1, safe to ignore')')
[740]35            ifdef(`COUNTOF_$1', , `m4_errprint(`missing COUNTOF_$1, safe to ignore')')
[29]36            dnl SIZEOF_x COUNTOF_x can be both defined or both not
37            ifdef(`SIZEOF_$1', `
38                ifdef(`COUNTOF_$1', , `m4_errprint(`AUTOCHECK WARN: missing COUNTOF_$1')')
39            ', `
40                define(`SIZEOF_$1', 0)
41            ')
42            ifdef(`COUNTOF_$1', `
43                ifdef(`SIZEOF_$1', , `m4_errprint(`AUTOCHECK WARN: missing SIZEOF_$1')')
44            ', `
45                define(`COUNTOF_$1', 0)
46            ')
[1]47            int assert_size = SIZEOF_$1, assert_count = COUNTOF_$1;
48            int done_size = 0, done_count = 0;
[719]49            const char *assert_names[] = { ifdef(`ELEMENTSOF_$1', `ELEMENTSOF_$1') };
50            HashTable done_names;
51            zend_hash_init(&done_names, 0, NULL, NULL, 0);
[1]52            /* }}} */
53            IFRESTORE(`assert(xc_is_shm(src));')
54            IFCALCSTORE(`assert(!xc_is_shm(src));')
[11]55            do {
[1]56        ')
[719]57        ifdef(`SIZEOF_$1', , `m4_errprint(`AUTOCHECK WARN: $1: missing structinfo, dont panic')')
[1]58
59        ifdef(`USEMEMCPY', `IFCOPY(`
60            memcpy(dst, src, sizeof($1));
[11]61            do {
[1]62        ')')
63
64        IFDPRINT(`
[534]65            fprintf(stderr, "%s", "{\n");
[1]66            indent ++;
67        ')
68        $3`'
69        IFDPRINT(`
70            indent --;
71            INDENT()fprintf(stderr, "}\n");
72        ')
[719]73        ifdef(`SKIPASSERT_ONCE', `
74            undefine(`SKIPASSERT_ONCE')
[29]75            IFASSERT(`
[719]76                zend_hash_destroy(&done_names);
77            ')
78        ', `
79            IFASSERT(`
80            /* {{{ check assert */ do {
81                int name_check_errors = xc_check_names(__FILE__, __LINE__, "FUNC_NAME", assert_names, sizeof(assert_names) / sizeof(assert_names[0]), &done_names);
82                zend_hash_destroy(&done_names);
83
[1]84                if (done_count != assert_count) {
85                    fprintf(stderr
[93]86                        , "count assertion failed at %s `#'%d FUNC_NAME`' : unexpected:%d - expecting:%d = %d != 0\n"
[1]87                        , __FILE__, __LINE__
88                        , done_count, assert_count, done_count - assert_count
89                        );
90                }
91                if (done_size != assert_size) {
92                    fprintf(stderr
[93]93                        , "size assertion failed at %s `#'%d FUNC_NAME`' : unexpected:%d - expecting:%d = %d != 0\n"
[1]94                        , __FILE__, __LINE__
95                        , done_size, assert_size, done_size - assert_size
96                        );
97                }
[719]98                if (name_check_errors || done_count != assert_count || done_size != assert_size) {
[93]99                    assert(0);
100                }
[719]101            } while (0); /* }}} */
[29]102            ')
103            ifdef(`ELEMENTSOF_$1', `
104                pushdef(`ELEMENTS_UNDONE', LIST_DIFF(defn(`ELEMENTSOF_$1'), defn(`ELEMENTS_DONE')))
105                ifelse(defn(`ELEMENTS_UNDONE'), , `m4_errprint(`AUTOCHECK INFO: $1: processor looks good')', `
106                    m4_errprint(`AUTOCHECK ERROR: ====' KIND `$1 =================')
107                    m4_errprint(`AUTOCHECK expected:' defn(`ELEMENTSOF_$1'))
108                    m4_errprint(`AUTOCHECK missing :' defn(`ELEMENTS_UNDONE'))
109                    define(`EXIT_PENDING', 1)
[1]110                ')
[29]111                popdef(`ELEMENTS_UNDONE')
112            ')
113        ')
[11]114        ifdef(`USEMEMCPY', `IFCOPY(`
115            } while (0);
116        ')')
[4]117        IFASSERT(`
[11]118            } while (0);
[4]119        ')
[29]120        popdef(`ELEMENTS_DONE')
[1]121    }
122/* }`}'} */
123    popdef(`FUNC_NAME')
124')
125dnl }}}
[4]126dnl {{{ STRUCT_P_EX(1:type, 2:dst, 3:src, 4:elm-name, 5:name=type, 6:&)
[1]127define(`STRUCT_P_EX', `
128    DBG(`$0($*)')
[4]129    pushdefFUNC_NAME(`$1', `$5')
[843]130    ifdef(`DEFINED_'ifelse(`$5', `', `$1', `$5'), `', `m4_errprint(`AUTOCHECK ERROR: Unknown struct "'ifelse(`$5', `', `$1', `$5')`"')define(`EXIT_PENDING', 1)')
[4]131    assert(sizeof($1) == sizeof(($6 $3)[0]));
132    ifelse(`$6', `', `ALLOC(`$2', `$1')')
[1]133    IFDASM(`do {
134        zval *zv;
135        ALLOC_INIT_ZVAL(zv);
136        array_init(zv);
137    ')
138    FUNC_NAME`'(
[4]139        IFDPRINT( `           $6 $3, indent')
140        IFCALC(   `processor, $6 $3')
141        IFSTORE(  `processor, $6 $2, $6 $3')
142        IFRESTORE(`processor, $6 $2, $6 $3')
143        IFDASM(   `zv, $6 $3')
144        IFASM(    `$6 $2, $6 $3')
[1]145        TSRMLS_CC
146    );
147    IFDASM(`
[4]148        add_assoc_zval_ex(dst, ZEND_STRS("$4"), zv);
[1]149    } while (0);
150    ')
151    popdef(`FUNC_NAME')
[4]152    ifelse(`$6', , `FIXPOINTER_EX(`$1', `$2')')
[1]153')
154dnl }}}
155dnl {{{ STRUCT_P(1:type, 2:elm, 3:name=type)
156define(`STRUCT_P', `
157    DBG(`$0($*)')
[843]158    if (SRC(`$2')) {
[534]159        IFDPRINT(`INDENT()`'fprintf(stderr, "$1:$2 ");')
[843]160        STRUCT_P_EX(`$1', `dst->$2', `SRC(`$2')', `$2', `$3')
[1]161    }
162    else {
[230]163        IFDPRINT(`INDENT()`'fprintf(stderr, "$1:$2:\tNULL\n");')
[4]164        COPYNULL_EX(`dst->$2', `$2')
[1]165    }
166    DONE(`$2')
167')
168dnl }}}
169dnl {{{ STRUCT(1:type, 2:elm, 3:name=type)
170define(`STRUCT', `
171    DBG(`$0($*)')
[843]172    assert(sizeof($1) == sizeof(SRC(`$2')));
[534]173    IFDPRINT(`INDENT()`'fprintf(stderr, "$1:$2 ");')
[843]174    STRUCT_P_EX(`$1', `dst->$2', `SRC(`$2')', `$2', `$3', `&')
[1]175    DONE(`$2')
176')
177dnl }}}
[662]178dnl {{{ STRUCT_ARRAY(1:count, 2:type, 3:elm, 4:name=type, 5:loopcounter)
[1]179define(`STRUCT_ARRAY', `
[843]180    if (SRC(`$3')) {
[662]181        ifelse(
182            `$5', `', `int i; pushdef(`LOOPCOUNTER', `i')',
183            `', `', `pushdef(`LOOPCOUNTER', `$5')')
[1]184        pushdefFUNC_NAME(`$2', `$4')
185        IFDASM(`
186            zval *arr;
187            ALLOC_INIT_ZVAL(arr);
188            array_init(arr);
[835]189
[843]190            for (LOOPCOUNTER = 0;
191                    ifelse(`$1', `', `SRC(`$3[LOOPCOUNTER]')',
192                    `', `', `LOOPCOUNTER < SRC(`$1')');
193                    ++LOOPCOUNTER) {
[1]194                zval *zv;
195
196                ALLOC_INIT_ZVAL(zv);
197                array_init(zv);
[843]198                FUNC_NAME (zv, &(SRC(`$3[LOOPCOUNTER]')) TSRMLS_CC);
[1]199                add_next_index_zval(arr, zv);
200            }
201            add_assoc_zval_ex(dst, ZEND_STRS("$3"), arr);
202        ', `
[835]203            dnl find count with NULL
204            ifelse(`$1', `', `
[843]205                size_t count = 0;
206                while (SRC(`$3[count]')) {
207                    ++count;
[835]208                }
209                ++count;
[843]210                pushdef(`ARRAY_ELEMENT_COUNT', `count')
[835]211            ',
[843]212            `', `', `pushdef(`ARRAY_ELEMENT_COUNT', `SRC(`$1')')')
213            ALLOC(`dst->$3', `$2', `ARRAY_ELEMENT_COUNT')
214            popdef(`ARRAY_ELEMENT_COUNT')
215
[1]216            ifdef(`AFTER_ALLOC', AFTER_ALLOC)
[835]217
[843]218            for (LOOPCOUNTER = 0;
219                    ifelse(`$1', `', `SRC(`$3[LOOPCOUNTER]')',
220                    `', `', `LOOPCOUNTER < SRC(`$1')');
221                    ++LOOPCOUNTER) {
[1]222                DISABLECHECK(`
[662]223                    STRUCT(`$2', `$3[LOOPCOUNTER]', `$4')
[1]224                ')
225            }
[843]226            dnl the end marker
227            ifelse(`$1', `', `IFCOPY(`DST(`$3[LOOPCOUNTER]') = NULL;')')
[1]228        ')dnl IFDASM
229        DONE(`$3')
230        popdef(`FUNC_NAME')
[662]231        popdef(`LOOPCOUNTER')
[1]232    }
233    else {
234        COPYNULL(`$3')
235        ifdef(`AFTER_ALLOC', AFTER_ALLOC)
236    }
237')
238dnl }}}
Note: See TracBrowser for help on using the repository browser.