From 2e60790cf7c27d79f90f2dcb81e1930dc980bc1c Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Tue, 7 Feb 2023 11:52:24 -0700 Subject: [PATCH] Remove the paramstuff word The chew "paramstuff" word has been a no-op since: commit c58b95236ce4c9345c4fa76e7ef16762e5229380 Author: Alan Modra Date: Sun Jun 29 10:06:40 2003 +0000 Convert to C90 and a few tweaks. Remove it and its one use. 2023-02-07 Tom Tromey * doc/proto.str (SYNOPSIS): Don't use paramstuff. * doc/chew.c (paramstuff): Remove. (main): Don't add paramstuff intrinsic. --- bfd/ChangeLog | 6 ++++ bfd/doc/chew.c | 80 ----------------------------------------------- bfd/doc/proto.str | 1 - 3 files changed, 6 insertions(+), 81 deletions(-) diff --git a/bfd/ChangeLog b/bfd/ChangeLog index a1f975392b7..9b8e1fc6373 100644 --- a/bfd/ChangeLog +++ b/bfd/ChangeLog @@ -1,3 +1,9 @@ +2023-02-07 Tom Tromey + + * doc/proto.str (SYNOPSIS): Don't use paramstuff. + * doc/chew.c (paramstuff): Remove. + (main): Don't add paramstuff intrinsic. + 2023-02-07 Tom Tromey * doc/doc.str, doc/proto.str: Add copyright header. diff --git a/bfd/doc/chew.c b/bfd/doc/chew.c index 8ada35fdcec..df522225b3f 100644 --- a/bfd/doc/chew.c +++ b/bfd/doc/chew.c @@ -65,7 +65,6 @@ exit - fn chew_exit swap outputdots - strip out lines without leading dots - paramstuff - convert full declaration into "PARAMS" form if not already maybecatstr - do catstr if internal_mode == internal_wanted, discard value in any case translatecomments - turn {* and *} into comment delimiters @@ -453,84 +452,6 @@ print_stack_level (void) pc++; } -/* turn: - foobar name(stuff); - into: - foobar - name PARAMS ((stuff)); - and a blank line. - */ - -static void -paramstuff (void) -{ - unsigned int openp; - unsigned int fname; - unsigned int idx; - unsigned int len; - string_type out; - init_string (&out); - -#define NO_PARAMS 1 - - /* Make sure that it's not already param'd or proto'd. */ - if (NO_PARAMS - || find (tos, "PARAMS") || find (tos, "PROTO") || !find (tos, "(")) - { - catstr (&out, tos); - } - else - { - /* Find the open paren. */ - for (openp = 0; at (tos, openp) != '(' && at (tos, openp); openp++) - ; - - fname = openp; - /* Step back to the fname. */ - fname--; - while (fname && isspace ((unsigned char) at (tos, fname))) - fname--; - while (fname - && !isspace ((unsigned char) at (tos,fname)) - && at (tos,fname) != '*') - fname--; - - fname++; - - /* Output type, omitting trailing whitespace character(s), if - any. */ - for (len = fname; 0 < len; len--) - { - if (!isspace ((unsigned char) at (tos, len - 1))) - break; - } - for (idx = 0; idx < len; idx++) - catchar (&out, at (tos, idx)); - - cattext (&out, "\n"); /* Insert a newline between type and fnname */ - - /* Output function name, omitting trailing whitespace - character(s), if any. */ - for (len = openp; 0 < len; len--) - { - if (!isspace ((unsigned char) at (tos, len - 1))) - break; - } - for (idx = fname; idx < len; idx++) - catchar (&out, at (tos, idx)); - - cattext (&out, " PARAMS ("); - - for (idx = openp; at (tos, idx) && at (tos, idx) != ';'; idx++) - catchar (&out, at (tos, idx)); - - cattext (&out, ");\n\n"); - } - overwrite_string (tos, &out); - pc++; - -} - /* turn {* and *} into comments */ @@ -1504,7 +1425,6 @@ main (int ac, char *av[]) add_intrinsic ("exit", chew_exit); add_intrinsic ("swap", swap); add_intrinsic ("outputdots", outputdots); - add_intrinsic ("paramstuff", paramstuff); add_intrinsic ("maybecatstr", maybecatstr); add_intrinsic ("translatecomments", translatecomments); add_intrinsic ("kill_bogus_lines", kill_bogus_lines); diff --git a/bfd/doc/proto.str b/bfd/doc/proto.str index a9533526d6c..7bebbc26f8f 100644 --- a/bfd/doc/proto.str +++ b/bfd/doc/proto.str @@ -19,7 +19,6 @@ : SYNOPSIS skip_past_newline get_stuff_in_command - paramstuff indent maybecatstr ; -- 2.30.2