Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	usr.bin/rpcgen/rpc_cout.c	Lines:	292	337	86.6 %
Date:	2017-11-13	Branches:	163	197	82.7 %


/*	$OpenBSD: rpc_cout.c,v 1.28 2016/12/22 16:42:55 krw Exp $	*/
/*	$NetBSD: rpc_cout.c,v 1.6 1996/10/01 04:13:53 cgd Exp $	*/

/*
 * Copyright (c) 2010, Oracle America, Inc.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above
 *       copyright notice, this list of conditions and the following
 *       disclaimer in the documentation and/or other materials
 *       provided with the distribution.
 *     * Neither the name of the "Oracle America, Inc." nor the names of its
 *       contributors may be used to endorse or promote products derived
 *       from this software without specific prior written permission.
 *
 *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 *   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 *   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 *   FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
 *   COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
 *   INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *   DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
 *   GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 *   INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 *   WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 *   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 *   OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * rpc_cout.c, XDR routine outputter for the RPC protocol compiler
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "rpc_parse.h"
#include "rpc_util.h"

static int findtype(definition *, char *);
static int undefined(char *);
static void print_generic_header(char *, int);
static void print_header(definition *);
static void print_prog_header(proc_list *);
static void print_trailer(void);
static void print_ifopen(int, char *);
static void print_ifarg(char *);
static void print_ifsizeof(char *, char *);
static void print_ifclose(int);
static void print_ifstat(int, char *, char *, relation, char *, char *, char *);
static void emit_program(definition *);
static void emit_enum(definition *);
static void emit_union(definition *);
static void emit_struct(definition *);
static void emit_typedef(definition *);
static void print_stat(int, declaration *);
void emit_inline(declaration *, int);
void emit_single_in_line(declaration *, int, relation);

/*
 * Emit the C-routine for the given definition
 */
void
emit(def)
	definition *def;
{
	if (def->def_kind == DEF_CONST) {
		return;
	}
	if (def->def_kind == DEF_PROGRAM) {
		emit_program(def);
		return;
	}
	if (def->def_kind == DEF_TYPEDEF) {
		/* now we need to handle declarations like struct typedef foo
		 * foo; since we dont want this to be expanded into 2 calls to
		 * xdr_foo */

		if (strcmp(def->def.ty.old_type, def->def_name) == 0)
			return;
	}

	print_header(def);
	switch (def->def_kind) {
	case DEF_UNION:
		emit_union(def);
		break;
	case DEF_ENUM:
		emit_enum(def);
		break;
	case DEF_STRUCT:
		emit_struct(def);
		break;
	case DEF_TYPEDEF:
		emit_typedef(def);
		break;
	default:
		break;
	}
	print_trailer();
}

static int
findtype(def, type)
	definition *def;
	char	*type;
{

	if (def->def_kind == DEF_PROGRAM || def->def_kind == DEF_CONST) {
		return (0);
	} else {
		return (streq(def->def_name, type));
	}
}

static int
undefined(type)
	char	*type;
{
	definition *def;

	def = (definition *) FINDVAL(defined, type, findtype);
	return (def == NULL);
}

static void
print_generic_header(procname, pointerp)
	char	*procname;
	int	pointerp;
{
	fprintf(fout, "\n");
	fprintf(fout, "bool_t\n");
	if (Cflag) {
		fprintf(fout, "xdr_%s(", procname);
		fprintf(fout, "XDR *xdrs, ");
		fprintf(fout, "%s ", procname);
		if (pointerp)
			fprintf(fout, "*");
		fprintf(fout, "objp)\n{\n");
	} else {
		fprintf(fout, "xdr_%s(xdrs, objp)\n", procname);
		fprintf(fout, "\tXDR *xdrs;\n");
		fprintf(fout, "\t%s ", procname);
		if (pointerp)
			fprintf(fout, "*");
		fprintf(fout, "objp;\n{\n");
	}
}

static void
print_header(def)
	definition *def;
{
	print_generic_header(def->def_name,
	    def->def_kind != DEF_TYPEDEF ||
	    !isvectordef(def->def.ty.old_type, def->def.ty.rel));

	/* Now add Inline support */

	if (doinline == 0)
		return;
}

static void
print_prog_header(plist)
	proc_list *plist;
{
	print_generic_header(plist->args.argname, 1);
}

static void
print_trailer()
{
	fprintf(fout, "\treturn (TRUE);\n");
	fprintf(fout, "}\n");
}

static void
print_ifopen(indent, name)
	int     indent;
	char   *name;
{
	tabify(fout, indent);
	fprintf(fout, "if (!xdr_%s(xdrs", name);
}

static void
print_ifarg(arg)
	char   *arg;
{
	fprintf(fout, ", %s", arg);
}

static void
print_ifsizeof(prefix, type)
	char   *prefix;
	char   *type;
{
	if (streq(type, "bool")) {
		fprintf(fout, ", sizeof(bool_t), (xdrproc_t)xdr_bool");
	} else {
		fprintf(fout, ", sizeof(");
		if (undefined(type) && prefix) {
			fprintf(fout, "%s ", prefix);
		}
		fprintf(fout, "%s), (xdrproc_t)xdr_%s", type, type);
	}
}

static void
print_ifclose(indent)
	int     indent;
{
	fprintf(fout, "))\n");
	tabify(fout, indent);
	fprintf(fout, "\treturn (FALSE);\n");
}

static void
print_ifstat(indent, prefix, type, rel, amax, objname, name)
	int     indent;
	char   *prefix;
	char   *type;
	relation rel;
	char   *amax;
	char   *objname;
	char   *name;
{
	char   *alt = NULL;

	switch (rel) {
	case REL_POINTER:
		print_ifopen(indent, "pointer");
		print_ifarg("(char **)");
		fprintf(fout, "%s", objname);
		print_ifsizeof(prefix, type);
		break;
	case REL_VECTOR:
		if (streq(type, "string")) {
			alt = "string";
		} else
			if (streq(type, "opaque")) {
				alt = "opaque";
			}
		if (alt) {
			print_ifopen(indent, alt);
			print_ifarg(objname);
			print_ifarg(amax);
		} else {
			print_ifopen(indent, "vector");
			print_ifarg("(char *)");
			fprintf(fout, "%s,\n", objname);
			tabify(fout, indent);
			fprintf(fout, "    %s", amax);
		}
		if (!alt) {
			print_ifsizeof(prefix, type);
		}
		break;
	case REL_ARRAY:
		if (streq(type, "string")) {
			alt = "string";
		} else
			if (streq(type, "opaque")) {
				alt = "bytes";
			}
		if (streq(type, "string")) {
			print_ifopen(indent, alt);
			print_ifarg(objname);
			print_ifarg(amax);
		} else {
			if (alt) {
				print_ifopen(indent, alt);
			} else {
				print_ifopen(indent, "array");
			}
			print_ifarg("(char **)");
			if (*objname == '&') {
				fprintf(fout, "%s.%s_val,\n\t    (u_int *)%s.%s_len",
				    objname, name, objname, name);
			} else {
				fprintf(fout, "&%s->%s_val,\n\t    (u_int *)&%s->%s_len",
				    objname, name, objname, name);
			}
			fprintf(fout, ",\n\t    %s", amax);
		}
		if (!alt) {
			print_ifsizeof(prefix, type);
		}
		break;
	case REL_ALIAS:
		print_ifopen(indent, type);
		print_ifarg(objname);
		break;
	}
	print_ifclose(indent);
}

/* ARGSUSED */
static void
emit_enum(def)
	definition *def;
{
	fprintf(fout, "\n");

	print_ifopen(1, "enum");
	print_ifarg("(enum_t *)objp");
	print_ifclose(1);
}

static void
emit_program(def)
	definition *def;
{
	decl_list *dl;
	version_list *vlist;
	proc_list *plist;

	for (vlist = def->def.pr.versions; vlist != NULL; vlist = vlist->next)
		for (plist = vlist->procs; plist != NULL; plist = plist->next) {
			if (!newstyle || plist->arg_num < 2)
				continue;	/* old style, or single
						 * argument */
			print_prog_header(plist);
			for (dl = plist->args.decls; dl != NULL;
			    dl = dl->next)
				print_stat(1, &dl->decl);
			print_trailer();
		}
}

static void
emit_union(def)
	definition *def;
{
	declaration *dflt;
	case_list *cl;
	declaration *cs;
	char   *object;
	static const char vecformat[] = "objp->%s_u.%s";
	static const char format[] = "&objp->%s_u.%s";

	fprintf(fout, "\n");
	print_stat(1, &def->def.un.enum_decl);
	fprintf(fout, "\tswitch (objp->%s) {\n", def->def.un.enum_decl.name);
	for (cl = def->def.un.cases; cl != NULL; cl = cl->next) {
		fprintf(fout, "\tcase %s:\n", cl->case_name);
		if (cl->contflag == 1)	/* a continued case statement */
			continue;
		cs = &cl->case_decl;
		if (!streq(cs->type, "void")) {
			int len = strlen(def->def_name) + strlen(format) +
			    strlen(cs->name) + 1;

			object = malloc(len);
			if (object == NULL) {
				fprintf(stderr, "Fatal error: no memory\n");
				crash();
			}
			if (isvectordef(cs->type, cs->rel)) {
				snprintf(object, len, vecformat, def->def_name,
				    cs->name);
			} else {
				snprintf(object, len, format, def->def_name,
				    cs->name);
			}
			print_ifstat(2, cs->prefix, cs->type, cs->rel, cs->array_max,
			    object, cs->name);
			free(object);
		}
		fprintf(fout, "\t\tbreak;\n");
	}
	dflt = def->def.un.default_decl;
	fprintf(fout, "\tdefault:\n");
	if (dflt != NULL) {
		if (!streq(dflt->type, "void")) {
			int len = strlen(def->def_name) + strlen(format) +
			    strlen(dflt->name) + 1;

			object = malloc(len);
			if (object == NULL) {
				fprintf(stderr, "Fatal error: no memory\n");
				crash();
			}
			if (isvectordef(dflt->type, dflt->rel)) {
				snprintf(object, len, vecformat, def->def_name,
				    dflt->name);
			} else {
				snprintf(object, len, format, def->def_name,
				    dflt->name);
			}

			print_ifstat(2, dflt->prefix, dflt->type, dflt->rel,
			    dflt->array_max, object, dflt->name);
			free(object);
		}
		fprintf(fout, "\t\tbreak;\n");
	} else {
		fprintf(fout, "\t\treturn (FALSE);\n");
	}

	fprintf(fout, "\t}\n");
}

static void
emit_struct(def)
	definition *def;
{
	decl_list *dl;
	int     i, j, size, flag;
	decl_list *cur, *psav;
	bas_type *ptr;
	char   *sizestr, *plus;
	char    ptemp[256];
	int     can_inline;

	if (doinline == 0) {
		for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
			print_stat(1, &dl->decl);
		return;
	}
	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
		if (dl->decl.rel == REL_VECTOR &&
		    strcmp(dl->decl.type, "opaque") != 0) {
			fprintf(fout, "\tint i;\n");
			break;
		}
	fprintf(fout, "\n");

	size = 0;
	can_inline = 0;
	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
		if (dl->decl.prefix == NULL &&
		    (ptr = find_type(dl->decl.type)) != NULL &&
		    (dl->decl.rel == REL_ALIAS || dl->decl.rel == REL_VECTOR)) {
			if (dl->decl.rel == REL_ALIAS)
				size += ptr->length;
			else {
				can_inline = 1;
				break;	/* can be inlined */
			}
		} else {
			if (size >= doinline) {
				can_inline = 1;
				break;	/* can be inlined */
			}
			size = 0;
		}
	if (size > doinline)
		can_inline = 1;

	if (can_inline == 0) {	/* can not inline, drop back to old mode */
		fprintf(fout, "\n");
		for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
			print_stat(1, &dl->decl);
		return;
	}

	/* May cause lint to complain. but  ... */
	fprintf(fout, "\tint32_t *buf;\n");

	flag = PUT;
	for (j = 0; j < 2; j++) {
		if (flag == PUT)
			fprintf(fout, "\n\tif (xdrs->x_op == XDR_ENCODE) {\n");
		else
			fprintf(fout, "\t\treturn (TRUE);\n\t} else if (xdrs->x_op == XDR_DECODE) {\n");

		i = 0;
		size = 0;
		sizestr = NULL;
		for (dl = def->def.st.decls; dl != NULL; dl = dl->next) {	/* xxx */

			/* now walk down the list and check for basic types */
			if (dl->decl.prefix == NULL &&
			    (ptr = find_type(dl->decl.type)) != NULL &&
			    (dl->decl.rel == REL_ALIAS || dl->decl.rel == REL_VECTOR)) {
				if (i == 0)
					cur = dl;
				i++;

				if (dl->decl.rel == REL_ALIAS)
					size += ptr->length;
				else {
					/* this is required to handle arrays */

					if (sizestr == NULL)
						plus = "";
					else
						plus = "+";

					if (ptr->length != 1)
						snprintf(ptemp, sizeof ptemp,
						    "%s%s* %d", plus,
						    dl->decl.array_max,
						    ptr->length);
					else
						snprintf(ptemp, sizeof ptemp,
						    "%s%s", plus,
						    dl->decl.array_max);

					/* now concatenate to sizestr !!!! */
					if (sizestr == NULL) {
						sizestr = strdup(ptemp);
						if (sizestr == NULL) {
							fprintf(stderr,
							    "Fatal error: no memory\n");
							crash();
						}
					} else {
						size_t len;

						len = strlen(sizestr) +
						    strlen(ptemp) + 1;
						sizestr = realloc(sizestr, len);
						if (sizestr == NULL) {
							fprintf(stderr,
							    "Fatal error: no memory\n");
							crash();
						}
						/* build up length of array */
						strlcat(sizestr, ptemp, len);
					}
				}

			} else {
				if (i > 0) {
					if (sizestr == NULL && size < doinline) {
						/* don't expand into inline
						 * code if size < doinline */
						while (cur != dl) {
							print_stat(2, &cur->decl);
							cur = cur->next;
						}
					} else {
						/* were already looking at a
						 * xdr_inlineable structure */
						if (sizestr == NULL)
							fprintf(fout,
							    "\t\tbuf = (int32_t *)XDR_INLINE(xdrs,\n\t\t    %d * BYTES_PER_XDR_UNIT);", size);
						else if (size == 0)
							fprintf(fout,
							    "\t\tbuf = (int32_t *)XDR_INLINE(xdrs,\n\t\t    %s * BYTES_PER_XDR_UNIT);",
								    sizestr);
						else
							fprintf(fout,
							    "\t\tbuf = (int32_t *)XDR_INLINE(xdrs,\n\t\t    (%d + %s) * BYTES_PER_XDR_UNIT);", size, sizestr);

						fprintf(fout,
						    "\n\t\tif (buf == NULL) {\n");

						psav = cur;
						while (cur != dl) {
							print_stat(3, &cur->decl);
							cur = cur->next;
						}

						fprintf(fout, "\t\t} else {\n");

						cur = psav;
						while (cur != dl) {
							emit_inline(&cur->decl, flag);
							cur = cur->next;
						}
						fprintf(fout, "\t\t}\n");
					}
				}
				size = 0;
				i = 0;
				sizestr = NULL;
				print_stat(2, &dl->decl);
			}
		}
		if (i > 0) {
			if (sizestr == NULL && size < doinline) {
				/* don't expand into inline code if size <
				 * doinline */
				while (cur != dl) {
					print_stat(2, &cur->decl);
					cur = cur->next;
				}
			} else {
				/* were already looking at a xdr_inlineable
				 * structure */
				if (sizestr == NULL)
					fprintf(fout, "\t\tbuf = (int32_t *)XDR_INLINE(xdrs,\n\t\t    %d * BYTES_PER_XDR_UNIT);",
					    size);
				else
					if (size == 0)
						fprintf(fout,
						    "\t\tbuf = (int32_t *)XDR_INLINE(xdrs,\n\t\t    %s * BYTES_PER_XDR_UNIT);",
						    sizestr);
					else
						fprintf(fout,
						    "\t\tbuf = (int32_t *)XDR_INLINE(xdrs,\n\t\t    (%d + %s) * BYTES_PER_XDR_UNIT);",
						    size, sizestr);

				fprintf(fout, "\n\t\tif (buf == NULL) {\n");

				psav = cur;
				while (cur != NULL) {
					print_stat(3, &cur->decl);
					cur = cur->next;
				}
				fprintf(fout, "\t\t} else {\n");

				cur = psav;
				while (cur != dl) {
					emit_inline(&cur->decl, flag);
					cur = cur->next;
				}

				fprintf(fout, "\t\t}\n");

			}
		}
		flag = GET;
	}
	fprintf(fout, "\t\treturn (TRUE);\n\t}\n\n");

	/* now take care of XDR_FREE case */

	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
		print_stat(1, &dl->decl);
}

static void
emit_typedef(def)
	definition *def;
{
	char   *prefix = def->def.ty.old_prefix;
	char   *type = def->def.ty.old_type;
	char   *amax = def->def.ty.array_max;
	relation rel = def->def.ty.rel;

	fprintf(fout, "\n");
	print_ifstat(1, prefix, type, rel, amax, "objp", def->def_name);
}

static void
print_stat(indent, dec)
	declaration *dec;
	int     indent;
{
	char   *prefix = dec->prefix;
	char   *type = dec->type;
	char   *amax = dec->array_max;
	relation rel = dec->rel;
	char    name[256];

	if (isvectordef(type, rel)) {
		snprintf(name, sizeof name, "objp->%s", dec->name);
	} else {
		snprintf(name, sizeof name, "&objp->%s", dec->name);
	}
	print_ifstat(indent, prefix, type, rel, amax, name, dec->name);
}

char   *upcase(char *);

void
emit_inline(decl, flag)
	declaration *decl;
	int     flag;
{
	/*check whether an array or not */

	switch (decl->rel) {
	case REL_ALIAS:
		fprintf(fout, "\t");
		emit_single_in_line(decl, flag, REL_ALIAS);
		break;
	case REL_VECTOR:
		fprintf(fout, "\t\t\t{\n\t\t\t\t%s *genp;\n\n", decl->type);
		fprintf(fout, "\t\t\t\tfor (i = 0, genp = objp->%s;\n\t\t\t\t    i < %s; i++) {\n\t\t\t",
		    decl->name, decl->array_max);
		emit_single_in_line(decl, flag, REL_VECTOR);
		fprintf(fout, "\t\t\t\t}\n\t\t\t}\n");
		break;
	default:
		break;

	}
}

void
emit_single_in_line(decl, flag, rel)
	declaration *decl;
	int     flag;
	relation rel;
{
	char   *upp_case;
	int     freed = 0;

	if (flag == PUT)
		fprintf(fout, "\t\tIXDR_PUT_");
	else
		if (rel == REL_ALIAS)
			fprintf(fout, "\t\tobjp->%s = IXDR_GET_", decl->name);
		else
			fprintf(fout, "\t\t*genp++ = IXDR_GET_");

	upp_case = upcase(decl->type);

	/* hack  - XX */
	if (strcmp(upp_case, "INT") == 0) {
		free(upp_case);
		freed = 1;
		upp_case = "LONG";
	}
	if (strcmp(upp_case, "U_INT") == 0) {
		free(upp_case);
		freed = 1;
		upp_case = "U_LONG";
	}
	if (flag == PUT)
		if (rel == REL_ALIAS)
			fprintf(fout, "%s(buf, objp->%s);\n", upp_case, decl->name);
		else
			fprintf(fout, "%s(buf, *genp++);\n", upp_case);

	else
		fprintf(fout, "%s(buf);\n", upp_case);
	if (!freed)
		free(upp_case);
}

char *
upcase(str)
	char   *str;
{
	char   *ptr, *hptr;

	ptr = malloc(strlen(str)+1);
	if (ptr == (char *) NULL) {
		fprintf(stderr, "malloc failed\n");
		exit(1);
	}

	hptr = ptr;
	while (*str != '\0')
		*ptr++ = toupper((unsigned char)*str++);

	*ptr = '\0';
	return (hptr);
}


Generated by: GCOVR (Version 3.3)

Line	Branch	Exec	Source
1			/* $OpenBSD: rpc_cout.c,v 1.28 2016/12/22 16:42:55 krw Exp $ */
2			/* $NetBSD: rpc_cout.c,v 1.6 1996/10/01 04:13:53 cgd Exp $ */
3
4			/*
5			* Copyright (c) 2010, Oracle America, Inc.
6			*
7			* Redistribution and use in source and binary forms, with or without
8			* modification, are permitted provided that the following conditions are
9			* met:
10			*
11			* * Redistributions of source code must retain the above copyright
12			* notice, this list of conditions and the following disclaimer.
13			* * Redistributions in binary form must reproduce the above
14			* copyright notice, this list of conditions and the following
15			* disclaimer in the documentation and/or other materials
16			* provided with the distribution.
17			* * Neither the name of the "Oracle America, Inc." nor the names of its
18			* contributors may be used to endorse or promote products derived
19			* from this software without specific prior written permission.
20			*
21			* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
22			* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
23			* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
24			* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
25			* COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
26			* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
28			* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
29			* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
30			* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
31			* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
32			* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
33			*/
34
35			/*
36			* rpc_cout.c, XDR routine outputter for the RPC protocol compiler
37			*/
38			#include <stdio.h>
39			#include <stdlib.h>
40			#include <string.h>
41			#include <ctype.h>
42			#include "rpc_parse.h"
43			#include "rpc_util.h"
44
45			static int findtype(definition , char );
46			static int undefined(char *);
47			static void print_generic_header(char *, int);
48			static void print_header(definition *);
49			static void print_prog_header(proc_list *);
50			static void print_trailer(void);
51			static void print_ifopen(int, char *);
52			static void print_ifarg(char *);
53			static void print_ifsizeof(char , char );
54			static void print_ifclose(int);
55			static void print_ifstat(int, char , char , relation, char , char , char *);
56			static void emit_program(definition *);
57			static void emit_enum(definition *);
58			static void emit_union(definition *);
59			static void emit_struct(definition *);
60			static void emit_typedef(definition *);
61			static void print_stat(int, declaration *);
62			void emit_inline(declaration *, int);
63			void emit_single_in_line(declaration *, int, relation);
64
65			/*
66			* Emit the C-routine for the given definition
67			*/
68			void
69			emit(def)
70			definition *def;
71			{
72	✓✓	1164	if (def->def_kind == DEF_CONST) {
73			return;
74			}
75	✓✓	322	if (def->def_kind == DEF_PROGRAM) {
76		32	emit_program(def);
77		32	return;
78			}
79	✓✓	290	if (def->def_kind == DEF_TYPEDEF) {
80			/* now we need to handle declarations like struct typedef foo
81			* foo; since we dont want this to be expanded into 2 calls to
82			* xdr_foo */
83
84	✓✗	40	if (strcmp(def->def.ty.old_type, def->def_name) == 0)
85			return;
86			}
87
88		580	print_header(def);
89	✓✓✓✓ ✓	580	switch (def->def_kind) {
90			case DEF_UNION:
91		28	emit_union(def);
92		28	break;
93			case DEF_ENUM:
94		26	emit_enum(def);
95		26	break;
96			case DEF_STRUCT:
97		196	emit_struct(def);
98		196	break;
99			case DEF_TYPEDEF:
100		40	emit_typedef(def);
101		40	break;
102			default:
103			break;
104			}
105		290	print_trailer();
106		872	}
107
108			static int
109			findtype(def, type)
110			definition *def;
111			char *type;
112			{
113
114	✓✗✓✓	1722	if (def->def_kind == DEF_PROGRAM \|\| def->def_kind == DEF_CONST) {
115		208	return (0);
116			} else {
117		366	return (streq(def->def_name, type));
118			}
119		574	}
120
121			static int
122			undefined(type)
123			char *type;
124			{
125			definition *def;
126
127		152	def = (definition *) FINDVAL(defined, type, findtype);
128		76	return (def == NULL);
129			}
130
131			static void
132			print_generic_header(procname, pointerp)
133			char *procname;
134			int pointerp;
135			{
136		580	fprintf(fout, "\n");
137		290	fprintf(fout, "bool_t\n");
138	✓✗	290	if (Cflag) {
139		290	fprintf(fout, "xdr_%s(", procname);
140		290	fprintf(fout, "XDR *xdrs, ");
141		290	fprintf(fout, "%s ", procname);
142	✓✓	290	if (pointerp)
143		286	fprintf(fout, "*");
144		290	fprintf(fout, "objp)\n{\n");
145		290	} else {
146			fprintf(fout, "xdr_%s(xdrs, objp)\n", procname);
147			fprintf(fout, "\tXDR *xdrs;\n");
148			fprintf(fout, "\t%s ", procname);
149			if (pointerp)
150			fprintf(fout, "*");
151			fprintf(fout, "objp;\n{\n");
152			}
153		290	}
154
155			static void
156			print_header(def)
157			definition *def;
158			{
159		870	print_generic_header(def->def_name,
160	✓✓	620	def->def_kind != DEF_TYPEDEF \|\|
161		40	!isvectordef(def->def.ty.old_type, def->def.ty.rel));
162
163			/* Now add Inline support */
164
165		290	if (doinline == 0)
166			return;
167		290	}
168
169			static void
170			print_prog_header(plist)
171			proc_list *plist;
172			{
173			print_generic_header(plist->args.argname, 1);
174			}
175
176			static void
177			print_trailer()
178			{
179		580	fprintf(fout, "\treturn (TRUE);\n");
180		290	fprintf(fout, "}\n");
181		290	}
182
183			static void
184			print_ifopen(indent, name)
185			int indent;
186			char *name;
187			{
188		2384	tabify(fout, indent);
189		1192	fprintf(fout, "if (!xdr_%s(xdrs", name);
190		1192	}
191
192			static void
193			print_ifarg(arg)
194			char *arg;
195			{
196		2560	fprintf(fout, ", %s", arg);
197		1280	}
198
199			static void
200			print_ifsizeof(prefix, type)
201			char *prefix;
202			char *type;
203			{
204	✗✓	152	if (streq(type, "bool")) {
205			fprintf(fout, ", sizeof(bool_t), (xdrproc_t)xdr_bool");
206			} else {
207		76	fprintf(fout, ", sizeof(");
208	✓✓	76	if (undefined(type) && prefix) {
209		6	fprintf(fout, "%s ", prefix);
210		6	}
211		76	fprintf(fout, "%s), (xdrproc_t)xdr_%s", type, type);
212			}
213		76	}
214
215			static void
216			print_ifclose(indent)
217			int indent;
218			{
219		2384	fprintf(fout, "))\n");
220		1192	tabify(fout, indent);
221		1192	fprintf(fout, "\treturn (FALSE);\n");
222		1192	}
223
224			static void
225			print_ifstat(indent, prefix, type, rel, amax, objname, name)
226			int indent;
227			char *prefix;
228			char *type;
229			relation rel;
230			char *amax;
231			char *objname;
232			char *name;
233			{
234			char *alt = NULL;
235
236	✓✓✓✓ ✓	3498	switch (rel) {
237			case REL_POINTER:
238		14	print_ifopen(indent, "pointer");
239		14	print_ifarg("(char **)");
240		14	fprintf(fout, "%s", objname);
241		14	print_ifsizeof(prefix, type);
242		14	break;
243			case REL_VECTOR:
244	✗✓	70	if (streq(type, "string")) {
245			alt = "string";
246			} else
247	✓✓	70	if (streq(type, "opaque")) {
248			alt = "opaque";
249		22	}
250	✓✓	70	if (alt) {
251		22	print_ifopen(indent, alt);
252		22	print_ifarg(objname);
253		22	print_ifarg(amax);
254		22	} else {
255		48	print_ifopen(indent, "vector");
256		48	print_ifarg("(char *)");
257		48	fprintf(fout, "%s,\n", objname);
258		48	tabify(fout, indent);
259		48	fprintf(fout, " %s", amax);
260			}
261	✓✓	70	if (!alt) {
262		48	print_ifsizeof(prefix, type);
263		48	}
264			break;
265			case REL_ARRAY:
266	✓✓	94	if (streq(type, "string")) {
267			alt = "string";
268		66	} else
269	✓✓	28	if (streq(type, "opaque")) {
270			alt = "bytes";
271		14	}
272	✓✓	94	if (streq(type, "string")) {
273		66	print_ifopen(indent, alt);
274		66	print_ifarg(objname);
275		66	print_ifarg(amax);
276		66	} else {
277	✓✓	28	if (alt) {
278		14	print_ifopen(indent, alt);
279		14	} else {
280		14	print_ifopen(indent, "array");
281			}
282		28	print_ifarg("(char **)");
283	✓✓	28	if (*objname == '&') {
284		20	fprintf(fout, "%s.%s_val,\n\t (u_int *)%s.%s_len",
285			objname, name, objname, name);
286		20	} else {
287		8	fprintf(fout, "&%s->%s_val,\n\t (u_int *)&%s->%s_len",
288			objname, name, objname, name);
289			}
290		28	fprintf(fout, ",\n\t %s", amax);
291			}
292	✓✓	94	if (!alt) {
293		14	print_ifsizeof(prefix, type);
294		14	}
295			break;
296			case REL_ALIAS:
297		988	print_ifopen(indent, type);
298		988	print_ifarg(objname);
299		988	break;
300			}
301		1166	print_ifclose(indent);
302		1166	}
303
304			/* ARGSUSED */
305			static void
306			emit_enum(def)
307			definition *def;
308			{
309		52	fprintf(fout, "\n");
310
311		26	print_ifopen(1, "enum");
312		26	print_ifarg("(enum_t *)objp");
313		26	print_ifclose(1);
314		26	}
315
316			static void
317			emit_program(def)
318			definition *def;
319			{
320			decl_list *dl;
321			version_list *vlist;
322			proc_list *plist;
323
324	✓✓	180	for (vlist = def->def.pr.versions; vlist != NULL; vlist = vlist->next)
325	✓✓	540	for (plist = vlist->procs; plist != NULL; plist = plist->next) {
326	✗✓✗✗	228	if (!newstyle \|\| plist->arg_num < 2)
327			continue; /* old style, or single
328			* argument */
329			print_prog_header(plist);
330			for (dl = plist->args.decls; dl != NULL;
331			dl = dl->next)
332			print_stat(1, &dl->decl);
333			print_trailer();
334			}
335		32	}
336
337			static void
338			emit_union(def)
339			definition *def;
340			{
341			declaration *dflt;
342			case_list *cl;
343			declaration *cs;
344			char *object;
345			static const char vecformat[] = "objp->%s_u.%s";
346			static const char format[] = "&objp->%s_u.%s";
347
348		56	fprintf(fout, "\n");
349		28	print_stat(1, &def->def.un.enum_decl);
350		28	fprintf(fout, "\tswitch (objp->%s) {\n", def->def.un.enum_decl.name);
351	✓✓	128	for (cl = def->def.un.cases; cl != NULL; cl = cl->next) {
352		36	fprintf(fout, "\tcase %s:\n", cl->case_name);
353	✓✗	36	if (cl->contflag == 1) /* a continued case statement */
354			continue;
355		36	cs = &cl->case_decl;
356	✓✓	36	if (!streq(cs->type, "void")) {
357		90	int len = strlen(def->def_name) + strlen(format) +
358		60	strlen(cs->name) + 1;
359
360		30	object = malloc(len);
361	✗✓	30	if (object == NULL) {
362			fprintf(stderr, "Fatal error: no memory\n");
363			crash();
364			}
365	✓✓	30	if (isvectordef(cs->type, cs->rel)) {
366		2	snprintf(object, len, vecformat, def->def_name,
367			cs->name);
368		2	} else {
369		28	snprintf(object, len, format, def->def_name,
370			cs->name);
371			}
372		60	print_ifstat(2, cs->prefix, cs->type, cs->rel, cs->array_max,
373		30	object, cs->name);
374		30	free(object);
375		30	}
376		36	fprintf(fout, "\t\tbreak;\n");
377		36	}
378		28	dflt = def->def.un.default_decl;
379		28	fprintf(fout, "\tdefault:\n");
380	✓✓	28	if (dflt != NULL) {
381	✗✓	20	if (!streq(dflt->type, "void")) {
382			int len = strlen(def->def_name) + strlen(format) +
383			strlen(dflt->name) + 1;
384
385			object = malloc(len);
386			if (object == NULL) {
387			fprintf(stderr, "Fatal error: no memory\n");
388			crash();
389			}
390			if (isvectordef(dflt->type, dflt->rel)) {
391			snprintf(object, len, vecformat, def->def_name,
392			dflt->name);
393			} else {
394			snprintf(object, len, format, def->def_name,
395			dflt->name);
396			}
397
398			print_ifstat(2, dflt->prefix, dflt->type, dflt->rel,
399			dflt->array_max, object, dflt->name);
400			free(object);
401			}
402		20	fprintf(fout, "\t\tbreak;\n");
403		20	} else {
404		8	fprintf(fout, "\t\treturn (FALSE);\n");
405			}
406
407		28	fprintf(fout, "\t}\n");
408		28	}
409
410			static void
411			emit_struct(def)
412			definition *def;
413			{
414			decl_list *dl;
415			int i, j, size, flag;
416			decl_list cur, psav;
417			bas_type *ptr;
418			char sizestr, plus;
419		392	char ptemp[256];
420			int can_inline;
421
422	✗✓	196	if (doinline == 0) {
423			for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
424			print_stat(1, &dl->decl);
425			return;
426			}
427	✓✓	1588	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
428	✓✓✓✓	628	if (dl->decl.rel == REL_VECTOR &&
429		24	strcmp(dl->decl.type, "opaque") != 0) {
430		6	fprintf(fout, "\tint i;\n");
431		6	break;
432			}
433		196	fprintf(fout, "\n");
434
435			size = 0;
436			can_inline = 0;
437	✓✓	1564	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
438	✓✓✓✗	604	if (dl->decl.prefix == NULL &&
439	✓✓	572	(ptr = find_type(dl->decl.type)) != NULL &&
440	✓✓	246	(dl->decl.rel == REL_ALIAS \|\| dl->decl.rel == REL_VECTOR)) {
441	✓✓	240	if (dl->decl.rel == REL_ALIAS)
442		234	size += ptr->length;
443			else {
444			can_inline = 1;
445		6	break; /* can be inlined */
446			}
447		234	} else {
448	✓✓	358	if (size >= doinline) {
449			can_inline = 1;
450		6	break; /* can be inlined */
451			}
452			size = 0;
453			}
454	✓✓	196	if (size > doinline)
455		12	can_inline = 1;
456
457	✓✓	196	if (can_inline == 0) { /* can not inline, drop back to old mode */
458		176	fprintf(fout, "\n");
459	✓✓	1336	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
460		492	print_stat(1, &dl->decl);
461		176	return;
462			}
463
464			/* May cause lint to complain. but ... */
465		20	fprintf(fout, "\tint32_t *buf;\n");
466
467			flag = PUT;
468	✓✓	120	for (j = 0; j < 2; j++) {
469	✓✓	40	if (flag == PUT)
470		20	fprintf(fout, "\n\tif (xdrs->x_op == XDR_ENCODE) {\n");
471			else
472		20	fprintf(fout, "\t\treturn (TRUE);\n\t} else if (xdrs->x_op == XDR_DECODE) {\n");
473
474			i = 0;
475			size = 0;
476			sizestr = NULL;
477	✓✓	848	for (dl = def->def.st.decls; dl != NULL; dl = dl->next) { /* xxx */
478
479			/* now walk down the list and check for basic types */
480	✓✗✓✗	416	if (dl->decl.prefix == NULL &&
481	✓✓	384	(ptr = find_type(dl->decl.type)) != NULL &&
482	✓✓	352	(dl->decl.rel == REL_ALIAS \|\| dl->decl.rel == REL_VECTOR)) {
483	✓✓	320	if (i == 0)
484		48	cur = dl;
485		320	i++;
486
487	✓✓	320	if (dl->decl.rel == REL_ALIAS)
488		288	size += ptr->length;
489			else {
490			/* this is required to handle arrays */
491
492	✓✓	32	if (sizestr == NULL)
493		12	plus = "";
494			else
495			plus = "+";
496
497	✗✓	32	if (ptr->length != 1)
498			snprintf(ptemp, sizeof ptemp,
499			"%s%s* %d", plus,
500			dl->decl.array_max,
501			ptr->length);
502			else
503		32	snprintf(ptemp, sizeof ptemp,
504			"%s%s", plus,
505			dl->decl.array_max);
506
507			/* now concatenate to sizestr !!!! */
508	✓✓	32	if (sizestr == NULL) {
509		12	sizestr = strdup(ptemp);
510	✗✓	12	if (sizestr == NULL) {
511			fprintf(stderr,
512			"Fatal error: no memory\n");
513			crash();
514			}
515			} else {
516			size_t len;
517
518		40	len = strlen(sizestr) +
519		40	strlen(ptemp) + 1;
520		20	sizestr = realloc(sizestr, len);
521	✗✓	20	if (sizestr == NULL) {
522			fprintf(stderr,
523			"Fatal error: no memory\n");
524			crash();
525			}
526			/* build up length of array */
527		20	strlcat(sizestr, ptemp, len);
528			}
529			}
530
531			} else {
532	✓✓	64	if (i > 0) {
533	✓✓✗✓	32	if (sizestr == NULL && size < doinline) {
534			/* don't expand into inline
535			* code if size < doinline */
536			while (cur != dl) {
537			print_stat(2, &cur->decl);
538			cur = cur->next;
539			}
540			} else {
541			/* were already looking at a
542			* xdr_inlineable structure */
543	✓✓	20	if (sizestr == NULL)
544		12	fprintf(fout,
545			"\t\tbuf = (int32_t )XDR_INLINE(xdrs,\n\t\t %d BYTES_PER_XDR_UNIT);", size);
546	✗✓	8	else if (size == 0)
547			fprintf(fout,
548			"\t\tbuf = (int32_t )XDR_INLINE(xdrs,\n\t\t %s BYTES_PER_XDR_UNIT);",
549			sizestr);
550			else
551		8	fprintf(fout,
552			"\t\tbuf = (int32_t )XDR_INLINE(xdrs,\n\t\t (%d + %s) BYTES_PER_XDR_UNIT);", size, sizestr);
553
554		20	fprintf(fout,
555			"\n\t\tif (buf == NULL) {\n");
556
557			psav = cur;
558	✓✓	384	while (cur != dl) {
559		172	print_stat(3, &cur->decl);
560		172	cur = cur->next;
561			}
562
563		20	fprintf(fout, "\t\t} else {\n");
564
565			cur = psav;
566	✓✓	384	while (cur != dl) {
567		172	emit_inline(&cur->decl, flag);
568		172	cur = cur->next;
569			}
570		20	fprintf(fout, "\t\t}\n");
571			}
572			}
573			size = 0;
574			i = 0;
575			sizestr = NULL;
576		64	print_stat(2, &dl->decl);
577			}
578			}
579	✓✓	40	if (i > 0) {
580	✓✓✓✓	52	if (sizestr == NULL && size < doinline) {
581			/* don't expand into inline code if size <
582			* doinline */
583	✓✓	32	while (cur != dl) {
584		8	print_stat(2, &cur->decl);
585		8	cur = cur->next;
586			}
587			} else {
588			/* were already looking at a xdr_inlineable
589			* structure */
590	✓✓	20	if (sizestr == NULL)
591		16	fprintf(fout, "\t\tbuf = (int32_t )XDR_INLINE(xdrs,\n\t\t %d BYTES_PER_XDR_UNIT);",
592			size);
593			else
594	✗✓	4	if (size == 0)
595			fprintf(fout,
596			"\t\tbuf = (int32_t )XDR_INLINE(xdrs,\n\t\t %s BYTES_PER_XDR_UNIT);",
597			sizestr);
598			else
599		4	fprintf(fout,
600			"\t\tbuf = (int32_t )XDR_INLINE(xdrs,\n\t\t (%d + %s) BYTES_PER_XDR_UNIT);",
601			size, sizestr);
602
603		20	fprintf(fout, "\n\t\tif (buf == NULL) {\n");
604
605			psav = cur;
606	✓✓	320	while (cur != NULL) {
607		140	print_stat(3, &cur->decl);
608		140	cur = cur->next;
609			}
610		20	fprintf(fout, "\t\t} else {\n");
611
612			cur = psav;
613	✓✓	320	while (cur != dl) {
614		140	emit_inline(&cur->decl, flag);
615		140	cur = cur->next;
616			}
617
618		20	fprintf(fout, "\t\t}\n");
619
620			}
621			}
622			flag = GET;
623			}
624		20	fprintf(fout, "\t\treturn (TRUE);\n\t}\n\n");
625
626			/* now take care of XDR_FREE case */
627
628	✓✓	424	for (dl = def->def.st.decls; dl != NULL; dl = dl->next)
629		192	print_stat(1, &dl->decl);
630		216	}
631
632			static void
633			emit_typedef(def)
634			definition *def;
635			{
636		80	char *prefix = def->def.ty.old_prefix;
637		40	char *type = def->def.ty.old_type;
638		40	char *amax = def->def.ty.array_max;
639		40	relation rel = def->def.ty.rel;
640
641		40	fprintf(fout, "\n");
642		40	print_ifstat(1, prefix, type, rel, amax, "objp", def->def_name);
643		40	}
644
645			static void
646			print_stat(indent, dec)
647			declaration *dec;
648			int indent;
649			{
650		2192	char *prefix = dec->prefix;
651		1096	char *type = dec->type;
652		1096	char *amax = dec->array_max;
653		1096	relation rel = dec->rel;
654		1096	char name[256];
655
656	✓✓	1096	if (isvectordef(type, rel)) {
657		70	snprintf(name, sizeof name, "objp->%s", dec->name);
658		70	} else {
659		1026	snprintf(name, sizeof name, "&objp->%s", dec->name);
660			}
661		1096	print_ifstat(indent, prefix, type, rel, amax, name, dec->name);
662		1096	}
663
664			char upcase(char );
665
666			void
667			emit_inline(decl, flag)
668			declaration *decl;
669			int flag;
670			{
671			/check whether an array or not /
672
673	✓✓✓	936	switch (decl->rel) {
674			case REL_ALIAS:
675		280	fprintf(fout, "\t");
676		280	emit_single_in_line(decl, flag, REL_ALIAS);
677		280	break;
678			case REL_VECTOR:
679		32	fprintf(fout, "\t\t\t{\n\t\t\t\t%s *genp;\n\n", decl->type);
680		64	fprintf(fout, "\t\t\t\tfor (i = 0, genp = objp->%s;\n\t\t\t\t i < %s; i++) {\n\t\t\t",
681		32	decl->name, decl->array_max);
682		32	emit_single_in_line(decl, flag, REL_VECTOR);
683		32	fprintf(fout, "\t\t\t\t}\n\t\t\t}\n");
684		32	break;
685			default:
686			break;
687
688			}
689		312	}
690
691			void
692			emit_single_in_line(decl, flag, rel)
693			declaration *decl;
694			int flag;
695			relation rel;
696			{
697			char *upp_case;
698			int freed = 0;
699
700	✓✓	624	if (flag == PUT)
701		156	fprintf(fout, "\t\tIXDR_PUT_");
702			else
703	✓✓	156	if (rel == REL_ALIAS)
704		140	fprintf(fout, "\t\tobjp->%s = IXDR_GET_", decl->name);
705			else
706		16	fprintf(fout, "\t\t*genp++ = IXDR_GET_");
707
708		312	upp_case = upcase(decl->type);
709
710			/* hack - XX */
711	✓✓	312	if (strcmp(upp_case, "INT") == 0) {
712		88	free(upp_case);
713			freed = 1;
714			upp_case = "LONG";
715		88	}
716	✓✓	312	if (strcmp(upp_case, "U_INT") == 0) {
717		216	free(upp_case);
718			freed = 1;
719			upp_case = "U_LONG";
720		216	}
721	✓✓	312	if (flag == PUT)
722	✓✓	156	if (rel == REL_ALIAS)
723		140	fprintf(fout, "%s(buf, objp->%s);\n", upp_case, decl->name);
724			else
725		16	fprintf(fout, "%s(buf, *genp++);\n", upp_case);
726
727			else
728		156	fprintf(fout, "%s(buf);\n", upp_case);
729	✓✓	312	if (!freed)
730		8	free(upp_case);
731		312	}
732
733			char *
734			upcase(str)
735			char *str;
736			{
737			char ptr, hptr;
738
739		624	ptr = malloc(strlen(str)+1);
740	✗✓	312	if (ptr == (char *) NULL) {
741			fprintf(stderr, "malloc failed\n");
742			exit(1);
743			}
744
745			hptr = ptr;
746	✓✓	3376	while (*str != '\0')
747		1376	ptr++ = toupper((unsigned char)str++);
748
749		312	*ptr = '\0';
750		312	return (hptr);
751			}