source: branches/3.0/processor/struct.m4 @ 1417

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

merge from trunk: remove asm from processor, it just cant be implemented in processor

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