NetBSD/usr.bin/rpcgen/rpc_util.c

514 lines
9.1 KiB
C
Raw Normal View History

/* $NetBSD: rpc_util.c,v 1.8 1997/10/18 10:54:14 lukem Exp $ */
1993-04-03 04:51:49 +04:00
/*
* Sun RPC is a product of Sun Microsystems, Inc. and is provided for
* unrestricted use provided that this legend is included on all tape
* media and as a part of the software program in whole or part. Users
* may copy or modify Sun RPC without charge, but are not authorized
* to license or distribute it to anyone else except as part of a product or
* program developed by the user or with the express written consent of
* Sun Microsystems, Inc.
*
1993-04-03 04:51:49 +04:00
* SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
* WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
* PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
*
1993-04-03 04:51:49 +04:00
* Sun RPC is provided with no support and without any obligation on the
* part of Sun Microsystems, Inc. to assist in its use, correction,
* modification or enhancement.
*
1993-04-03 04:51:49 +04:00
* SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
* INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
* OR ANY PART THEREOF.
*
1993-04-03 04:51:49 +04:00
* In no event will Sun Microsystems, Inc. be liable for any lost revenue
* or profits or other special, indirect and consequential damages, even if
* Sun has been advised of the possibility of such damages.
*
1993-04-03 04:51:49 +04:00
* Sun Microsystems, Inc.
* 2550 Garcia Avenue
* Mountain View, California 94043
*/
#include <sys/cdefs.h>
1993-04-03 04:51:49 +04:00
#ifndef lint
#if 0
static char sccsid[] = "@(#)rpc_util.c 1.11 89/02/22 (C) 1987 SMI";
#else
__RCSID("$NetBSD: rpc_util.c,v 1.8 1997/10/18 10:54:14 lukem Exp $");
#endif
1993-04-03 04:51:49 +04:00
#endif
/*
* rpc_util.c, Utility routines for the RPC protocol compiler
1993-04-03 04:51:49 +04:00
*/
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <ctype.h>
1993-04-03 04:51:49 +04:00
#include "rpc_scan.h"
#include "rpc_parse.h"
#include "rpc_util.h"
#define ARGEXT "argument"
static void printwhere __P((void));
char curline[MAXLINESIZE]; /* current read line */
char *where = curline; /* current point in line */
int linenum = 0; /* current line number */
1993-04-03 04:51:49 +04:00
char *infilename; /* input filename */
1993-04-03 04:51:49 +04:00
#define NFILES 7
char *outfiles[NFILES]; /* output file names */
int nfiles;
1993-04-03 04:51:49 +04:00
FILE *fout; /* file pointer of current output */
FILE *fin; /* file pointer of current input */
1993-04-03 04:51:49 +04:00
list *defined; /* list of defined things */
1993-04-03 04:51:49 +04:00
static char *toktostr __P((tok_kind));
static void printbuf __P((void));
static void printwhere __P((void));
static int findit __P((definition *, char *));
static char *fixit __P((char *, char *));
static int typedefed __P((definition *, char *));
1993-04-03 04:51:49 +04:00
/*
* Reinitialize the world
1993-04-03 04:51:49 +04:00
*/
void
1993-04-03 04:51:49 +04:00
reinitialize()
{
memset(curline, 0, MAXLINESIZE);
1993-04-03 04:51:49 +04:00
where = curline;
linenum = 0;
defined = NULL;
}
/*
* string equality
1993-04-03 04:51:49 +04:00
*/
int
1993-04-03 04:51:49 +04:00
streq(a, b)
char *a;
char *b;
1993-04-03 04:51:49 +04:00
{
return (strcmp(a, b) == 0);
}
/*
* find a value in a list
1993-04-03 04:51:49 +04:00
*/
definition *
1993-04-03 04:51:49 +04:00
findval(lst, val, cmp)
list *lst;
char *val;
int (*cmp) __P((definition *, char *));
1993-04-03 04:51:49 +04:00
{
1993-04-03 04:51:49 +04:00
for (; lst != NULL; lst = lst->next) {
if ((*cmp) (lst->val, val)) {
return (lst->val);
}
}
return (NULL);
}
/*
* store a value in a list
1993-04-03 04:51:49 +04:00
*/
void
storeval(lstp, val)
list **lstp;
definition *val;
1993-04-03 04:51:49 +04:00
{
list **l;
list *lst;
1993-04-03 04:51:49 +04:00
for (l = lstp; *l != NULL; l = (list **) & (*l)->next);
lst = ALLOC(list);
lst->val = val;
lst->next = NULL;
*l = lst;
}
static int
1993-04-03 04:51:49 +04:00
findit(def, type)
definition *def;
char *type;
1993-04-03 04:51:49 +04:00
{
return (streq(def->def_name, type));
}
static char *
fixit(type, orig)
char *type;
char *orig;
1993-04-03 04:51:49 +04:00
{
definition *def;
def = (definition *) FINDVAL(defined, type, findit);
if (def == NULL || def->def_kind != DEF_TYPEDEF) {
return (orig);
}
switch (def->def.ty.rel) {
case REL_VECTOR:
return (def->def.ty.old_type);
case REL_ALIAS:
return (fixit(def->def.ty.old_type, orig));
default:
return (orig);
}
}
char *
1993-04-03 04:51:49 +04:00
fixtype(type)
char *type;
1993-04-03 04:51:49 +04:00
{
return (fixit(type, type));
}
char *
1993-04-03 04:51:49 +04:00
stringfix(type)
char *type;
1993-04-03 04:51:49 +04:00
{
if (streq(type, "string")) {
return ("wrapstring");
} else {
return (type);
}
}
void
ptype(prefix, type, follow)
char *prefix;
char *type;
int follow;
1993-04-03 04:51:49 +04:00
{
if (prefix != NULL) {
if (streq(prefix, "enum")) {
f_print(fout, "enum ");
} else {
f_print(fout, "struct ");
}
}
if (streq(type, "bool")) {
f_print(fout, "bool_t ");
} else
if (streq(type, "string")) {
f_print(fout, "char *");
} else {
f_print(fout, "%s ", follow ? fixtype(type) : type);
}
1993-04-03 04:51:49 +04:00
}
static int
1993-04-03 04:51:49 +04:00
typedefed(def, type)
definition *def;
char *type;
1993-04-03 04:51:49 +04:00
{
if (def->def_kind != DEF_TYPEDEF || def->def.ty.old_prefix != NULL) {
return (0);
} else {
return (streq(def->def_name, type));
}
}
int
1993-04-03 04:51:49 +04:00
isvectordef(type, rel)
char *type;
1993-04-03 04:51:49 +04:00
relation rel;
{
definition *def;
for (;;) {
switch (rel) {
case REL_VECTOR:
return (!streq(type, "string"));
case REL_ARRAY:
return (0);
case REL_POINTER:
return (0);
case REL_ALIAS:
def = (definition *) FINDVAL(defined, type, typedefed);
if (def == NULL) {
return (0);
}
type = def->def.ty.old_type;
rel = def->def.ty.rel;
}
}
}
char *
1993-04-03 04:51:49 +04:00
locase(str)
char *str;
1993-04-03 04:51:49 +04:00
{
char c;
1993-04-03 04:51:49 +04:00
static char buf[100];
char *p = buf;
1993-04-03 04:51:49 +04:00
while ((c = *str++) != '\0') {
1993-04-03 04:51:49 +04:00
*p++ = (c >= 'A' && c <= 'Z') ? (c - 'A' + 'a') : c;
}
*p = 0;
return (buf);
}
void
pvname_svc(pname, vnum)
char *pname;
char *vnum;
{
f_print(fout, "%s_%s_svc", locase(pname), vnum);
}
1993-04-03 04:51:49 +04:00
void
pvname(pname, vnum)
char *pname;
char *vnum;
1993-04-03 04:51:49 +04:00
{
f_print(fout, "%s_%s", locase(pname), vnum);
}
/*
* print a useful (?) error message, and then die
1993-04-03 04:51:49 +04:00
*/
void
error(msg)
char *msg;
1993-04-03 04:51:49 +04:00
{
printwhere();
f_print(stderr, "%s, line %d: ", infilename, linenum);
f_print(stderr, "%s\n", msg);
crash();
}
/*
* Something went wrong, unlink any files that we may have created and then
* die.
1993-04-03 04:51:49 +04:00
*/
void
1993-04-03 04:51:49 +04:00
crash()
{
int i;
1993-04-03 04:51:49 +04:00
for (i = 0; i < nfiles; i++) {
(void) unlink(outfiles[i]);
}
exit(1);
}
void
record_open(file)
char *file;
1993-04-03 04:51:49 +04:00
{
if (nfiles < NFILES) {
outfiles[nfiles++] = file;
} else {
f_print(stderr, "too many files!\n");
crash();
}
}
static char expectbuf[100];
/*
* error, token encountered was not the expected one
1993-04-03 04:51:49 +04:00
*/
void
expected1(exp1)
tok_kind exp1;
{
s_print(expectbuf, "expected '%s'",
toktostr(exp1));
1993-04-03 04:51:49 +04:00
error(expectbuf);
}
/*
* error, token encountered was not one of two expected ones
1993-04-03 04:51:49 +04:00
*/
void
expected2(exp1, exp2)
tok_kind exp1, exp2;
{
s_print(expectbuf, "expected '%s' or '%s'",
toktostr(exp1),
toktostr(exp2));
1993-04-03 04:51:49 +04:00
error(expectbuf);
}
/*
* error, token encountered was not one of 3 expected ones
1993-04-03 04:51:49 +04:00
*/
void
expected3(exp1, exp2, exp3)
tok_kind exp1, exp2, exp3;
{
s_print(expectbuf, "expected '%s', '%s' or '%s'",
toktostr(exp1),
toktostr(exp2),
toktostr(exp3));
1993-04-03 04:51:49 +04:00
error(expectbuf);
}
void
tabify(f, tab)
FILE *f;
int tab;
1993-04-03 04:51:49 +04:00
{
while (tab--) {
(void) fputc('\t', f);
}
}
static token tokstrings[] = {
{TOK_IDENT, "identifier"},
{TOK_CONST, "const"},
{TOK_RPAREN, ")"},
{TOK_LPAREN, "("},
{TOK_RBRACE, "}"},
{TOK_LBRACE, "{"},
{TOK_LBRACKET, "["},
{TOK_RBRACKET, "]"},
{TOK_STAR, "*"},
{TOK_COMMA, ","},
{TOK_EQUAL, "="},
{TOK_COLON, ":"},
{TOK_SEMICOLON, ";"},
{TOK_UNION, "union"},
{TOK_STRUCT, "struct"},
{TOK_SWITCH, "switch"},
{TOK_CASE, "case"},
{TOK_DEFAULT, "default"},
{TOK_ENUM, "enum"},
{TOK_TYPEDEF, "typedef"},
{TOK_INT, "int"},
{TOK_SHORT, "short"},
{TOK_LONG, "long"},
{TOK_UNSIGNED, "unsigned"},
{TOK_DOUBLE, "double"},
{TOK_FLOAT, "float"},
{TOK_CHAR, "char"},
{TOK_STRING, "string"},
{TOK_OPAQUE, "opaque"},
{TOK_BOOL, "bool"},
{TOK_VOID, "void"},
{TOK_PROGRAM, "program"},
{TOK_VERSION, "version"},
{TOK_EOF, "??????"}
1993-04-03 04:51:49 +04:00
};
static char *
toktostr(kind)
tok_kind kind;
{
token *sp;
1993-04-03 04:51:49 +04:00
for (sp = tokstrings; sp->kind != TOK_EOF && sp->kind != kind; sp++);
return (sp->str);
}
static void
1993-04-03 04:51:49 +04:00
printbuf()
{
char c;
int i;
int cnt;
1993-04-03 04:51:49 +04:00
#define TABSIZE 4
1993-04-03 04:51:49 +04:00
for (i = 0; (c = curline[i]) != '\0'; i++) {
1993-04-03 04:51:49 +04:00
if (c == '\t') {
cnt = 8 - (i % TABSIZE);
c = ' ';
} else {
cnt = 1;
}
while (cnt--) {
(void) fputc(c, stderr);
}
}
}
static void
1993-04-03 04:51:49 +04:00
printwhere()
{
int i;
char c;
int cnt;
1993-04-03 04:51:49 +04:00
printbuf();
for (i = 0; i < where - curline; i++) {
c = curline[i];
if (c == '\t') {
cnt = 8 - (i % TABSIZE);
} else {
cnt = 1;
}
while (cnt--) {
(void) fputc('^', stderr);
}
}
(void) fputc('\n', stderr);
}
char *
make_argname(pname, vname)
char *pname;
char *vname;
{
char *name;
name = (char *) malloc(strlen(pname) + strlen(vname) + strlen(ARGEXT) + 3);
if (!name) {
fprintf(stderr, "failed in malloc");
exit(1);
}
sprintf(name, "%s_%s_%s", locase(pname), vname, ARGEXT);
return (name);
}
bas_type *typ_list_h;
bas_type *typ_list_t;
void
add_type(len, type)
int len;
char *type;
{
bas_type *ptr;
if ((ptr = (bas_type *) malloc(sizeof(bas_type))) == (bas_type *) NULL) {
fprintf(stderr, "failed in malloc");
exit(1);
}
ptr->name = type;
ptr->length = len;
ptr->next = NULL;
if (typ_list_t == NULL) {
typ_list_t = ptr;
typ_list_h = ptr;
} else {
typ_list_t->next = ptr;
typ_list_t = ptr;
}
}
bas_type *
find_type(type)
char *type;
{
bas_type *ptr;
ptr = typ_list_h;
while (ptr != NULL) {
if (strcmp(ptr->name, type) == 0)
return (ptr);
else
ptr = ptr->next;
}
return (NULL);
}