Add linker relaxation to v850 toolchain

[deliverable/binutils-gdb.git] / bfd / doc / chew.c

diff --git a/bfd/doc/chew.c b/bfd/doc/chew.c
index 1511614af2e3bbf1a0b20678e1261b1237870b5f..dc6f8110829b8200a2268f4b3133906c9cfe84ba 100644 (file)
--- a/bfd/doc/chew.c
+++ b/bfd/doc/chew.c
@@ -1,5 +1,6 @@
 /* chew
-   Copyright (C) 1990, 91, 92, 93, 94, 95, 96, 1998, 2000
+   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001,
+   2002
    Free Software Foundation, Inc.
    Contributed by steve chamberlain @cygnus
 
@@ -81,7 +82,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
    Foo.  */
 
-#include <ansidecl.h>
+#include "ansidecl.h"
 #include "sysdep.h"
 #include <assert.h>
 #include <stdio.h>
@@ -289,8 +290,6 @@ struct dict_struct
 
 typedef struct dict_struct dict_type;
 
-#define WORD(x) static void x()
-
 static void
 die (msg)
      char *msg;
@@ -362,7 +361,8 @@ exec (word)
     (*pc) ();
 }
 
-WORD (call)
+static void
+call ()
 {
   stinst_type *oldpc = pc;
   dict_type *e;
@@ -371,7 +371,8 @@ WORD (call)
   pc = oldpc + 2;
 }
 
-WORD (remchar)
+static void
+remchar ()
 {
   if (tos->write_idx)
     tos->write_idx--;
@@ -388,7 +389,8 @@ strip_trailing_newlines ()
   pc++;
 }
 
-WORD (push_number)
+static void
+push_number ()
 {
   isp++;
   icheck_range ();
@@ -397,7 +399,8 @@ WORD (push_number)
   pc++;
 }
 
-WORD (push_text)
+static void
+push_text ()
 {
   tos++;
   check_range ();
@@ -487,6 +490,7 @@ paramstuff (void)
   unsigned int openp;
   unsigned int fname;
   unsigned int idx;
+  unsigned int len;
   string_type out;
   init_string (&out);
 
@@ -513,29 +517,33 @@ paramstuff (void)
 
       fname++;
 
-      for (idx = 0; idx < fname; idx++)        /* Output type */
+      /* Output type, omitting trailing whitespace character(s), if
+         any.  */
+      for (len = fname; 0 < len; len--)
        {
-         /* Omit a trailing whitespace.  */
-         if (idx + 1 == fname && isspace ((unsigned char) at (tos, idx)))
+         if (!isspace ((unsigned char) at (tos, len - 1)))
            break;
-
-         catchar (&out, at (tos, idx));
        }
+      for (idx = 0; idx < len; idx++)
+       catchar (&out, at (tos, idx));
 
       cattext (&out, "\n");    /* Insert a newline between type and fnname */
 
-      for (idx = fname; idx < openp; idx++)            /* Output fnname */
+      /* Output function name, omitting trailing whitespace
+         character(s), if any.  */
+      for (len = openp; 0 < len; len--)
        {
-         catchar (&out, at (tos, idx));
+         if (!isspace ((unsigned char) at (tos, len - 1)))
+           break;
        }
+      for (idx = fname; idx < len; idx++)
+       catchar (&out, at (tos, idx));
 
       cattext (&out, " PARAMS (");
 
-      while (at (tos, idx) && at (tos, idx) != ';')
-       {
-         catchar (&out, at (tos, idx));
-         idx++;
-       }
+      for (idx = openp; at (tos, idx) && at (tos, idx) != ';'; idx++)
+       catchar (&out, at (tos, idx));
+
       cattext (&out, ");\n\n");
     }
   overwrite_string (tos, &out);
@@ -546,7 +554,8 @@ paramstuff (void)
 /* turn {*
    and *} into comments */
 
