Commit 0b07a57e by Arnaud Charlet Committed by Arnaud Charlet

* c-ada-spec.c: Style fixes.

From-SVN: r191428
parent da5182be
2012-09-18 Arnaud Charlet <charlet@adacore.com>
* c-ada-spec.c: Style fixes.
2012-09-18 Thomas Quinot <quinot@adacore.com> 2012-09-18 Thomas Quinot <quinot@adacore.com>
* c.opt (-fada-spec-parent): Define new command line switch. * c.opt (-fada-spec-parent): Define new command line switch.
......
...@@ -130,7 +130,7 @@ print_ada_macros (pretty_printer *pp, cpp_hashnode **macros, int max_ada_macros) ...@@ -130,7 +130,7 @@ print_ada_macros (pretty_printer *pp, cpp_hashnode **macros, int max_ada_macros)
for (j = 0; j < max_ada_macros; j++) for (j = 0; j < max_ada_macros; j++)
{ {
cpp_hashnode *node = macros [j]; cpp_hashnode *node = macros[j];
const cpp_macro *macro = node->value.macro; const cpp_macro *macro = node->value.macro;
unsigned i; unsigned i;
int supported = 1, prev_is_one = 0, buffer_len, param_len; int supported = 1, prev_is_one = 0, buffer_len, param_len;
...@@ -345,10 +345,10 @@ print_ada_macros (pretty_printer *pp, cpp_hashnode **macros, int max_ada_macros) ...@@ -345,10 +345,10 @@ print_ada_macros (pretty_printer *pp, cpp_hashnode **macros, int max_ada_macros)
pp_string (pp, " -- arg-macro: "); pp_string (pp, " -- arg-macro: ");
if (*start == '(' && buffer [-1] == ')') if (*start == '(' && buffer[-1] == ')')
{ {
start++; start++;
buffer [-1] = '\0'; buffer[-1] = '\0';
is_function = 1; is_function = 1;
pp_string (pp, "function "); pp_string (pp, "function ");
} }
...@@ -595,7 +595,7 @@ collect_ada_nodes (tree t, const char *source_file) ...@@ -595,7 +595,7 @@ collect_ada_nodes (tree t, const char *source_file)
for (n = t; n; n = TREE_CHAIN (n)) for (n = t; n; n = TREE_CHAIN (n))
if (!DECL_IS_BUILTIN (n) if (!DECL_IS_BUILTIN (n)
&& LOCATION_FILE (decl_sloc (n, false)) == source_file) && LOCATION_FILE (decl_sloc (n, false)) == source_file)
to_dump [i++] = n; to_dump[i++] = n;
} }
/* Call back for walk_tree to clear the TREE_VISITED flag of TP. */ /* Call back for walk_tree to clear the TREE_VISITED flag of TP. */
...@@ -763,16 +763,16 @@ append_withs (const char *s, int limited_access) ...@@ -763,16 +763,16 @@ append_withs (const char *s, int limited_access)
} }
for (i = 0; i < with_len; i++) for (i = 0; i < with_len; i++)
if (!strcmp (s, withs [i].s) if (!strcmp (s, withs[i].s)
&& source_file_base == withs [i].in_file) && source_file_base == withs[i].in_file)
{ {
withs [i].limited &= limited_access; withs[i].limited &= limited_access;
return; return;
} }
withs [with_len].s = xstrdup (s); withs[with_len].s = xstrdup (s);
withs [with_len].in_file = source_file_base; withs[with_len].in_file = source_file_base;
withs [with_len].limited = limited_access; withs[with_len].limited = limited_access;
with_len++; with_len++;
} }
...@@ -787,7 +787,7 @@ reset_ada_withs (void) ...@@ -787,7 +787,7 @@ reset_ada_withs (void)
return; return;
for (i = 0; i < with_len; i++) for (i = 0; i < with_len; i++)
free (withs [i].s); free (withs[i].s);
free (withs); free (withs);
withs = NULL; withs = NULL;
withs_max = 4096; withs_max = 4096;
...@@ -805,7 +805,7 @@ dump_ada_withs (FILE *f) ...@@ -805,7 +805,7 @@ dump_ada_withs (FILE *f)
for (i = 0; i < with_len; i++) for (i = 0; i < with_len; i++)
fprintf fprintf
(f, "%swith %s;\n", withs [i].limited ? "limited " : "", withs [i].s); (f, "%swith %s;\n", withs[i].limited ? "limited " : "", withs[i].s);
} }
/* Return suitable Ada package name from FILE. */ /* Return suitable Ada package name from FILE. */
...@@ -840,7 +840,7 @@ get_ada_package (const char *file) ...@@ -840,7 +840,7 @@ get_ada_package (const char *file)
switch (*base) switch (*base)
{ {
case '+': case '+':
res [i] = 'p'; res[i] = 'p';
break; break;
case '.': case '.':
...@@ -970,8 +970,8 @@ to_ada_name (const char *name, int *space_found) ...@@ -970,8 +970,8 @@ to_ada_name (const char *name, int *space_found)
for (names = ada_reserved; *names; names++) for (names = ada_reserved; *names; names++)
if (!strcasecmp (name, *names)) if (!strcasecmp (name, *names))
{ {
s [len2++] = 'c'; s[len2++] = 'c';
s [len2++] = '_'; s[len2++] = '_';
found = true; found = true;
break; break;
} }
...@@ -981,23 +981,23 @@ to_ada_name (const char *name, int *space_found) ...@@ -981,23 +981,23 @@ to_ada_name (const char *name, int *space_found)
for (names = c_duplicates; *names; names++) for (names = c_duplicates; *names; names++)
if (!strcmp (name, *names)) if (!strcmp (name, *names))
{ {
s [len2++] = 'c'; s[len2++] = 'c';
s [len2++] = '_'; s[len2++] = '_';
found = true; found = true;
break; break;
} }
for (j = 0; name [j] == '_'; j++) for (j = 0; name[j] == '_'; j++)
s [len2++] = 'u'; s[len2++] = 'u';
if (j > 0) if (j > 0)
s [len2++] = '_'; s[len2++] = '_';
else if (*name == '.' || *name == '$') else if (*name == '.' || *name == '$')
{ {
s [0] = 'a'; s[0] = 'a';
s [1] = 'n'; s[1] = 'n';
s [2] = 'o'; s[2] = 'o';
s [3] = 'n'; s[3] = 'n';
len2 = 4; len2 = 4;
j++; j++;
} }
...@@ -1005,57 +1005,57 @@ to_ada_name (const char *name, int *space_found) ...@@ -1005,57 +1005,57 @@ to_ada_name (const char *name, int *space_found)
/* Replace unsuitable characters for Ada identifiers. */ /* Replace unsuitable characters for Ada identifiers. */
for (; j < len; j++) for (; j < len; j++)
switch (name [j]) switch (name[j])
{ {
case ' ': case ' ':
if (space_found) if (space_found)
*space_found = true; *space_found = true;
s [len2++] = '_'; s[len2++] = '_';
break; break;
/* ??? missing some C++ operators. */ /* ??? missing some C++ operators. */
case '=': case '=':
s [len2++] = '_'; s[len2++] = '_';
if (name [j + 1] == '=') if (name[j + 1] == '=')
{ {
j++; j++;
s [len2++] = 'e'; s[len2++] = 'e';
s [len2++] = 'q'; s[len2++] = 'q';
} }
else else
{ {
s [len2++] = 'a'; s[len2++] = 'a';
s [len2++] = 's'; s[len2++] = 's';
} }
break; break;
case '!': case '!':
s [len2++] = '_'; s[len2++] = '_';
if (name [j + 1] == '=') if (name[j + 1] == '=')
{ {
j++; j++;
s [len2++] = 'n'; s[len2++] = 'n';
s [len2++] = 'e'; s[len2++] = 'e';
} }
break; break;
case '~': case '~':
s [len2++] = '_'; s[len2++] = '_';
s [len2++] = 't'; s[len2++] = 't';
s [len2++] = 'i'; s[len2++] = 'i';
break; break;
case '&': case '&':
case '|': case '|':
case '^': case '^':
s [len2++] = '_'; s[len2++] = '_';
s [len2++] = name [j] == '&' ? 'a' : name [j] == '|' ? 'o' : 'x'; s[len2++] = name[j] == '&' ? 'a' : name[j] == '|' ? 'o' : 'x';
if (name [j + 1] == '=') if (name[j + 1] == '=')
{ {
j++; j++;
s [len2++] = 'e'; s[len2++] = 'e';
} }
break; break;
...@@ -1065,53 +1065,53 @@ to_ada_name (const char *name, int *space_found) ...@@ -1065,53 +1065,53 @@ to_ada_name (const char *name, int *space_found)
case '/': case '/':
case '(': case '(':
case '[': case '[':
if (s [len2 - 1] != '_') if (s[len2 - 1] != '_')
s [len2++] = '_'; s[len2++] = '_';
switch (name [j + 1]) { switch (name[j + 1]) {
case '\0': case '\0':
j++; j++;
switch (name [j - 1]) { switch (name[j - 1]) {
case '+': s [len2++] = 'p'; break; /* + */ case '+': s[len2++] = 'p'; break; /* + */
case '-': s [len2++] = 'm'; break; /* - */ case '-': s[len2++] = 'm'; break; /* - */
case '*': s [len2++] = 't'; break; /* * */ case '*': s[len2++] = 't'; break; /* * */
case '/': s [len2++] = 'd'; break; /* / */ case '/': s[len2++] = 'd'; break; /* / */
} }
break; break;
case '=': case '=':
j++; j++;
switch (name [j - 1]) { switch (name[j - 1]) {
case '+': s [len2++] = 'p'; break; /* += */ case '+': s[len2++] = 'p'; break; /* += */
case '-': s [len2++] = 'm'; break; /* -= */ case '-': s[len2++] = 'm'; break; /* -= */
case '*': s [len2++] = 't'; break; /* *= */ case '*': s[len2++] = 't'; break; /* *= */
case '/': s [len2++] = 'd'; break; /* /= */ case '/': s[len2++] = 'd'; break; /* /= */
} }
s [len2++] = 'a'; s[len2++] = 'a';
break; break;
case '-': /* -- */ case '-': /* -- */
j++; j++;
s [len2++] = 'm'; s[len2++] = 'm';
s [len2++] = 'm'; s[len2++] = 'm';
break; break;
case '+': /* ++ */ case '+': /* ++ */
j++; j++;
s [len2++] = 'p'; s[len2++] = 'p';
s [len2++] = 'p'; s[len2++] = 'p';
break; break;
case ')': /* () */ case ')': /* () */
j++; j++;
s [len2++] = 'o'; s[len2++] = 'o';
s [len2++] = 'p'; s[len2++] = 'p';
break; break;
case ']': /* [] */ case ']': /* [] */
j++; j++;
s [len2++] = 'o'; s[len2++] = 'o';
s [len2++] = 'b'; s[len2++] = 'b';
break; break;
} }
...@@ -1119,28 +1119,28 @@ to_ada_name (const char *name, int *space_found) ...@@ -1119,28 +1119,28 @@ to_ada_name (const char *name, int *space_found)
case '<': case '<':
case '>': case '>':
c = name [j] == '<' ? 'l' : 'g'; c = name[j] == '<' ? 'l' : 'g';
s [len2++] = '_'; s[len2++] = '_';
switch (name [j + 1]) { switch (name[j + 1]) {
case '\0': case '\0':
s [len2++] = c; s[len2++] = c;
s [len2++] = 't'; s[len2++] = 't';
break; break;
case '=': case '=':
j++; j++;
s [len2++] = c; s[len2++] = c;
s [len2++] = 'e'; s[len2++] = 'e';
break; break;
case '>': case '>':
j++; j++;
s [len2++] = 's'; s[len2++] = 's';
s [len2++] = 'r'; s[len2++] = 'r';
break; break;
case '<': case '<':
j++; j++;
s [len2++] = 's'; s[len2++] = 's';
s [len2++] = 'l'; s[len2++] = 'l';
break; break;
default: default:
break; break;
...@@ -1148,18 +1148,18 @@ to_ada_name (const char *name, int *space_found) ...@@ -1148,18 +1148,18 @@ to_ada_name (const char *name, int *space_found)
break; break;
case '_': case '_':
if (len2 && s [len2 - 1] == '_') if (len2 && s[len2 - 1] == '_')
s [len2++] = 'u'; s[len2++] = 'u';
/* fall through */ /* fall through */
default: default:
s [len2++] = name [j]; s[len2++] = name[j];
} }
if (s [len2 - 1] == '_') if (s[len2 - 1] == '_')
s [len2++] = 'u'; s[len2++] = 'u';
s [len2] = '\0'; s[len2] = '\0';
return s; return s;
} }
...@@ -1376,7 +1376,7 @@ dump_ada_import (pretty_printer *buffer, tree t) ...@@ -1376,7 +1376,7 @@ dump_ada_import (pretty_printer *buffer, tree t)
if (is_stdcall) if (is_stdcall)
pp_string (buffer, "pragma Import (Stdcall, "); pp_string (buffer, "pragma Import (Stdcall, ");
else if (name [0] == '_' && name [1] == 'Z') else if (name[0] == '_' && name[1] == 'Z')
pp_string (buffer, "pragma Import (CPP, "); pp_string (buffer, "pragma Import (CPP, ");
else else
pp_string (buffer, "pragma Import (C, "); pp_string (buffer, "pragma Import (C, ");
...@@ -1433,7 +1433,7 @@ dump_ada_function_declaration (pretty_printer *buffer, tree func, ...@@ -1433,7 +1433,7 @@ dump_ada_function_declaration (pretty_printer *buffer, tree func,
{ {
tree arg; tree arg;
const tree node = TREE_TYPE (func); const tree node = TREE_TYPE (func);
char buf [16]; char buf[16];
int num = 0, num_args = 0, have_args = true, have_ellipsis = false; int num = 0, num_args = 0, have_args = true, have_ellipsis = false;
/* Compute number of arguments. */ /* Compute number of arguments. */
...@@ -3071,7 +3071,7 @@ print_ada_struct_decl (pretty_printer *buffer, tree node, tree type, ...@@ -3071,7 +3071,7 @@ print_ada_struct_decl (pretty_printer *buffer, tree node, tree type,
tree tmp; tree tmp;
int is_union = int is_union =
TREE_CODE (node) == UNION_TYPE || TREE_CODE (node) == QUAL_UNION_TYPE; TREE_CODE (node) == UNION_TYPE || TREE_CODE (node) == QUAL_UNION_TYPE;
char buf [16]; char buf[16];
int field_num = 0; int field_num = 0;
int field_spc = spc + INDENT_INCR; int field_spc = spc + INDENT_INCR;
int need_semicolon; int need_semicolon;
...@@ -3328,7 +3328,7 @@ collect_source_ref (const char *filename) ...@@ -3328,7 +3328,7 @@ collect_source_ref (const char *filename)
} }
for (i = 0; i < source_refs_used; i++) for (i = 0; i < source_refs_used; i++)
if (filename == source_refs [i]) if (filename == source_refs[i])
return; return;
if (source_refs_used == source_refs_allocd) if (source_refs_used == source_refs_allocd)
...@@ -3337,7 +3337,7 @@ collect_source_ref (const char *filename) ...@@ -3337,7 +3337,7 @@ collect_source_ref (const char *filename)
source_refs = XRESIZEVEC (const char *, source_refs, source_refs_allocd); source_refs = XRESIZEVEC (const char *, source_refs, source_refs_allocd);
} }
source_refs [source_refs_used++] = filename; source_refs[source_refs_used++] = filename;
} }
/* Main entry point: dump all Ada specs corresponding to SOURCE_REFS /* Main entry point: dump all Ada specs corresponding to SOURCE_REFS
...@@ -3355,7 +3355,7 @@ dump_ada_specs (void (*collect_all_refs)(const char *), ...@@ -3355,7 +3355,7 @@ dump_ada_specs (void (*collect_all_refs)(const char *),
/* Iterate over the list of files to dump specs for */ /* Iterate over the list of files to dump specs for */
for (i = 0; i < source_refs_used; i++) for (i = 0; i < source_refs_used; i++)
dump_ads (source_refs [i], collect_all_refs, cpp_check); dump_ads (source_refs[i], collect_all_refs, cpp_check);
/* Free files table. */ /* Free files table. */
free (source_refs); free (source_refs);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment