+%type decl_typedef {decl_arg*}
+%destructor decl_typedef {
+ free_decl_arg($$);/*
+ if ($$->type->real.strct) {
+ free_decl_struct($$->type->real.strct);
+ }
+ if ($$->type->real.enm) {
+ free_decl_enum($$->type->real.enm);
+ }
+ if ($$->type->real.func) {
+ free_decl($$->type->real.func);
+ }*/
+}
+decl_typedef(def) ::= TYPEDEF(T) decl_typedef_body(def_) EOS. {
+ def = def_;
+ def->token = T;
+}
+%type decl_typedef_body_ex {decl_arg*}
+%destructor decl_typedef_body_ex {
+ free_decl_arg($$);/*
+ if ($$->type->real.strct) {
+ free_decl_struct($$->type->real.strct);
+ }
+ if ($$->type->real.enm) {
+ free_decl_enum($$->type->real.enm);
+ }
+ if ($$->type->real.unn) {
+ free_decl_union($$->type->real.unn);
+ }
+ if ($$->type->real.func) {
+ free_decl($$->type->real.func);
+ }*/
+}
+decl_typedef_body_ex(def) ::= struct_name(N) align_and_size(as) decl_struct_args_block(args) decl_var(var). {
+ def = init_decl_arg(init_decl_type(PSI_T_STRUCT, N->text), var);
+ def->type->token = PSI_TokenCopy(N);
+ def->type->real.strct = init_decl_struct(N->text, args);
+ def->type->real.strct->token = N;
+ def->type->real.strct->align = as.a;
+ def->type->real.strct->size = as.s;
+}
+decl_typedef_body_ex(def) ::= union_name(N) align_and_size(as) decl_struct_args_block(args) decl_var(var). {
+ def = init_decl_arg(init_decl_type(PSI_T_UNION, N->text), var);
+ def->type->token = PSI_TokenCopy(N);
+ def->type->real.unn = init_decl_union(N->text, args);
+ def->type->real.unn->token = N;
+ def->type->real.unn->align = as.a;
+ def->type->real.unn->size = as.s;
+}
+decl_typedef_body_ex(def) ::= decl_enum(e) NAME(ALIAS). {
+ def = init_decl_arg(init_decl_type(PSI_T_ENUM, e->name), init_decl_var(ALIAS->text, 0, 0));
+ def->var->token = ALIAS;
+ def->type->token = PSI_TokenCopy(e->token);
+ def->type->real.enm = e;
+}
+%type decl_typedef_body {decl_arg*}
+%destructor decl_typedef_body {
+ free_decl_arg($$);/*
+ if ($$->type->real.strct) {
+ free_decl_struct($$->type->real.strct);
+ }
+ if ($$->type->real.enm) {
+ free_decl_enum($$->type->real.enm);
+ }
+ if ($$->type->real.unn) {
+ free_decl_union($$->type->real.unn);
+ }
+ if ($$->type->real.func) {
+ free_decl($$->type->real.func);
+ }*/
+}
+decl_typedef_body(def) ::= decl_typedef_body_ex(def_). {
+ def = def_;
+}
+%type decl_typedef_body_fn_args {decl_args *}
+%destructor decl_typedef_body_fn_args {free_decl_args($$);}
+decl_typedef_body_fn_args(args) ::= LPAREN decl_args(args_) RPAREN. {
+ args = args_;
+}
+decl_typedef_body(def) ::= decl_func(func_) decl_typedef_body_fn_args(args). {
+ def = init_decl_arg(init_decl_type(PSI_T_FUNCTION, func_->var->name), copy_decl_var(func_->var));
+ def->type->token = PSI_TokenCopy(func_->token);
+ def->type->real.func = init_decl(init_decl_abi("default"), func_, args);
+}
+decl_typedef_body(def) ::= decl_arg(arg). {
+ def = arg;