-WORD (translatecomments)
+static void
+translatecomments ()
 {
   unsigned int idx = 0;
   string_type out;
@@ -582,7 +591,8 @@ WORD (translatecomments)
 
 /* turn everything not starting with a . into a comment */
 
-WORD (manglecomments)
+static void
+manglecomments ()
 {
   unsigned int idx = 0;
   string_type out;
@@ -660,7 +670,8 @@ outputdots (void)
 }
 
 /* Find lines starting with . and | and put example around them on tos */
-WORD (courierize)
+static void
+courierize ()
 {
   string_type out;
   unsigned int idx = 0;
@@ -681,37 +692,47 @@ WORD (courierize)
 
              while (at (tos, idx) && at (tos, idx) != '\n')
                {
-                 if (at (tos, idx) == '{' && at (tos, idx + 1) == '*')
+                 if (command > 1)
+                   {
+                     /* We are inside {} parameters of some command;
+                        Just pass through until matching brace.  */
+                     if (at (tos, idx) == '{')
+                       ++command;
+                     else if (at (tos, idx) == '}')
+                       --command;
+                   }
+                 else if (command != 0)
+                   {
+                     if (at (tos, idx) == '{')
+                       ++command;
+                     else if (!islower ((unsigned char) at (tos, idx)))
+                       --command;
+                   }
+                 else if (at (tos, idx) == '@'
+                          && islower ((unsigned char) at (tos, idx + 1)))
+                   {
+                     ++command;
+                   }
+                 else if (at (tos, idx) == '{' && at (tos, idx + 1) == '*')
                    {
                      cattext (&out, "/*");
                      idx += 2;
+                     continue;
                    }
                  else if (at (tos, idx) == '*' && at (tos, idx + 1) == '}')
                    {
                      cattext (&out, "*/");
                      idx += 2;
+                     continue;
                    }
-                 else if (at (tos, idx) == '{' && !command)
+                 else if (at (tos, idx) == '{'
+                          || at (tos, idx) == '}')
                    {
-                     cattext (&out, "@{");
-                     idx++;
-                   }
-                 else if (at (tos, idx) == '}' && !command)
-                   {
-                     cattext (&out, "@}");
-                     idx++;
-                   }
-                 else
-                   {
-                     if (at (tos, idx) == '@')
-                       command = 1;
-                     else if (isspace ((unsigned char) at (tos, idx))
-                              || at (tos, idx) == '}')
-                       command = 0;
-                     catchar (&out, at (tos, idx));
-                     idx++;
+                     catchar (&out, '@');
                    }
 
+                 catchar (&out, at (tos, idx));
+                 idx++;
                }
              catchar (&out, '\n');
            }
@@ -736,7 +757,8 @@ WORD (courierize)
    on @itemize @bullet, and @items each of them. Then ends with @end
    itemize, inplace at TOS*/
 
-WORD (bulletize)
+static void
+bulletize ()
 {
   unsigned int idx = 0;
   int on = 0;
@@ -790,7 +812,8 @@ WORD (bulletize)
 
 /* Turn <<foo>> into @code{foo} in place at TOS*/
 
-WORD (do_fancy_stuff)
+static void
+do_fancy_stuff ()
 {
   unsigned int idx = 0;
   string_type out;
@@ -886,7 +909,8 @@ copy_past_newline (ptr, idx, dst)
 
 }
 
-WORD (icopy_past_newline)
+static void
+icopy_past_newline ()
 {
   tos++;
   check_range ();
@@ -898,7 +922,8 @@ WORD (icopy_past_newline)
 /* indent
    Take the string at the top of the stack, do some prettying.  */
 
-WORD (kill_bogus_lines)
+static void
+kill_bogus_lines ()
 {
   int sl;
 
@@ -984,7 +1009,8 @@ WORD (kill_bogus_lines)
 
 }
 
-WORD (indent)
+static void
+indent ()
 {
   string_type out;
   int tab = 0;
@@ -1034,7 +1060,8 @@ WORD (indent)
 
 }
 
-WORD (get_stuff_in_command)
+static void
+get_stuff_in_command ()
 {
   tos++;
   check_range ();
@@ -1049,7 +1076,8 @@ WORD (get_stuff_in_command)
   pc++;
 }
 
-WORD (swap)
+static void
+swap ()
 {
   string_type t;
 
@@ -1059,7 +1087,8 @@ WORD (swap)
   pc++;
 }
 
-WORD (other_dup)
+static void
+other_dup ()
 {
   tos++;
   check_range ();
@@ -1068,21 +1097,24 @@ WORD (other_dup)
   pc++;
 }
 
-WORD (drop)
+static void
+drop ()
 {
   tos--;
   check_range ();
   pc++;
 }
 
-WORD (idrop)
+static void
+idrop ()
 {
   isp--;
   icheck_range ();
   pc++;
 }
 
-WORD (icatstr)
+static void
+icatstr ()
 {
   tos--;
   check_range ();
@@ -1091,7 +1123,8 @@ WORD (icatstr)
   pc++;
 }
 
-WORD (skip_past_newline)
+static void
+skip_past_newline ()
 {
   while (at (ptr, idx)
         && at (ptr, idx) != '\n')
@@ -1100,7 +1133,8 @@ WORD (skip_past_newline)
   pc++;
 }
 
-WORD (internalmode)
+static void
+internalmode ()
 {
   internal_mode = *(isp);
   isp--;
@@ -1108,7 +1142,8 @@ WORD (internalmode)
   pc++;
 }
 
-WORD (maybecatstr)
+static void
+maybecatstr ()
 {
   if (internal_wanted == internal_mode)
     {
@@ -1385,19 +1420,22 @@ bang (void)
   pc++;
 }
 
-WORD (atsign)
+static void
+atsign ()
 {
   isp[0] = *(long *) (isp[0]);
   pc++;
 }
 
-WORD (hello)
+static void
+hello ()
 {
   printf ("hello\n");
   pc++;
 }
 
-WORD (stdout_)
+static void
+stdout_ ()
 {
   isp++;
   icheck_range ();
@@ -1405,7 +1443,8 @@ WORD (stdout_)
   pc++;
 }
 
-WORD (stderr_)
+static void
+stderr_ ()
 {
   isp++;
   icheck_range ();
@@ -1413,7 +1452,8 @@ WORD (stderr_)
   pc++;
 }
 
-WORD (print)
+static void
+print ()
 {
   if (*isp == 1)
     write_buffer (tos, stdout);