.
[kopensolaris-gnu/glibc.git] / sunrpc / rpc_tblout.c
index 7a36247..8fd2b12 100644 (file)
  * Mountain View, California  94043
  */
 
-/* 
+/*
  * From: @(#)rpc_tblout.c 1.4 89/02/22 (C) 1988 SMI
  */
-char tblout_rcsid[] = 
-  "$Id$";
 
 /*
  * rpc_tblout.c, Dispatch table outputter for the RPC protocol compiler
@@ -47,124 +45,136 @@ char tblout_rcsid[] =
 #define TABCOUNT       5
 #define TABSTOP                (TABSIZE*TABCOUNT)
 
-static char tabstr[TABCOUNT+1] = "\t\t\t\t\t";
+static const char tabstr[TABCOUNT + 1] = "\t\t\t\t\t";
 
-static char tbl_hdr[] = "struct rpcgen_table %s_table[] = {\n";
-static char tbl_end[] = "};\n";
+static const char tbl_hdr[] = "struct rpcgen_table %s_table[] = {\n";
+static const char tbl_end[] = "};\n";
 
-static char null_entry[] = "\n\t(char *(*)())0,\n\
+static const char null_entry[] = "\n\t(char *(*)())0,\n\
  \t(xdrproc_t) xdr_void,\t\t\t0,\n\
  \t(xdrproc_t) xdr_void,\t\t\t0,\n";
 
 
-static char tbl_nproc[] = "int %s_nproc =\n\tsizeof(%s_table)/sizeof(%s_table[0]);\n\n";
+static const char tbl_nproc[] = "int %s_nproc =\n\tsizeof(%s_table)/sizeof(%s_table[0]);\n\n";
 
-static void write_table(const definition *def);
-static void printit(const char *prefix, const char *type);
+static void write_table (const definition * def);
+static void printit (const char *prefix, const char *type);
 
 void
-write_tables(void)
+write_tables (void)
 {
-       list *l;
-       definition *def;
-
-       f_print(fout, "\n");
-       for (l = defined; l != NULL; l = l->next) {
-               def = (definition *) l->val;
-               if (def->def_kind == DEF_PROGRAM) {
-                       write_table(def);
-               }
+  list *l;
+  definition *def;
+
+  f_print (fout, "\n");
+  for (l = defined; l != NULL; l = l->next)
+    {
+      def = (definition *) l->val;
+      if (def->def_kind == DEF_PROGRAM)
+       {
+         write_table (def);
        }
+    }
 }
 
 static void
-write_table(const definition *def)
+write_table (const definition * def)
 {
-       version_list *vp;
-       proc_list *proc;
-       int current;
-       int expected;
-       char progvers[100];
-       int warning;
-
-       for (vp = def->def.pr.versions; vp != NULL; vp = vp->next) {
-               warning = 0;
-               s_print(progvers, "%s_%s",
-                   locase(def->def_name), vp->vers_num);
-               /* print the table header */
-               f_print(fout, tbl_hdr, progvers);
-
-               if (nullproc(vp->procs)) {
-                       expected = 0;
-               } 
-               else {
-                       expected = 1;
-                       f_print(fout, null_entry);
-               }
-               for (proc = vp->procs; proc != NULL; proc = proc->next) {
-                       current = atoi(proc->proc_num);
-                       if (current != expected++) {
-                               f_print(fout,
-                       "\n/*\n * WARNING: table out of order\n */\n");
-                               if (warning == 0) {
-                                       f_print(stderr,
-                                   "WARNING %s table is out of order\n",
-                                           progvers);
-                                       warning = 1;
-                                       nonfatalerrors = 1;
-                               }
-                               expected = current + 1;
-                       }
-                       f_print(fout, "\n\t(char *(*)())RPCGEN_ACTION(");
-
-                       /* routine to invoke */
-                       if( Cflag && !newstyle )
-                         pvname_svc(proc->proc_name, vp->vers_num);
-                       else {
-                         if( newstyle )
-                           f_print( fout, "_");   /* calls internal func */
-                         pvname(proc->proc_name, vp->vers_num);
-                       }
-                       f_print(fout, "),\n");
-
-                       /* argument info */
-                       if( proc->arg_num > 1 )
-                         printit((char*) NULL, proc->args.argname );
-                       else  
-                         /* do we have to do something special for newstyle */
-                         printit( proc->args.decls->decl.prefix,
-                                 proc->args.decls->decl.type );
-                       /* result info */
-                       printit(proc->res_prefix, proc->res_type);
+  version_list *vp;
+  proc_list *proc;
+  int current;
+  int expected;
+  char progvers[100];
+  int warning;
+
+  for (vp = def->def.pr.versions; vp != NULL; vp = vp->next)
+    {
+      warning = 0;
+      s_print (progvers, "%s_%s",
+              locase (def->def_name), vp->vers_num);
+      /* print the table header */
+      f_print (fout, tbl_hdr, progvers);
+
+      if (nullproc (vp->procs))
+       {
+         expected = 0;
+       }
+      else
+       {
+         expected = 1;
+         f_print (fout, null_entry);
+       }
+      for (proc = vp->procs; proc != NULL; proc = proc->next)
+       {
+         current = atoi (proc->proc_num);
+         if (current != expected++)
+           {
+             f_print (fout,
+                      "\n/*\n * WARNING: table out of order\n */\n");
+             if (warning == 0)
+               {
+                 f_print (stderr,
+                          "WARNING %s table is out of order\n",
+                          progvers);
+                 warning = 1;
+                 nonfatalerrors = 1;
                }
-
-               /* print the table trailer */
-               f_print(fout, tbl_end);
-               f_print(fout, tbl_nproc, progvers, progvers, progvers);
+             expected = current + 1;
+           }
+         f_print (fout, "\n\t(char *(*)())RPCGEN_ACTION(");
+
+         /* routine to invoke */
+         if (Cflag && !newstyle)
+           pvname_svc (proc->proc_name, vp->vers_num);
+         else
+           {
+             if (newstyle)
+               f_print (fout, "_");    /* calls internal func */
+             pvname (proc->proc_name, vp->vers_num);
+           }
+         f_print (fout, "),\n");
+
+         /* argument info */
+         if (proc->arg_num > 1)
+           printit ((char *) NULL, proc->args.argname);
+         else
+           /* do we have to do something special for newstyle */
+           printit (proc->args.decls->decl.prefix,
+                    proc->args.decls->decl.type);
+         /* result info */
+         printit (proc->res_prefix, proc->res_type);
        }
+
+      /* print the table trailer */
+      f_print (fout, tbl_end);
+      f_print (fout, tbl_nproc, progvers, progvers, progvers);
+    }
 }
 
 static void
