+++ /dev/null
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
-
-#include "php.h"
-#include "php_psi.h"
-
-#include "types.h"
-
-#include "libjit.h"
-#include "libffi.h"
-
-static inline void dump_level(int fd, unsigned level) {
- dprintf(fd, "%.*s", level > 30 ? 30 : level,
- "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t");
-}
-
-static inline void dump_decl_arg(int fd, decl_arg *darg, unsigned level);
-static inline void dump_struct_args(int fd, decl_args *args, unsigned level);
-static inline void dump_enum_items(int fd, decl_enum_items *items, unsigned level);
-
-#define is_anon_type(name, type) !strncmp(name, type "@", sizeof(type))
-
-static inline void dump_decl_type(int fd, decl_type *t, unsigned level) {
- switch (t->type) {
- case PSI_T_POINTER:
- dprintf(fd, "%s *", t->name);
- return;
-
- case PSI_T_STRUCT:
- dprintf(fd, "struct ");
- if (!strncmp(t->name, "struct@", sizeof("struct"))) {
- dump_struct_args(fd, t->real.strct->args, level);
- return;
- }
- break;
-
- case PSI_T_ENUM:
- dprintf(fd, "enum ");
- if (!strncmp(t->name, "enum@", sizeof("enum"))) {
- dump_enum_items(fd, t->real.enm->items, level);
- return;
- }
- break;
-
- case PSI_T_UNION:
- dprintf(fd, "union ");
- if (!strncmp(t->name, "union@", sizeof("union"))) {
- dump_struct_args(fd, t->real.unn->args, level);
- return;
- }
- break;
- }
- dprintf(fd, "%s", t->name);
-}
-
-static inline void dump_decl_var(int fd, decl_var *v) {
- dprintf(fd, "%.*s%s", v->pointer_level-!!v->array_size, "**********", v->name);
- if (v->array_size) {
- dprintf(fd, "[%u]", v->array_size);
- }
-}
-
-static inline void dump_decl_arg(int fd, decl_arg *a, unsigned level) {
- if (a->type->type == PSI_T_FUNCTION) {
- dump_decl_type(fd, a->type->real.func->func->type, level);
- dprintf(fd, " (");
- dump_decl_var(fd, a->var);
- dprintf(fd, ")(");
- if (a->type->real.func->args) {
- size_t j;
-
- for (j = 0; j < a->type->real.func->args->count; ++j) {
- if (j) {
- dprintf(fd, ", ");
- }
- dump_decl_arg(fd, a->type->real.func->args->args[j], level+1);
- }
- if (a->type->real.func->args->varargs) {
- dprintf(fd, ", ...");
- }
- }
- dprintf(fd, ")");
- } else {
- dump_decl_type(fd, a->type, level);
- dprintf(fd, " ");
- dump_decl_var(fd, a->var);
- }
-}
-
-static inline void dump_num_exp(int fd, num_exp *exp) {
- while (exp) {
- switch (exp->t) {
- case PSI_T_NUMBER:
- dprintf(fd, "%s", exp->u.numb);
- break;
- case PSI_T_NSNAME:
- dprintf(fd, "%s", exp->u.cnst->name);
- break;
- case PSI_T_NAME:
- dump_decl_var(fd, exp->u.dvar);
- break;
- case PSI_T_ENUM:
- dprintf(fd, "%s", exp->u.enm->name);
- break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- if (exp->operand) {
- char op;
-
- switch (exp->operator) {
- case PSI_T_PLUS: op = '+'; break;
- case PSI_T_MINUS: op = '-'; break;
- case PSI_T_ASTERISK:op = '*'; break;
- case PSI_T_SLASH: op = '/'; break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- dprintf(fd, " %c ", op);
- }
- exp = exp->operand;
- }
-}
-
-static inline void dump_impl_set_value(int fd, set_value *set, unsigned level, int last) {
- size_t i;
-
- if (level > 1) {
- /* only if not directly after `set ...` */
- dump_level(fd, level);
- }
-
- if (set->func->type == PSI_T_ELLIPSIS) {
- dprintf(fd, "%s(", set->outer.set->func->name);
- } else {
- dprintf(fd, "%s(", set->func->name);
- }
-
- for (i = 0; i < set->vars->count; ++i) {
- decl_var *svar = set->vars->vars[i];
- if (i) {
- dprintf(fd, ", ");
- }
- dump_decl_var(fd, svar);
- }
-
- if (set->func->type == PSI_T_ELLIPSIS) {
- dprintf(fd, ", ...");
- }
- if (set->num) {
- dprintf(fd, ", ");
- dump_num_exp(fd, set->num);
- }
- if (set->inner && set->inner->vals && set->func->type != PSI_T_ELLIPSIS) {
- dprintf(fd, ",\n");
- for (i = 0; i < set->inner->count; ++i) {
- dump_impl_set_value(fd, set->inner->vals[i], level+1, i == (set->inner->count - 1));
- }
- /* only if inner stmts, i.e. with new lines, were dumped */
- dump_level(fd, level);
- }
- if (level > 1) {
- dprintf(fd, ")%s\n", last ? "" : ",");
- } else {
- dprintf(fd, ");");
- }
-}
-
-static inline void dump_typedef(int fd, decl_arg *tdef) {
- dprintf(fd, "typedef ");
- dump_decl_arg(fd, tdef, 0);
- dprintf(fd, ";");
-}
-
-static inline void dump_typedefs(int fd, decl_typedefs *defs) {
- size_t i;
-
- for (i = 0; i < defs->count; ++i) {
- decl_arg *tdef = defs->list[i];
-
- dump_typedef(fd, tdef);
- dprintf(fd, "\n");
- }
-}
-
-static inline void dump_struct_args(int fd, decl_args *args, unsigned level) {
- size_t j;
-
- dprintf(fd, " {\n");
- if (args) {
- ++level;
- for (j = 0; j < args->count; ++j) {
- decl_arg *sarg = args->args[j];
-
- dump_level(fd, level);
- dump_decl_arg(fd, sarg, level);
- dprintf(fd, "::(%zu, %zu);\n", sarg->layout->pos, sarg->layout->len);
- }
- --level;
- }
- dump_level(fd, level);
- dprintf(fd, "}");
-}
-
-static inline void dump_struct(int fd, decl_struct *strct) {
- dprintf(fd, "struct %s::(%zu, %zu)", strct->name, strct->align, strct->size);
- if (strct->args && strct->args->count) {
- dump_struct_args(fd, strct->args, 0);
- } else {
- dprintf(fd, ";");
- }
-}
-
-static inline void dump_structs(int fd, decl_structs *structs) {
- size_t i;
-
- for (i = 0; i < structs->count; ++i) {
- decl_struct *strct = structs->list[i];
-
- if (!is_anon_type(strct->name, "struct")) {
- dump_struct(fd, strct);
- dprintf(fd, "\n");
- }
- }
-}
-
-static inline void dump_union(int fd, decl_union *unn) {
- size_t j;
-
- dprintf(fd, "union %s::(%zu, %zu) {\n", unn->name, unn->align, unn->size);
- for (j = 0; j < unn->args->count; ++j) {
- decl_arg *uarg = unn->args->args[j];
-
- dprintf(fd, "\t");
- dump_decl_arg(fd, uarg, 0);
- dprintf(fd, "::(%zu, %zu);\n", uarg->layout->pos, uarg->layout->len);
- }
- dprintf(fd, "}");
-}
-
-static inline void dump_unions(int fd, decl_unions *unions) {
- size_t i;
-
- for (i = 0; i < unions->count; ++i) {
- decl_union *unn = unions->list[i];
-
- if (!is_anon_type(unn->name, "union")) {
- dump_union(fd, unn);
- dprintf(fd, "\n");
- }
- }
-}
-
-static inline void dump_enum_items(int fd, decl_enum_items *items, unsigned level) {
- size_t j;
-
- if (items) {
- ++level;
- for (j = 0; j < items->count; ++j) {
- decl_enum_item *i = items->list[j];
-
- if (j) {
- dprintf(fd, ",\n");
- }
- dump_level(fd, level);
- dprintf(fd, "%s", i->name);
- if (i->num && i->num != &i->inc) {
- dprintf(fd, " = ");
- dump_num_exp(fd, i->num);
- }
- }
- --level;
- }
-}
-
-static inline void dump_enum(int fd, decl_enum *e) {
- dprintf(fd, "enum %s {\n", e->name);
- dump_enum_items(fd, e->items, 0);
- dprintf(fd, "\n}");
-}
-
-static inline void dump_enums(int fd, decl_enums *enums) {
- size_t i;
-
- for (i = 0; i < enums->count; ++i) {
- decl_enum *e = enums->list[i];
-
- if (!is_anon_type(e->name, "enum")) {
- dump_enum(fd, e);
- dprintf(fd, "\n");
- }
- }
-}
-static inline void dump_constant(int fd, constant *cnst) {
- dprintf(fd, "const %s %s = ", cnst->type->name, cnst->name);
- if (cnst->val->type == PSI_T_QUOTED_STRING) {
- dprintf(fd, "\"%s\";", cnst->val->text);
- } else {
- dprintf(fd, "%s;", cnst->val->text);
- }
-}
-
-static inline void dump_constants(int fd, constants *consts) {
- size_t i;
-
- for (i = 0; i < consts->count; ++i) {
- constant *cnst = consts->list[i];
-
- dump_constant(fd, cnst);
- dprintf(fd, "\n");
- }
-}
-
-static inline void dump_decl(int fd, decl *decl) {
- size_t j;
-
- dprintf(fd, "%s ", decl->abi->convention);
- dump_decl_arg(fd, decl->func, 0);
- dprintf(fd, "(");
- if (decl->args) {
- for (j = 0; j < decl->args->count; ++j) {
- if (j) {
- dprintf(fd, ", ");
- }
- dump_decl_arg(fd, decl->args->args[j], 0);
- }
- if (decl->args->varargs) {
- dprintf(fd, ", ...");
- }
- }
- dprintf(fd, ");");
-}
-
-static inline void dump_decls(int fd, decls *decls) {
- size_t i;
-
- for (i = 0; i < decls->count; ++i) {
- decl *decl = decls->list[i];
-
- dump_decl(fd, decl);
- dprintf(fd, "\n");
- }
-}
-
-static inline void dump_impl_func(int fd, impl_func *func) {
- size_t j;
-
- dprintf(fd, "function %s(", func->name);
- if (func->args) {
- for (j = 0; j < func->args->count; ++j) {
- impl_arg *iarg = func->args->args[j];
-
- dprintf(fd, "%s%s %s%s",
- j ? ", " : "",
- iarg->type->name,
- iarg->var->reference ? "&" : "",
- iarg->var->name);
- if (iarg->def) {
- dprintf(fd, " = %s", iarg->def->text);
- }
- }
- if (func->args->vararg.name) {
- impl_arg *vararg = func->args->vararg.name;
-
- dprintf(fd, ", %s %s...%s",
- vararg->type->name,
- vararg->var->reference ? "&" : "",
- vararg->var->name);
- }
- }
- dprintf(fd, ") : %s%s",
- func->return_reference ? "&":"",
- func->return_type->name);
-}
-
-static inline void dump_impl_let_func(int fd, let_func *func, unsigned level);
-
-static inline void dump_impl_let_val(int fd, let_val *val, unsigned level, int last) {
- if (level > 1) {
- /* only if not directly after `set ...` */
- dump_level(fd, level);
- }
-
- dprintf(fd, "%s", val->flags.one.is_reference ? "&" : "");
- switch (val->kind) {
- case PSI_LET_NULL:
- dprintf(fd, "NULL");
- break;
- case PSI_LET_TMP:
- dump_decl_var(fd, val->data.var);
- break;
- case PSI_LET_CALLOC:
- dprintf(fd, "calloc(");
- dump_num_exp(fd, val->data.alloc->nmemb);
- dprintf(fd, ", ");
- dump_num_exp(fd, val->data.alloc->size);
- dprintf(fd, ")");
- break;
- case PSI_LET_CALLBACK:
- dprintf(fd, "callback %s(%s(", val->data.callback->func->name,
- val->data.callback->func->var->name);
- if (val->data.callback->args) {
- size_t i, c = val->data.callback->args->count;
-
- dprintf(fd, "\n");
- for (i = 0; i < c; ++i) {
- set_value *set = val->data.callback->args->vals[i];
- ++level;
- dump_impl_set_value(fd, set, level, i + 1 == c);
- --level;
- }
- dump_level(fd, level);
- }
- dprintf(fd, "))");
- break;
- case PSI_LET_FUNC:
- dump_impl_let_func(fd, val->data.func, level);
- break;
- case PSI_LET_NUMEXP:
- dump_num_exp(fd, val->data.num);
- break;
-
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- if (level > 1) {
- if (!last) {
- dprintf(fd, ",");
- }
- } else {
- dprintf(fd, ";");
- }
-}
-
-static inline void dump_impl_let_func(int fd, let_func *func, unsigned level) {
- dprintf(fd, "%s(%s", func->name,
- func->var->name);
- if (func->inner) {
- size_t i;
-
- dprintf(fd, ",");
- ++level;
- for (i = 0; i < func->inner->count; ++i) {
- dprintf(fd, "\n");
- dump_impl_let_val(fd, func->inner->vals[i], level, i+1 == func->inner->count);
- }
- --level;
- dprintf(fd, "\n");
- dump_level(fd, level);
- }
- dprintf(fd, ")");
-}
-static inline void dump_impl_let_stmt(int fd, let_stmt *let) {
- dprintf(fd, "\tlet %s", let->var->name);
- if (let->val) {
- dprintf(fd, " = ");
- dump_impl_let_val(fd, let->val, 1, 1);
- }
-}
-
-static inline void dump_impl_return_stmt(int fd, return_stmt *ret) {
- dprintf(fd, "\treturn ");
- dump_impl_set_value(fd, ret->set, 1, 0);
-}
-
-static inline void dump_impl_set_stmt(int fd, set_stmt *set) {
- dprintf(fd, "\tset %s = ", set->var->name);
- dump_impl_set_value(fd, set->val, 1, 0);
-}
-
-static inline void dump_impl_free_call(int fd, free_call *call) {
- size_t l;
-
- dprintf(fd, "%s(", call->func);
- for (l = 0; l < call->vars->count; ++l) {
- decl_var *fvar = call->vars->vars[l];
-
- dump_decl_var(fd, fvar);
- }
- dprintf(fd, ");");
-}
-
-static inline void dump_impl_free_stmt(int fd, free_stmt *fre) {
- size_t k;
-
- dprintf(fd, "\tfree ");
- for (k = 0; k < fre->calls->count; ++k) {
- free_call *call = fre->calls->list[k];
-
- if (k) {
- dprintf(fd, ", ");
- }
- dump_impl_free_call(fd, call);
- dprintf(fd, "\n");
- }
-}
-static inline void dump_impl_stmts(int fd, impl_stmts *stmts) {
- size_t j;
-
- for (j = 0; j < stmts->let.count; ++j) {
- let_stmt *let = stmts->let.list[j];
- dump_impl_let_stmt(fd, let);
- dprintf(fd, "\n");
- }
- for (j = 0; j < stmts->ret.count; ++j) {
- return_stmt *ret = stmts->ret.list[j];
- dump_impl_return_stmt(fd, ret);
- dprintf(fd, "\n");
- }
- for (j = 0; j < stmts->set.count; ++j) {
- set_stmt *set = stmts->set.list[j];
-
- dump_impl_set_stmt(fd, set);
- dprintf(fd, "\n");
- }
- for (j = 0; j < stmts->fre.count; ++j) {
- free_stmt *fre = stmts->fre.list[j];
-
- dump_impl_free_stmt(fd, fre);
- dprintf(fd, "\n");
- }
-}
-
-static inline void dump_impl(int fd, impl *impl) {
-
- dump_impl_func(fd, impl->func);
- dprintf(fd, " {\n");
- if (impl->stmts) {
- dump_impl_stmts(fd, impl->stmts);
- }
- dprintf(fd, "}");
-}
-
-static inline void dump_impls(int fd, impls *impls) {
- size_t i;
-
- for (i = 0; i < impls->count; ++i) {
- impl *impl = impls->list[i];
-
- dump_impl(fd, impl);
- dprintf(fd, "\n");
- }
-}
-
-void psi_context_dump(struct psi_context *C, int fd)
-{
-#ifdef HAVE_LIBJIT
- if (C->ops == psi_libjit_ops()) {
- dprintf(fd, "// psi.engine=jit\n");
- }
-#endif
-#ifdef HAVE_LIBFFI
- if (C->ops == psi_libffi_ops()) {
- dprintf(fd, "// psi.engine=ffi\n");
- }
-#endif
- dprintf(fd, "\n");
-
- if (C->defs) {
- dump_typedefs(fd, C->defs);
- dprintf(fd, "\n");
- }
- if (C->unions) {
- dump_unions(fd, C->unions);
- dprintf(fd, "\n");
- }
- if (C->structs) {
- dump_structs(fd, C->structs);
- dprintf(fd, "\n");
- }
- if (C->enums) {
- dump_enums(fd, C->enums);
- dprintf(fd, "\n");
- }
- if (C->consts) {
- dump_constants(fd, C->consts);
- dprintf(fd, "\n");
- }
- if (C->decls) {
- dump_decls(fd, C->decls);
- dprintf(fd, "\n");
- }
- if (C->impls) {
- dump_impls(fd, C->impls);
- dprintf(fd, "\n");
- }
-}