diff options
Diffstat (limited to 'sunrpc/rpc_clntout.c')
-rw-r--r-- | sunrpc/rpc_clntout.c | 291 |
1 files changed, 162 insertions, 129 deletions
diff --git a/sunrpc/rpc_clntout.c b/sunrpc/rpc_clntout.c index fbb8761100..fb086047ba 100644 --- a/sunrpc/rpc_clntout.c +++ b/sunrpc/rpc_clntout.c @@ -31,7 +31,7 @@ /* * From: @(#)rpc_clntout.c 1.11 89/02/22 (C) 1987 SMI */ -char clntout_rcsid[] = +char clntout_rcsid[] = "$Id$"; /* @@ -46,121 +46,141 @@ char clntout_rcsid[] = #include "proto.h" #define DEFAULT_TIMEOUT 25 /* in seconds */ -static char RESULT[] = "clnt_res"; +static const char RESULT[] = "clnt_res"; -static void write_program(definition *def); -static void printbody(proc_list *proc); -static const char *ampr(const char *type); -static void printbody(proc_list *proc); +static void write_program (definition * def); +static void printbody (proc_list * proc); +static const char *ampr (const char *type); +static void printbody (proc_list * proc); void -write_stubs(void) +write_stubs (void) { - list *l; - definition *def; - - f_print(fout, - "\n/* Default timeout can be changed using clnt_control() */\n"); - f_print(fout, "static struct timeval TIMEOUT = { %d, 0 };\n", - DEFAULT_TIMEOUT); - for (l = defined; l != NULL; l = l->next) { - def = (definition *) l->val; - if (def->def_kind == DEF_PROGRAM) { - write_program(def); - } + list *l; + definition *def; + + f_print (fout, + "\n/* Default timeout can be changed using clnt_control() */\n"); + f_print (fout, "static struct timeval TIMEOUT = { %d, 0 };\n", + DEFAULT_TIMEOUT); + for (l = defined; l != NULL; l = l->next) + { + def = (definition *) l->val; + if (def->def_kind == DEF_PROGRAM) + { + write_program (def); } + } } static void -write_program(definition *def) +write_program (definition * def) { - version_list *vp; - proc_list *proc; - - for (vp = def->def.pr.versions; vp != NULL; vp = vp->next) { - for (proc = vp->procs; proc != NULL; proc = proc->next) { - f_print(fout, "\n"); - ptype(proc->res_prefix, proc->res_type, 1); - f_print(fout, "*\n"); - pvname(proc->proc_name, vp->vers_num); - printarglist( proc, "clnt", "CLIENT *" ); - f_print(fout, "{\n"); - printbody(proc); - f_print(fout, "}\n"); - } + version_list *vp; + proc_list *proc; + + for (vp = def->def.pr.versions; vp != NULL; vp = vp->next) + { + for (proc = vp->procs; proc != NULL; proc = proc->next) + { + f_print (fout, "\n"); + ptype (proc->res_prefix, proc->res_type, 1); + f_print (fout, "*\n"); + pvname (proc->proc_name, vp->vers_num); + printarglist (proc, "clnt", "CLIENT *"); + f_print (fout, "{\n"); + printbody (proc); + f_print (fout, "}\n"); } + } } /* Writes out declarations of procedure's argument list. In either ANSI C style, in one of old rpcgen style (pass by reference), or new rpcgen style (multiple arguments, pass by value); - */ + */ /* sample addargname = "clnt"; sample addargtype = "CLIENT * " */ -void printarglist(proc_list *proc, - const char *addargname, const char *addargtype) +void +printarglist (proc_list * proc, + const char *addargname, const char *addargtype) { decl_list *l; - if (!newstyle) { /* old style: always pass argument by reference */ - if (Cflag) { /* C++ style heading */ - f_print(fout, "("); - ptype(proc->args.decls->decl.prefix, proc->args.decls->decl.type, 1); - f_print(fout, "*argp, %s%s)\n", addargtype, addargname ); + if (!newstyle) + { /* old style: always pass argument by reference */ + if (Cflag) + { /* C++ style heading */ + f_print (fout, "("); + ptype (proc->args.decls->decl.prefix, proc->args.decls->decl.type, 1); + f_print (fout, "*argp, %s%s)\n", addargtype, addargname); + } + else + { + f_print (fout, "(argp, %s)\n", addargname); + f_print (fout, "\t"); + ptype (proc->args.decls->decl.prefix, proc->args.decls->decl.type, 1); + f_print (fout, "*argp;\n"); + } } - else { - f_print(fout, "(argp, %s)\n", addargname); - f_print(fout, "\t"); - ptype(proc->args.decls->decl.prefix, proc->args.decls->decl.type, 1); - f_print(fout, "*argp;\n"); + else if (streq (proc->args.decls->decl.type, "void")) + { + /* newstyle, 0 argument */ + if (Cflag) + f_print (fout, "(%s%s)\n", addargtype, addargname); + else + f_print (fout, "(%s)\n", addargname); } - } else if (streq( proc->args.decls->decl.type, "void")) { - /* newstyle, 0 argument */ - if( Cflag ) - f_print(fout, "(%s%s)\n", addargtype, addargname ); - else - f_print(fout, "(%s)\n", addargname); - } else { - /* new style, 1 or multiple arguments */ - if( !Cflag ) { - f_print(fout, "("); - for (l = proc->args.decls; l != NULL; l = l->next) - f_print(fout, "%s, ", l->decl.name); - f_print(fout, "%s)\n", addargname ); - for (l = proc->args.decls; l != NULL; l = l->next) { - pdeclaration(proc->args.argname, &l->decl, 1, ";\n" ); - } - } else { /* C++ style header */ - f_print(fout, "("); - for(l = proc->args.decls; l != NULL; l = l->next) { - pdeclaration(proc->args.argname, &l->decl, 0, ", " ); - } - f_print(fout, " %s%s)\n", addargtype, addargname ); + else + { + /* new style, 1 or multiple arguments */ + if (!Cflag) + { + f_print (fout, "("); + for (l = proc->args.decls; l != NULL; l = l->next) + f_print (fout, "%s, ", l->decl.name); + f_print (fout, "%s)\n", addargname); + for (l = proc->args.decls; l != NULL; l = l->next) + { + pdeclaration (proc->args.argname, &l->decl, 1, ";\n"); + } + } + else + { /* C++ style header */ + f_print (fout, "("); + for (l = proc->args.decls; l != NULL; l = l->next) + { + pdeclaration (proc->args.argname, &l->decl, 0, ", "); + } + f_print (fout, " %s%s)\n", addargtype, addargname); + } } - } - if( !Cflag ) - f_print(fout, "\t%s%s;\n", addargtype, addargname ); + if (!Cflag) + f_print (fout, "\t%s%s;\n", addargtype, addargname); } static const char * -ampr(const char *type) +ampr (const char *type) { - if (isvectordef(type, REL_ALIAS)) { - return (""); - } else { - return ("&"); - } + if (isvectordef (type, REL_ALIAS)) + { + return ""; + } + else + { + return "&"; + } } static void -printbody(proc_list *proc) +printbody (proc_list * proc) { decl_list *l; bool_t args2 = (proc->arg_num > 1); @@ -168,55 +188,68 @@ printbody(proc_list *proc) /* For new style with multiple arguments, need a structure in which to stuff the arguments. */ - if ( newstyle && args2) { - f_print(fout, "\t%s", proc->args.argname); - f_print(fout, " arg;\n"); - } - f_print(fout, "\tstatic "); - if (streq(proc->res_type, "void")) { - f_print(fout, "char "); - } else { - ptype(proc->res_prefix, proc->res_type, 0); - } - f_print(fout, "%s;\n",RESULT); - f_print(fout, "\n"); - f_print(fout, "\tmemset((char *)%s%s, 0, sizeof(%s));\n", - ampr(proc->res_type ), RESULT, RESULT); - if (newstyle && !args2 && (streq( proc->args.decls->decl.type, "void"))) { - /* newstyle, 0 arguments */ - f_print(fout, - "\tif (clnt_call(clnt, %s, xdr_void", proc->proc_name); - f_print(fout, - ", NULL, xdr_%s, %s,%s, TIMEOUT) != RPC_SUCCESS) {\n", - stringfix(proc->res_type), ampr(proc->res_type), RESULT); - - } else if ( newstyle && args2) { - /* newstyle, multiple arguments: stuff arguments into structure */ - for (l = proc->args.decls; l != NULL; l = l->next) { - f_print(fout, "\targ.%s = %s;\n", - l->decl.name, l->decl.name); - } - f_print(fout, - "\tif (clnt_call(clnt, %s, xdr_%s", proc->proc_name, - proc->args.argname); - f_print(fout, - ", &arg, xdr_%s, %s%s, TIMEOUT) != RPC_SUCCESS) {\n", - stringfix(proc->res_type), ampr(proc->res_type), RESULT); - } else { /* single argument, new or old style */ - f_print(fout, - "\tif (clnt_call(clnt, %s, xdr_%s, %s%s, xdr_%s, %s%s, TIMEOUT) != RPC_SUCCESS) {\n", - proc->proc_name, - stringfix(proc->args.decls->decl.type), - (newstyle ? "&" : ""), - (newstyle ? proc->args.decls->decl.name : "argp"), - stringfix(proc->res_type), ampr(proc->res_type),RESULT); - } - f_print(fout, "\t\treturn (NULL);\n"); - f_print(fout, "\t}\n"); - if (streq(proc->res_type, "void")) { - f_print(fout, "\treturn ((void *)%s%s);\n", - ampr(proc->res_type),RESULT); - } else { - f_print(fout, "\treturn (%s%s);\n", ampr(proc->res_type),RESULT); + if (newstyle && args2) + { + f_print (fout, "\t%s", proc->args.argname); + f_print (fout, " arg;\n"); + } + f_print (fout, "\tstatic "); + if (streq (proc->res_type, "void")) + { + f_print (fout, "char "); + } + else + { + ptype (proc->res_prefix, proc->res_type, 0); + } + f_print (fout, "%s;\n", RESULT); + f_print (fout, "\n"); + f_print (fout, "\tmemset((char *)%s%s, 0, sizeof(%s));\n", + ampr (proc->res_type), RESULT, RESULT); + if (newstyle && !args2 && (streq (proc->args.decls->decl.type, "void"))) + { + /* newstyle, 0 arguments */ + f_print (fout, + "\tif (clnt_call(clnt, %s, xdr_void", proc->proc_name); + f_print (fout, + ", NULL, xdr_%s, %s,%s, TIMEOUT) != RPC_SUCCESS) {\n", + stringfix (proc->res_type), ampr (proc->res_type), RESULT); + + } + else if (newstyle && args2) + { + /* newstyle, multiple arguments: stuff arguments into structure */ + for (l = proc->args.decls; l != NULL; l = l->next) + { + f_print (fout, "\targ.%s = %s;\n", + l->decl.name, l->decl.name); } + f_print (fout, + "\tif (clnt_call(clnt, %s, xdr_%s", proc->proc_name, + proc->args.argname); + f_print (fout, + ", &arg, xdr_%s, %s%s, TIMEOUT) != RPC_SUCCESS) {\n", + stringfix (proc->res_type), ampr (proc->res_type), RESULT); + } + else + { /* single argument, new or old style */ + f_print (fout, + "\tif (clnt_call(clnt, %s, xdr_%s, %s%s, xdr_%s, %s%s, TIMEOUT) != RPC_SUCCESS) {\n", + proc->proc_name, + stringfix (proc->args.decls->decl.type), + (newstyle ? "&" : ""), + (newstyle ? proc->args.decls->decl.name : "argp"), + stringfix (proc->res_type), ampr (proc->res_type), RESULT); + } + f_print (fout, "\t\treturn (NULL);\n"); + f_print (fout, "\t}\n"); + if (streq (proc->res_type, "void")) + { + f_print (fout, "\treturn ((void *)%s%s);\n", + ampr (proc->res_type), RESULT); + } + else + { + f_print (fout, "\treturn (%s%s);\n", ampr (proc->res_type), RESULT); + } } |