/* -*- indented-text -*- */
/* Process source files and output type information.
- Copyright (C) 2002 Free Software Foundation, Inc.
+ Copyright (C) 2002, 2004, 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2, or (at your option) any later
+Software Foundation; either version 3, or (at your option) any later
version.
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
for more details.
You should have received a copy of the GNU General Public License
-along with GCC; see the file COPYING. If not, write to the Free
-Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA. */
+along with GCC; see the file COPYING3. If not see
+<http://www.gnu.org/licenses/>. */
%{
-#include "hconfig.h"
+#include "bconfig.h"
#include "system.h"
+#include "coretypes.h"
+#include "tm.h"
#include "gengtype.h"
#define YYERROR_VERBOSE
%}
const char *s;
}
-%token <t>ENT_TYPEDEF_STRUCT
-%token <t>ENT_STRUCT
+%token <s>ENT_TYPEDEF_STRUCT
+%token <s>ENT_STRUCT
+%token <s>ENT_TYPEDEF_UNION
+%token <s>ENT_UNION
%token ENT_EXTERNSTATIC
-%token ENT_YACCUNION
-%token GTY_TOKEN "GTY"
-%token UNION "union"
-%token STRUCT "struct"
-%token ENUM "enum"
-%token ALIAS "ptr_alias"
+%token GTY_TOKEN
+%token VEC_TOKEN
+%token UNION
+%token STRUCT
+%token ENUM
+%token ALIAS
+%token NESTED_PTR
%token <s>PARAM_IS
%token NUM
-%token PERCENTPERCENT "%%"
-%token <t>SCALAR
+%token <s>SCALAR
%token <s>ID
%token <s>STRING
%token <s>ARRAY
-%token <s>PERCENT_ID
%token <s>CHAR
-%type <p> struct_fields yacc_ids yacc_typematch
+%type <p> struct_fields
%type <t> type lasttype
-%type <o> optionsopt options option optionseq optionseqopt
-%type <s> type_option
+%type <o> optionsopt options optionseq
+%type <s> type_option stringseq
%%
start: /* empty */
| typedef_struct start
| externstatic start
- | yacc_union start
+ | start
;
typedef_struct: ENT_TYPEDEF_STRUCT options '{' struct_fields '}' ID
{
- new_structure ($1->u.s.tag, UNION_P ($1), &lexer_line,
- $4, $2);
- do_typedef ($6, $1, &lexer_line);
+ type_p t = new_structure ($1, false, &lexer_line, $4, $2);
+ do_typedef ($6, t, &lexer_line);
lexer_toplevel_done = 1;
}
- ';'
- {}
+ ';'
+ | ENT_TYPEDEF_UNION options '{' struct_fields '}' ID
+ {
+ type_p t = new_structure ($1, true, &lexer_line, $4, $2);
+ do_typedef ($6, t, &lexer_line);
+ lexer_toplevel_done = 1;
+ }
+ ';'
| ENT_STRUCT options '{' struct_fields '}'
{
- new_structure ($1->u.s.tag, UNION_P ($1), &lexer_line,
- $4, $2);
+ new_structure ($1, false, &lexer_line, $4, $2);
+ lexer_toplevel_done = 1;
+ }
+ ';'
+ | ENT_UNION options '{' struct_fields '}'
+ {
+ new_structure ($1, true, &lexer_line, $4, $2);
lexer_toplevel_done = 1;
}
- ';'
- {}
+ ';'
;
externstatic: ENT_EXTERNSTATIC options lasttype ID semiequal
| '='
;
-yacc_union: ENT_YACCUNION options struct_fields '}' yacc_typematch
- PERCENTPERCENT
- {
- note_yacc_type ($2, $3, $5, &lexer_line);
- }
- ;
-
-yacc_typematch: /* empty */
- { $$ = NULL; }
- | yacc_typematch PERCENT_ID yacc_ids
- {
- pair_p p;
- for (p = $3; p->next != NULL; p = p->next)
- {
- p->name = NULL;
- p->type = NULL;
- }
- p->name = NULL;
- p->type = NULL;
- p->next = $1;
- $$ = $3;
- }
- | yacc_typematch PERCENT_ID '<' ID '>' yacc_ids
- {
- pair_p p;
- type_p newtype = NULL;
- if (strcmp ($2, "type") == 0)
- newtype = (type_p) 1;
- for (p = $6; p->next != NULL; p = p->next)
- {
- p->name = $4;
- p->type = newtype;
- }
- p->name = $4;
- p->next = $1;
- p->type = newtype;
- $$ = $6;
- }
- ;
-
-yacc_ids: /* empty */
- { $$ = NULL; }
- | yacc_ids ID
- {
- pair_p p = xcalloc (1, sizeof (*p));
- p->next = $1;
- p->line = lexer_line;
- p->opt = xmalloc (sizeof (*(p->opt)));
- p->opt->name = "tag";
- p->opt->next = NULL;
- p->opt->info = (char *)$2;
- $$ = p;
- }
- | yacc_ids CHAR
- {
- pair_p p = xcalloc (1, sizeof (*p));
- p->next = $1;
- p->line = lexer_line;
- p->opt = xmalloc (sizeof (*(p->opt)));
- p->opt->name = "tag";
- p->opt->next = NULL;
- p->opt->info = xasprintf ("'%s'", $2);
- $$ = p;
- }
- ;
-
struct_fields: { $$ = NULL; }
| type optionsopt ID bitfieldopt ';' struct_fields
{
- pair_p p = xmalloc (sizeof (*p));
- p->type = adjust_field_type ($1, $2);
- p->opt = $2;
- p->name = $3;
- p->next = $6;
- p->line = lexer_line;
- $$ = p;
+ $$ = create_field_at ($6, $1, $3, $2, &lexer_line);
}
| type optionsopt ID ARRAY ';' struct_fields
{
- pair_p p = xmalloc (sizeof (*p));
- p->type = adjust_field_type (create_array ($1, $4), $2);
- p->opt = $2;
- p->name = $3;
- p->next = $6;
- p->line = lexer_line;
- $$ = p;
+ $$ = create_field_at ($6, create_array ($1, $4),
+ $3, $2, &lexer_line);
}
| type optionsopt ID ARRAY ARRAY ';' struct_fields
{
- pair_p p = xmalloc (sizeof (*p));
- p->type = create_array (create_array ($1, $5), $4);
- p->opt = $2;
- p->name = $3;
- p->next = $7;
- p->line = lexer_line;
- $$ = p;
+ type_p arr = create_array (create_array ($1, $5), $4);
+ $$ = create_field_at ($7, arr, $3, $2, &lexer_line);
}
+ | type ':' bitfieldlen ';' struct_fields
+ { $$ = $5; }
;
bitfieldopt: /* empty */
- | ':' NUM
- | ':' ID
+ | ':' bitfieldlen
+ ;
+
+bitfieldlen: NUM | ID
+ { }
;
type: SCALAR
- { $$ = $1; }
+ { $$ = create_scalar_type ($1); }
| ID
{ $$ = resolve_typedef ($1, &lexer_line); }
+ | VEC_TOKEN '(' ID ',' ID ')'
+ { $$ = resolve_typedef (concat ("VEC_", $3, "_", $5, (char *)0),
+ &lexer_line); }
| type '*'
{ $$ = create_pointer ($1); }
| STRUCT ID '{' struct_fields '}'
- {
- new_structure ($2, 0, &lexer_line, $4, NULL);
- $$ = find_structure ($2, 0);
- }
+ { $$ = new_structure ($2, 0, &lexer_line, $4, NULL); }
| STRUCT ID
{ $$ = find_structure ($2, 0); }
| UNION ID '{' struct_fields '}'
- {
- new_structure ($2, 1, &lexer_line, $4, NULL);
- $$ = find_structure ($2, 1);
- }
+ { $$ = new_structure ($2, 1, &lexer_line, $4, NULL); }
| UNION ID
{ $$ = find_structure ($2, 1); }
| ENUM ID
- { $$ = create_scalar_type ($2, strlen ($2)); }
+ { $$ = create_scalar_type ($2); }
| ENUM ID '{' enum_items '}'
- { $$ = create_scalar_type ($2, strlen ($2)); }
+ { $$ = create_scalar_type ($2); }
;
enum_items: /* empty */
| options { $$ = $1; }
;
-options: GTY_TOKEN '(' '(' optionseqopt ')' ')'
+options: GTY_TOKEN '(' '(' optionseq ')' ')'
{ $$ = $4; }
;
{ $$ = $1; }
;
-option: type_option '(' type ')'
- {
- options_p o = xmalloc (sizeof (*o));
- o->name = $1;
- o->info = adjust_field_type ($3, NULL);
- $$ = o;
- }
- | ID '(' STRING ')'
- {
- options_p o = xmalloc (sizeof (*o));
- o->name = $1;
- o->info = (void *)$3;
- $$ = o;
- }
- ;
-
-optionseq: option
- {
- $1->next = NULL;
- $$ = $1;
- }
- | optionseq ',' option
- {
- $3->next = $1;
- $$ = $3;
- }
- ;
-
-optionseqopt: { $$ = NULL; }
- | optionseq { $$ = $1; }
- ;
+optionseq: { $$ = NULL; }
+ | optionseq commaopt ID
+ { $$ = create_option ($1, $3, (void *)""); }
+ | optionseq commaopt ID '(' stringseq ')'
+ { $$ = create_option ($1, $3, (void *)$5); }
+ | optionseq commaopt type_option '(' type ')'
+ { $$ = create_option ($1, $3, adjust_field_type ($5, 0)); }
+ | optionseq commaopt NESTED_PTR '(' type ',' stringseq ',' stringseq ')'
+ { $$ = create_nested_ptr_option ($1, $5, $7, $9); }
+
+commaopt: /* nothing */
+ | ','
+ ;
+
+stringseq: STRING
+ { $$ = $1; }
+ | stringseq STRING
+ {
+ size_t l1 = strlen ($1);
+ size_t l2 = strlen ($2);
+ char *s = XRESIZEVEC (char, $1, l1 + l2 + 1);
+ memcpy (s + l1, $2, l2 + 1);
+ XDELETE ($2);
+ $$ = s;
+ }
+ ;
%%