/* @(#)rpc_util.c 2.1 88/08/01 4.0 RPCSRC */
* 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.
* 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.
* 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.
* SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
* INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
* 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.
* Mountain View, California 94043
static char sccsid
[] = "@(#)rpc_util.c 1.5 87/06/24 (C) 1987 SMI";
* rpc_util.c, Utility routines for the RPC protocol compiler
* Copyright (C) 1987, Sun Microsystems, Inc.
char curline
[MAXLINESIZE
]; /* current read line */
char *where
= curline
; /* current point in line */
int linenum
= 0; /* current line number */
char *infilename
; /* input filename */
char *outfiles
[NFILES
]; /* output file names */
FILE *fout
; /* file pointer of current output */
FILE *fin
; /* file pointer of current input */
list
*defined
; /* list of defined things */
bzero(curline
, MAXLINESIZE
);
return (strcmp(a
, b
) == 0);
for (; lst
!= NULL
; lst
= lst
->next
) {
if ((*cmp
) (lst
->val
, val
)) {
* store a value in a list
for (l
= lstp
; *l
!= NULL
; l
= (list
**) & (*l
)->next
);
return (streq(def
->def_name
, type
));
def
= (definition
*) FINDVAL(defined
, type
, findit
);
if (def
== NULL
|| def
->def_kind
!= DEF_TYPEDEF
) {
switch (def
->def
.ty
.rel
) {
return (def
->def
.ty
.old_type
);
return (fixit(def
->def
.ty
.old_type
, orig
));
return (fixit(type
, type
));
if (streq(type
, "string")) {
ptype(prefix
, type
, follow
)
if (streq(prefix
, "enum")) {
f_print(fout
, "struct ");
if (streq(type
, "bool")) {
f_print(fout
, "bool_t ");
} else if (streq(type
, "string")) {
f_print(fout
, "%s ", follow
? fixtype(type
) : type
);
if (def
->def_kind
!= DEF_TYPEDEF
|| def
->def
.ty
.old_prefix
!= NULL
) {
return (streq(def
->def_name
, type
));
return (!streq(type
, "string"));
def
= (definition
*) FINDVAL(defined
, type
, typedefed
);
type
= def
->def
.ty
.old_type
;
*p
++ = (c
>= 'A' && c
<= 'Z') ? (c
- 'A' + 'a') : c
;
f_print(fout
, "%s_%s", locase(pname
), vnum
);
* print a useful (?) error message, and then die
f_print(stderr
, "%s, line %d: ", infilename
, linenum
);
f_print(stderr
, "%s\n", msg
);
* Something went wrong, unlink any files that we may have created and then
for (i
= 0; i
< nfiles
; i
++) {
(void) unlink(outfiles
[i
]);
outfiles
[nfiles
++] = file
;
f_print(stderr
, "too many files!\n");
static char expectbuf
[100];
* error, token encountered was not the expected one
s_print(expectbuf
, "expected '%s'",
* error, token encountered was not one of two expected ones
s_print(expectbuf
, "expected '%s' or '%s'",
* error, token encountered was not one of 3 expected ones
expected3(exp1
, exp2
, exp3
)
tok_kind exp1
, exp2
, exp3
;
s_print(expectbuf
, "expected '%s', '%s' or '%s'",
static token tokstrings
[] = {
{TOK_IDENT
, "identifier"},
{TOK_DEFAULT
, "default"},
{TOK_TYPEDEF
, "typedef"},
{TOK_UNSIGNED
, "unsigned"},
{TOK_PROGRAM
, "program"},
{TOK_VERSION
, "version"},
for (sp
= tokstrings
; sp
->kind
!= TOK_EOF
&& sp
->kind
!= kind
; sp
++);
for (i
= 0; c
= curline
[i
]; i
++) {
for (i
= 0; i
< where
- curline
; i
++) {
(void) fputc('^', stderr
);
(void) fputc('\n', stderr
);