source: trunk/processor/struct.m4

Last change on this file was 1488, checked in by moo, 7 months ago

Decompiler PHP_5_6: updated support for zend_ast

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