-static struct psi_std_type {
- token_t type_tag;
- const char *type_name;
-} psi_std_types[] = {
- {PSI_T_FLOAT, "float"},
- {PSI_T_DOUBLE, "double"},
- {PSI_T_INT8, "int8_t"},
- {PSI_T_INT16, "int16_t"},
- {PSI_T_INT32, "int32_t"},
- {PSI_T_INT64, "int64_t"},
- {PSI_T_UINT8, "uint8_t"},
- {PSI_T_UINT16, "uint16_t"},
- {PSI_T_UINT32, "uint32_t"},
- {PSI_T_UINT64, "uint64_t"},
- {0}
-};
-
-static struct psi_predef_type {
- token_t type_tag;
- const char *type_name;
- const char *alias;
-} psi_predef_types[] = {
- PSI_TYPES
- {0}
-};
-
-static struct psi_predef_const {
- token_t type_tag;
- const char *type_name;
- const char *var_name;
- const char *val_text;
- token_t val_type_tag;
-} psi_predef_consts[] = {
- PSI_CONSTS
- {0}
-};
-
-PSI_MACROS
-
-static struct psi_func_redir {
- const char *name;
- void (*func)(void);
-} psi_func_redirs[] = {
- PSI_REDIRS
- {0}
-};
-
-static struct psi_predef_decl {
- token_t type_tag;
- const char *type_name;
- const char *var_name;
- size_t pointer_level;
- size_t array_size;
-} psi_predef_decls[] = {
- PSI_DECLS
- {0}
-};
-
-static struct psi_predef_struct {
- token_t type_tag;
- const char *type_name;
- const char *var_name;
- size_t offset;
- size_t size;
- size_t pointer_level;
- size_t array_size;
-} psi_predef_structs[] = {
- PSI_STRUCTS
- {0}
-};
-
-static int validate_lib(PSI_Data *data, void **dlopened) {
- char lib[MAXPATHLEN];
- const char *ptr = data->psi.file.ln;
- size_t len;
-
- if (!ptr) {
- /* FIXME: assume stdlib */
- return 1;
- } else if (!strchr(ptr, '/')) {
- len = snprintf(lib, MAXPATHLEN, "lib%s.%s", ptr, PHP_PSI_SHLIB_SUFFIX);
- if (MAXPATHLEN == len) {
- data->error(PSI_WARNING, "Library name too long: '%s'", ptr);
- }
- lib[len] = 0;
- ptr = lib;
- }
- if (!(*dlopened = dlopen(ptr, RTLD_LAZY|RTLD_LOCAL))) {
- data->error(PSI_WARNING, "Could not open library '%s': %s.",
- data->psi.file.ln, dlerror());
- return 0;
- }
- return 1;
-}
-
-static inline int locate_decl_type_alias(decl_typedefs *defs, decl_type *type) {
- size_t i;
- struct psi_std_type *stdtyp;
-
- if (type->real) {
- return 1;
- }
- for (i = 0; i < defs->count; ++i) {
- decl_typedef *def = defs->list[i];
-
- if (def->type->type != type->type && !strcmp(def->alias, type->name)) {
- type->real = def->type;
- return 1;
- }
- }
- for (stdtyp = &psi_std_types[0]; stdtyp->type_tag; ++stdtyp) {
- if (!strcmp(type->name, stdtyp->type_name)) {
- type->type = stdtyp->type_tag;
- }
- return 1;
- }
-
- return 0;
-}
-static inline int locate_decl_type_struct(decl_structs *structs, decl_type *type) {
- size_t i;
-
- if (type->strct) {
- return 1;
- }
- for (i = 0; i < structs->count; ++i) {
- if (!strcmp(structs->list[i]->name, type->name)) {
- type->strct = structs->list[i];
- return 1;
- }
- }
- return 0;
-}
-
-static inline int validate_decl_type(PSI_Data *data, decl_type *type) {
- switch (type->type) {
- case PSI_T_NAME:
- if (!data->defs || !locate_decl_type_alias(data->defs, type)) {
- return 0;
- }
- if (type->real) {
- return validate_decl_type(data, type->real);
- }
- return 1;
- case PSI_T_STRUCT:
- if (!data->structs || !locate_decl_type_struct(data->structs, type)) {
- return 0;
- }
- break;
- }
- return 1;
-}
-static inline int validate_decl_typedef(PSI_Data *data, decl_typedef *def) {
- if (!validate_decl_type(data, def->type)) {
- data->error(PSI_WARNING, "Type '%s' cannot be aliased to %s'%s'",
- def->type->name, def->type->type == PSI_T_STRUCT?"struct ":"",def->alias);
- return 0;
- }
- /* FIXME: check def->alias */
- return 1;
-}
-
-static inline int validate_constant(PSI_Data *data, constant *c) {
- /* FIXME */
- return 1;
-}
-
-static inline int validate_decl_arg(PSI_Data *data, decl_arg *arg) {
- if (!validate_decl_type(data, arg->type)) {
- data->error(PSI_WARNING, "Cannot use '%s'(%d) as type for '%s'",
- arg->type->name, arg->type->type, arg->var->name);
- return 0;
- }
- return 1;
-}
-
-static inline int validate_decl_struct(PSI_Data *data, decl_struct *s) {
- size_t i;
-
- for (i = 0; i < s->args->count; ++i) {
- if (!validate_decl_arg(data, s->args->args[i])) {
- return 0;
- }
- }
-
- for (i = 0; i < s->args->count; ++i) {
- decl_arg *darg = s->args->args[i];
-
- if (!validate_decl_arg(data, darg)) {
- return 0;
- }
-
- ZEND_ASSERT(!darg->var->arg || darg->var->arg == darg);
- darg->var->arg = darg;
-
- if (!darg->layout) {
- token_t t;
-
- if (darg->var->pointer_level && (!darg->var->array_size || darg->var->pointer_level == 1)) {
- t = PSI_T_POINTER;
- } else {
- t = real_decl_type(darg->type)->type;
- }
-
- if (i) {
- decl_arg *last = s->args->args[i-1];
- darg->layout = init_decl_struct_layout(
- psi_t_align(t, last->layout->pos + last->layout->len),
- psi_t_size(t) * darg->var->array_size);
- } else {
- darg->layout = init_decl_struct_layout(0, psi_t_size(t));
- }
- }
- if (s->size < darg->layout->pos + darg->layout->len) {
- s->size = darg->layout->pos + darg->layout->len;
- }
- }
- return 1;
-}