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