rpc_util.c revision 1897 
11590Srgrimes/* @(#)rpc_util.c	2.1 88/08/01 4.0 RPCSRC */
250477Speter/*
31590Srgrimes * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
41590Srgrimes * unrestricted use provided that this legend is included on all tape
5276486Sngie * media and as a part of the software program in whole or part.  Users
617592Swosch * may copy or modify Sun RPC without charge, but are not authorized
717592Swosch * to license or distribute it to anyone else except as part of a product or
81590Srgrimes * program developed by the user.
91590Srgrimes *
10 * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
11 * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
12 * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
13 *
14 * Sun RPC is provided with no support and without any obligation on the
15 * part of Sun Microsystems, Inc. to assist in its use, correction,
16 * modification or enhancement.
17 *
18 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
19 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
20 * OR ANY PART THEREOF.
21 *
22 * In no event will Sun Microsystems, Inc. be liable for any lost revenue
23 * or profits or other special, indirect and consequential damages, even if
24 * Sun has been advised of the possibility of such damages.
25 *
26 * Sun Microsystems, Inc.
27 * 2550 Garcia Avenue
28 * Mountain View, California  94043
29 */
30#ifndef lint
31/*static char sccsid[] = "from: @(#)rpc_util.c 1.5 87/06/24 (C) 1987 SMI";*/
32static char rcsid[] = "$Id: rpc_util.c,v 1.1 1993/09/13 23:20:20 jtc Exp $";
33#endif
34
35/*
36 * rpc_util.c, Utility routines for the RPC protocol compiler
37 * Copyright (C) 1987, Sun Microsystems, Inc.
38 */
39#include <stdio.h>
40#include "rpc_scan.h"
41#include "rpc_parse.h"
42#include "rpc_util.h"
43
44char curline[MAXLINESIZE];	/* current read line */
45char *where = curline;	/* current point in line */
46int linenum = 0;	/* current line number */
47
48char *infilename;	/* input filename */
49
50#define NFILES 4
51char *outfiles[NFILES];	/* output file names */
52int nfiles;
53
54FILE *fout;	/* file pointer of current output */
55FILE *fin;	/* file pointer of current input */
56
57list *defined;	/* list of defined things */
58
59static int printwhere();
60
61/*
62 * Reinitialize the world
63 */
64reinitialize()
65{
66	bzero(curline, MAXLINESIZE);
67	where = curline;
68	linenum = 0;
69	defined = NULL;
70}
71
72/*
73 * string equality
74 */
75streq(a, b)
76	char *a;
77	char *b;
78{
79	return (strcmp(a, b) == 0);
80}
81
82/*
83 * find a value in a list
84 */
85char *
86findval(lst, val, cmp)
87	list *lst;
88	char *val;
89	int (*cmp) ();
90
91{
92	for (; lst != NULL; lst = lst->next) {
93		if ((*cmp) (lst->val, val)) {
94			return (lst->val);
95		}
96	}
97	return (NULL);
98}
99
100/*
101 * store a value in a list
102 */
103void
104storeval(lstp, val)
105	list **lstp;
106	char *val;
107{
108	list **l;
109	list *lst;
110
111	for (l = lstp; *l != NULL; l = (list **) & (*l)->next);
112	lst = ALLOC(list);
113	lst->val = val;
114	lst->next = NULL;
115	*l = lst;
116}
117
118
119static
120findit(def, type)
121	definition *def;
122	char *type;
123{
124	return (streq(def->def_name, type));
125}
126
127
128static char *
129fixit(type, orig)
130	char *type;
131	char *orig;
132{
133	definition *def;
134
135	def = (definition *) FINDVAL(defined, type, findit);
136	if (def == NULL || def->def_kind != DEF_TYPEDEF) {
137		return (orig);
138	}
139	switch (def->def.ty.rel) {
140	case REL_VECTOR:
141		return (def->def.ty.old_type);
142	case REL_ALIAS:
143		return (fixit(def->def.ty.old_type, orig));
144	default:
145		return (orig);
146	}
147}
148
149char *
150fixtype(type)
151	char *type;
152{
153	return (fixit(type, type));
154}
155
156char *
157stringfix(type)
158	char *type;
159{
160	if (streq(type, "string")) {
161		return ("wrapstring");
162	} else {
163		return (type);
164	}
165}
166
167void
168ptype(prefix, type, follow)
169	char *prefix;
170	char *type;
171	int follow;
172{
173	if (prefix != NULL) {
174		if (streq(prefix, "enum")) {
175			f_print(fout, "enum ");
176		} else {
177			f_print(fout, "struct ");
178		}
179	}
180	if (streq(type, "bool")) {
181		f_print(fout, "bool_t ");
182	} else if (streq(type, "string")) {
183		f_print(fout, "char *");
184	} else {
185		f_print(fout, "%s ", follow ? fixtype(type) : type);
186	}
187}
188
189
190static
191typedefed(def, type)
192	definition *def;
193	char *type;
194{
195	if (def->def_kind != DEF_TYPEDEF || def->def.ty.old_prefix != NULL) {
196		return (0);
197	} else {
198		return (streq(def->def_name, type));
199	}
200}
201
202isvectordef(type, rel)
203	char *type;
204	relation rel;
205{
206	definition *def;
207
208	for (;;) {
209		switch (rel) {
210		case REL_VECTOR:
211			return (!streq(type, "string"));
212		case REL_ARRAY:
213			return (0);
214		case REL_POINTER:
215			return (0);
216		case REL_ALIAS:
217			def = (definition *) FINDVAL(defined, type, typedefed);
218			if (def == NULL) {
219				return (0);
220			}
221			type = def->def.ty.old_type;
222			rel = def->def.ty.rel;
223		}
224	}
225}
226
227
228static char *
229locase(str)
230	char *str;
231{
232	char c;
233	static char buf[100];
234	char *p = buf;
235
236	while (c = *str++) {
237		*p++ = (c >= 'A' && c <= 'Z') ? (c - 'A' + 'a') : c;
238	}
239	*p = 0;
240	return (buf);
241}
242
243
244void
245pvname(pname, vnum)
246	char *pname;
247	char *vnum;
248{
249	f_print(fout, "%s_%s", locase(pname), vnum);
250}
251
252
253/*
254 * print a useful (?) error message, and then die
255 */
256void
257error(msg)
258	char *msg;
259{
260	printwhere();
261	f_print(stderr, "%s, line %d: ", infilename, linenum);
262	f_print(stderr, "%s\n", msg);
263	crash();
264}
265
266/*
267 * Something went wrong, unlink any files that we may have created and then
268 * die.
269 */
270crash()
271{
272	int i;
273
274	for (i = 0; i < nfiles; i++) {
275		(void) unlink(outfiles[i]);
276	}
277	exit(1);
278}
279
280
281void
282record_open(file)
283	char *file;
284{
285	if (nfiles < NFILES) {
286		outfiles[nfiles++] = file;
287	} else {
288		f_print(stderr, "too many files!\n");
289		crash();
290	}
291}
292
293static char expectbuf[100];
294static char *toktostr();
295
296/*
297 * error, token encountered was not the expected one
298 */
299void
300expected1(exp1)
301	tok_kind exp1;
302{
303	s_print(expectbuf, "expected '%s'",
304		toktostr(exp1));
305	error(expectbuf);
306}
307
308/*
309 * error, token encountered was not one of two expected ones
310 */
311void
312expected2(exp1, exp2)
313	tok_kind exp1, exp2;
314{
315	s_print(expectbuf, "expected '%s' or '%s'",
316		toktostr(exp1),
317		toktostr(exp2));
318	error(expectbuf);
319}
320
321/*
322 * error, token encountered was not one of 3 expected ones
323 */
324void
325expected3(exp1, exp2, exp3)
326	tok_kind exp1, exp2, exp3;
327{
328	s_print(expectbuf, "expected '%s', '%s' or '%s'",
329		toktostr(exp1),
330		toktostr(exp2),
331		toktostr(exp3));
332	error(expectbuf);
333}
334
335void
336tabify(f, tab)
337	FILE *f;
338	int tab;
339{
340	while (tab--) {
341		(void) fputc('\t', f);
342	}
343}
344
345
346
347static token tokstrings[] = {
348			     {TOK_IDENT, "identifier"},
349			     {TOK_CONST, "const"},
350			     {TOK_RPAREN, ")"},
351			     {TOK_LPAREN, "("},
352			     {TOK_RBRACE, "}"},
353			     {TOK_LBRACE, "{"},
354			     {TOK_LBRACKET, "["},
355			     {TOK_RBRACKET, "]"},
356			     {TOK_STAR, "*"},
357			     {TOK_COMMA, ","},
358			     {TOK_EQUAL, "="},
359			     {TOK_COLON, ":"},
360			     {TOK_SEMICOLON, ";"},
361			     {TOK_UNION, "union"},
362			     {TOK_STRUCT, "struct"},
363			     {TOK_SWITCH, "switch"},
364			     {TOK_CASE, "case"},
365			     {TOK_DEFAULT, "default"},
366			     {TOK_ENUM, "enum"},
367			     {TOK_TYPEDEF, "typedef"},
368			     {TOK_INT, "int"},
369			     {TOK_SHORT, "short"},
370			     {TOK_LONG, "long"},
371			     {TOK_UNSIGNED, "unsigned"},
372			     {TOK_DOUBLE, "double"},
373			     {TOK_FLOAT, "float"},
374			     {TOK_CHAR, "char"},
375			     {TOK_STRING, "string"},
376			     {TOK_OPAQUE, "opaque"},
377			     {TOK_BOOL, "bool"},
378			     {TOK_VOID, "void"},
379			     {TOK_PROGRAM, "program"},
380			     {TOK_VERSION, "version"},
381			     {TOK_EOF, "??????"}
382};
383
384static char *
385toktostr(kind)
386	tok_kind kind;
387{
388	token *sp;
389
390	for (sp = tokstrings; sp->kind != TOK_EOF && sp->kind != kind; sp++);
391	return (sp->str);
392}
393
394
395
396static
397printbuf()
398{
399	char c;
400	int i;
401	int cnt;
402
403#	define TABSIZE 4
404
405	for (i = 0; c = curline[i]; i++) {
406		if (c == '\t') {
407			cnt = 8 - (i % TABSIZE);
408			c = ' ';
409		} else {
410			cnt = 1;
411		}
412		while (cnt--) {
413			(void) fputc(c, stderr);
414		}
415	}
416}
417
418
419static
420printwhere()
421{
422	int i;
423	char c;
424	int cnt;
425
426	printbuf();
427	for (i = 0; i < where - curline; i++) {
428		c = curline[i];
429		if (c == '\t') {
430			cnt = 8 - (i % TABSIZE);
431		} else {
432			cnt = 1;
433		}
434		while (cnt--) {
435			(void) fputc('^', stderr);
436		}
437	}
438	(void) fputc('\n', stderr);
439}
440