-printit(const char *prefix, const char *type)
+printit (const char *prefix, const char *type)
 {
-       int len;
-       int tabs;
-
-
-       len = fprintf(fout, "\txdr_%s,", stringfix(type));
-       /* account for leading tab expansion */
-       len += TABSIZE - 1;
-       /* round up to tabs required */
-       tabs = (TABSTOP - len + TABSIZE - 1)/TABSIZE;
-       f_print(fout, "%s", &tabstr[TABCOUNT-tabs]);
-
-       if (streq(type, "void")) {
-               f_print(fout, "0");
-       } else {
-               f_print(fout, "sizeof ( ");
-               /* XXX: should "follow" be 1 ??? */
-               ptype(prefix, type, 0);
-               f_print(fout, ")");
-       }
-       f_print(fout, ",\n");
+  int len;
+  int tabs;
+
+
+  len = fprintf (fout, "\txdr_%s,", stringfix (type));
+  /* account for leading tab expansion */
+  len += TABSIZE - 1;
+  /* round up to tabs required */
+  tabs = (TABSTOP - len + TABSIZE - 1) / TABSIZE;
+  f_print (fout, "%s", &tabstr[TABCOUNT - tabs]);
+
+  if (streq (type, "void"))
+    {
+      f_print (fout, "0");
+    }
+  else
+    {
+      f_print (fout, "sizeof ( ");
+      /* XXX: should "follow" be 1 ??? */
+      ptype (prefix, type, 0);
+      f_print (fout, ")");
+    }
+  f_print (fout, ",\n");
 }