Bring in a hybrid of SunSoft's transport-independent RPC (TI-RPC) and
associated changes that had to happen to make this possible as well as
bugs fixed along the way.
Bring in required TLI library routines to support this.
Since we don't support TLI we've essentially copied what NetBSD
has done, adding a thin layer to emulate direct the TLI calls
into BSD socket calls.
This is mostly from Sun's tirpc release that was made in 1994,
however some fixes were backported from the 1999 release (supposedly
only made available after this porting effort was underway).
The submitter has agreed to continue on and bring us up to the
1999 release.
Several key features are introduced with this update:
Client calls are thread safe. (1999 code has server side thread
safe)
Updated, a more modern interface.
Many userland updates were done to bring the code up to par with
the recent RPC API.
There is an update to the pthreads library, a function
pthread_main_np() was added to emulate a function of Sun's threads
library.
While we're at it, bring in NetBSD's lockd, it's been far too
long of a wait.
New rpcbind(8) replaces portmap(8) (supporting communication over
an authenticated Unix-domain socket, and by default only allowing
set and unset requests over that channel). It's much more secure
than the old portmapper.
Umount(8), mountd(8), mount_nfs(8), nfsd(8) have also been upgraded
to support TI-RPC and to support IPV6.
Umount(8) is also fixed to unmount pathnames longer than 80 chars,
which are currently truncated by the Kernel statfs structure.
Submitted by: Martin Blapp <mb@imp.ch>
Manpage review: ru
Secure RPC implemented by: wpaul
2001-03-19 12:50:13 +00:00
|
|
|
/* $FreeBSD$ */
|
1994-08-07 18:01:39 +00: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.
|
1995-12-13 03:31:10 +00:00
|
|
|
*
|
1994-08-07 18:01:39 +00: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.
|
1995-12-13 03:31:10 +00:00
|
|
|
*
|
1994-08-07 18:01:39 +00: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.
|
1995-12-13 03:31:10 +00:00
|
|
|
*
|
1994-08-07 18:01:39 +00: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.
|
1995-12-13 03:31:10 +00:00
|
|
|
*
|
1994-08-07 18:01:39 +00: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.
|
1995-12-13 03:31:10 +00:00
|
|
|
*
|
1994-08-07 18:01:39 +00:00
|
|
|
* Sun Microsystems, Inc.
|
|
|
|
* 2550 Garcia Avenue
|
|
|
|
* Mountain View, California 94043
|
|
|
|
*/
|
1995-12-13 03:31:10 +00:00
|
|
|
|
|
|
|
#ident "@(#)rpc_parse.c 1.12 93/07/05 SMI"
|
|
|
|
|
1994-08-07 18:01:39 +00:00
|
|
|
#ifndef lint
|
2002-07-14 17:54:00 +00:00
|
|
|
#if 0
|
1995-12-13 03:31:10 +00:00
|
|
|
static char sccsid[] = "@(#)rpc_parse.c 1.8 89/02/22 (C) 1987 SMI";
|
1994-08-07 18:01:39 +00:00
|
|
|
#endif
|
2002-07-14 17:54:00 +00:00
|
|
|
#endif
|
1994-08-07 18:01:39 +00:00
|
|
|
|
|
|
|
/*
|
1995-05-30 06:41:30 +00:00
|
|
|
* rpc_parse.c, Parser for the RPC protocol compiler
|
1994-08-07 18:01:39 +00:00
|
|
|
* Copyright (C) 1987 Sun Microsystems, Inc.
|
|
|
|
*/
|
|
|
|
#include <stdio.h>
|
1995-12-13 03:31:10 +00:00
|
|
|
#include <string.h>
|
|
|
|
#include "rpc/types.h"
|
1994-08-07 18:01:39 +00:00
|
|
|
#include "rpc_scan.h"
|
|
|
|
#include "rpc_parse.h"
|
1995-12-13 03:31:10 +00:00
|
|
|
#include "rpc_util.h"
|
|
|
|
|
|
|
|
#define ARGNAME "arg"
|
|
|
|
|
2002-03-22 01:33:25 +00:00
|
|
|
extern char *make_argname( char *, char * );
|
|
|
|
static void isdefined( definition * );
|
|
|
|
static void def_struct( definition * );
|
|
|
|
static void def_program( definition * );
|
|
|
|
static void def_enum( definition * );
|
|
|
|
static void def_const( definition * );
|
|
|
|
static void def_union( definition * );
|
|
|
|
static void def_typedef( definition * );
|
|
|
|
static void get_declaration( declaration *, defkind );
|
|
|
|
static void get_prog_declaration( declaration *, defkind, int );
|
|
|
|
static void get_type( char **, char **, defkind );
|
|
|
|
static void unsigned_dec( char ** );
|
1995-12-13 03:31:10 +00:00
|
|
|
|
1994-08-07 18:01:39 +00:00
|
|
|
/*
|
|
|
|
* return the next definition you see
|
|
|
|
*/
|
|
|
|
definition *
|
|
|
|
get_definition()
|
|
|
|
{
|
|
|
|
definition *defp;
|
|
|
|
token tok;
|
|
|
|
|
|
|
|
defp = ALLOC(definition);
|
|
|
|
get_token(&tok);
|
|
|
|
switch (tok.kind) {
|
|
|
|
case TOK_STRUCT:
|
|
|
|
def_struct(defp);
|
|
|
|
break;
|
|
|
|
case TOK_UNION:
|
|
|
|
def_union(defp);
|
|
|
|
break;
|
|
|
|
case TOK_TYPEDEF:
|
|
|
|
def_typedef(defp);
|
|
|
|
break;
|
|
|
|
case TOK_ENUM:
|
|
|
|
def_enum(defp);
|
|
|
|
break;
|
|
|
|
case TOK_PROGRAM:
|
|
|
|
def_program(defp);
|
|
|
|
break;
|
|
|
|
case TOK_CONST:
|
|
|
|
def_const(defp);
|
|
|
|
break;
|
|
|
|
case TOK_EOF:
|
|
|
|
return (NULL);
|
|
|
|
default:
|
|
|
|
error("definition keyword expected");
|
|
|
|
}
|
|
|
|
scan(TOK_SEMICOLON, &tok);
|
|
|
|
isdefined(defp);
|
|
|
|
return (defp);
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
isdefined(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
STOREVAL(&defined, defp);
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
def_struct(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
declaration dec;
|
|
|
|
decl_list *decls;
|
|
|
|
decl_list **tailp;
|
|
|
|
|
|
|
|
defp->def_kind = DEF_STRUCT;
|
|
|
|
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
defp->def_name = tok.str;
|
|
|
|
scan(TOK_LBRACE, &tok);
|
|
|
|
tailp = &defp->def.st.decls;
|
|
|
|
do {
|
|
|
|
get_declaration(&dec, DEF_STRUCT);
|
|
|
|
decls = ALLOC(decl_list);
|
|
|
|
decls->decl = dec;
|
|
|
|
*tailp = decls;
|
|
|
|
tailp = &decls->next;
|
|
|
|
scan(TOK_SEMICOLON, &tok);
|
|
|
|
peek(&tok);
|
|
|
|
} while (tok.kind != TOK_RBRACE);
|
|
|
|
get_token(&tok);
|
|
|
|
*tailp = NULL;
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
def_program(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
token tok;
|
1995-12-13 03:31:10 +00:00
|
|
|
declaration dec;
|
|
|
|
decl_list *decls;
|
|
|
|
decl_list **tailp;
|
1994-08-07 18:01:39 +00:00
|
|
|
version_list *vlist;
|
|
|
|
version_list **vtailp;
|
|
|
|
proc_list *plist;
|
|
|
|
proc_list **ptailp;
|
1995-12-13 03:31:10 +00:00
|
|
|
int num_args;
|
|
|
|
bool_t isvoid = FALSE; /* whether first argument is void */
|
1994-08-07 18:01:39 +00:00
|
|
|
defp->def_kind = DEF_PROGRAM;
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
defp->def_name = tok.str;
|
|
|
|
scan(TOK_LBRACE, &tok);
|
|
|
|
vtailp = &defp->def.pr.versions;
|
1995-12-13 03:31:10 +00:00
|
|
|
tailp = &defp->def.st.decls;
|
1994-08-07 18:01:39 +00:00
|
|
|
scan(TOK_VERSION, &tok);
|
|
|
|
do {
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
vlist = ALLOC(version_list);
|
|
|
|
vlist->vers_name = tok.str;
|
|
|
|
scan(TOK_LBRACE, &tok);
|
|
|
|
ptailp = &vlist->procs;
|
|
|
|
do {
|
1995-12-13 03:31:10 +00:00
|
|
|
/* get result type */
|
1994-08-07 18:01:39 +00:00
|
|
|
plist = ALLOC(proc_list);
|
1995-12-13 03:31:10 +00:00
|
|
|
get_type(&plist->res_prefix, &plist->res_type,
|
|
|
|
DEF_PROGRAM);
|
1994-08-07 18:01:39 +00:00
|
|
|
if (streq(plist->res_type, "opaque")) {
|
|
|
|
error("illegal result type");
|
|
|
|
}
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
plist->proc_name = tok.str;
|
|
|
|
scan(TOK_LPAREN, &tok);
|
1995-12-13 03:31:10 +00:00
|
|
|
/* get args - first one */
|
|
|
|
num_args = 1;
|
|
|
|
isvoid = FALSE;
|
|
|
|
/*
|
|
|
|
* type of DEF_PROGRAM in the first
|
|
|
|
* get_prog_declaration and DEF_STURCT in the next
|
|
|
|
* allows void as argument if it is the only argument
|
|
|
|
*/
|
|
|
|
get_prog_declaration(&dec, DEF_PROGRAM, num_args);
|
|
|
|
if (streq(dec.type, "void"))
|
|
|
|
isvoid = TRUE;
|
|
|
|
decls = ALLOC(decl_list);
|
|
|
|
plist->args.decls = decls;
|
|
|
|
decls->decl = dec;
|
|
|
|
tailp = &decls->next;
|
|
|
|
/* get args */
|
|
|
|
while (peekscan(TOK_COMMA, &tok)) {
|
|
|
|
num_args++;
|
|
|
|
get_prog_declaration(&dec, DEF_STRUCT,
|
|
|
|
num_args);
|
|
|
|
decls = ALLOC(decl_list);
|
|
|
|
decls->decl = dec;
|
|
|
|
*tailp = decls;
|
|
|
|
if (streq(dec.type, "void"))
|
|
|
|
isvoid = TRUE;
|
|
|
|
tailp = &decls->next;
|
|
|
|
}
|
|
|
|
/* multiple arguments are only allowed in newstyle */
|
|
|
|
if (!newstyle && num_args > 1) {
|
|
|
|
error("only one argument is allowed");
|
|
|
|
}
|
|
|
|
if (isvoid && num_args > 1) {
|
|
|
|
error("illegal use of void in program definition");
|
1994-08-07 18:01:39 +00:00
|
|
|
}
|
1995-12-13 03:31:10 +00:00
|
|
|
*tailp = NULL;
|
1994-08-07 18:01:39 +00:00
|
|
|
scan(TOK_RPAREN, &tok);
|
|
|
|
scan(TOK_EQUAL, &tok);
|
|
|
|
scan_num(&tok);
|
|
|
|
scan(TOK_SEMICOLON, &tok);
|
|
|
|
plist->proc_num = tok.str;
|
1995-12-13 03:31:10 +00:00
|
|
|
plist->arg_num = num_args;
|
1994-08-07 18:01:39 +00:00
|
|
|
*ptailp = plist;
|
|
|
|
ptailp = &plist->next;
|
|
|
|
peek(&tok);
|
|
|
|
} while (tok.kind != TOK_RBRACE);
|
1995-05-15 00:03:32 +00:00
|
|
|
*ptailp = NULL;
|
1994-08-07 18:01:39 +00:00
|
|
|
*vtailp = vlist;
|
|
|
|
vtailp = &vlist->next;
|
|
|
|
scan(TOK_RBRACE, &tok);
|
|
|
|
scan(TOK_EQUAL, &tok);
|
|
|
|
scan_num(&tok);
|
|
|
|
vlist->vers_num = tok.str;
|
1995-12-13 03:31:10 +00:00
|
|
|
/* make the argument structure name for each arg */
|
|
|
|
for (plist = vlist->procs; plist != NULL;
|
|
|
|
plist = plist->next) {
|
|
|
|
plist->args.argname = make_argname(plist->proc_name,
|
|
|
|
vlist->vers_num);
|
|
|
|
/* free the memory ?? */
|
|
|
|
}
|
1994-08-07 18:01:39 +00:00
|
|
|
scan(TOK_SEMICOLON, &tok);
|
|
|
|
scan2(TOK_VERSION, TOK_RBRACE, &tok);
|
|
|
|
} while (tok.kind == TOK_VERSION);
|
|
|
|
scan(TOK_EQUAL, &tok);
|
|
|
|
scan_num(&tok);
|
|
|
|
defp->def.pr.prog_num = tok.str;
|
|
|
|
*vtailp = NULL;
|
|
|
|
}
|
|
|
|
|
1995-12-13 03:31:10 +00:00
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
def_enum(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
enumval_list *elist;
|
|
|
|
enumval_list **tailp;
|
|
|
|
|
|
|
|
defp->def_kind = DEF_ENUM;
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
defp->def_name = tok.str;
|
|
|
|
scan(TOK_LBRACE, &tok);
|
|
|
|
tailp = &defp->def.en.vals;
|
|
|
|
do {
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
elist = ALLOC(enumval_list);
|
|
|
|
elist->name = tok.str;
|
|
|
|
elist->assignment = NULL;
|
|
|
|
scan3(TOK_COMMA, TOK_RBRACE, TOK_EQUAL, &tok);
|
|
|
|
if (tok.kind == TOK_EQUAL) {
|
|
|
|
scan_num(&tok);
|
|
|
|
elist->assignment = tok.str;
|
|
|
|
scan2(TOK_COMMA, TOK_RBRACE, &tok);
|
|
|
|
}
|
|
|
|
*tailp = elist;
|
|
|
|
tailp = &elist->next;
|
|
|
|
} while (tok.kind != TOK_RBRACE);
|
|
|
|
*tailp = NULL;
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
def_const(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
|
|
|
|
defp->def_kind = DEF_CONST;
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
defp->def_name = tok.str;
|
|
|
|
scan(TOK_EQUAL, &tok);
|
|
|
|
scan2(TOK_IDENT, TOK_STRCONST, &tok);
|
|
|
|
defp->def.co = tok.str;
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
def_union(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
declaration dec;
|
1996-07-12 19:08:36 +00:00
|
|
|
case_list *cases;
|
1994-08-07 18:01:39 +00:00
|
|
|
case_list **tailp;
|
1995-12-13 03:31:10 +00:00
|
|
|
int flag;
|
1994-08-07 18:01:39 +00:00
|
|
|
|
|
|
|
defp->def_kind = DEF_UNION;
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
defp->def_name = tok.str;
|
|
|
|
scan(TOK_SWITCH, &tok);
|
|
|
|
scan(TOK_LPAREN, &tok);
|
|
|
|
get_declaration(&dec, DEF_UNION);
|
|
|
|
defp->def.un.enum_decl = dec;
|
|
|
|
tailp = &defp->def.un.cases;
|
|
|
|
scan(TOK_RPAREN, &tok);
|
|
|
|
scan(TOK_LBRACE, &tok);
|
|
|
|
scan(TOK_CASE, &tok);
|
|
|
|
while (tok.kind == TOK_CASE) {
|
1995-12-13 03:31:10 +00:00
|
|
|
scan2(TOK_IDENT, TOK_CHARCONST, &tok);
|
1994-08-07 18:01:39 +00:00
|
|
|
cases = ALLOC(case_list);
|
|
|
|
cases->case_name = tok.str;
|
|
|
|
scan(TOK_COLON, &tok);
|
1995-12-13 03:31:10 +00:00
|
|
|
/* now peek at next token */
|
|
|
|
flag = 0;
|
|
|
|
if (peekscan(TOK_CASE, &tok)){
|
|
|
|
do {
|
|
|
|
scan2(TOK_IDENT, TOK_CHARCONST, &tok);
|
|
|
|
cases->contflag = 1;
|
|
|
|
/* continued case statement */
|
|
|
|
*tailp = cases;
|
|
|
|
tailp = &cases->next;
|
|
|
|
cases = ALLOC(case_list);
|
|
|
|
cases->case_name = tok.str;
|
|
|
|
scan(TOK_COLON, &tok);
|
|
|
|
} while (peekscan(TOK_CASE, &tok));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
if (flag)
|
|
|
|
{
|
|
|
|
|
|
|
|
*tailp = cases;
|
|
|
|
tailp = &cases->next;
|
|
|
|
cases = ALLOC(case_list);
|
|
|
|
};
|
|
|
|
|
1994-08-07 18:01:39 +00:00
|
|
|
get_declaration(&dec, DEF_UNION);
|
|
|
|
cases->case_decl = dec;
|
1995-12-13 03:31:10 +00:00
|
|
|
cases->contflag = 0; /* no continued case statement */
|
1994-08-07 18:01:39 +00:00
|
|
|
*tailp = cases;
|
|
|
|
tailp = &cases->next;
|
|
|
|
scan(TOK_SEMICOLON, &tok);
|
1995-12-13 03:31:10 +00:00
|
|
|
|
1994-08-07 18:01:39 +00:00
|
|
|
scan3(TOK_CASE, TOK_DEFAULT, TOK_RBRACE, &tok);
|
|
|
|
}
|
|
|
|
*tailp = NULL;
|
|
|
|
if (tok.kind == TOK_DEFAULT) {
|
|
|
|
scan(TOK_COLON, &tok);
|
|
|
|
get_declaration(&dec, DEF_UNION);
|
|
|
|
defp->def.un.default_decl = ALLOC(declaration);
|
|
|
|
*defp->def.un.default_decl = dec;
|
|
|
|
scan(TOK_SEMICOLON, &tok);
|
|
|
|
scan(TOK_RBRACE, &tok);
|
|
|
|
} else {
|
|
|
|
defp->def.un.default_decl = NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1995-12-13 03:31:10 +00:00
|
|
|
static char* reserved_words[] =
|
|
|
|
{
|
|
|
|
"array",
|
|
|
|
"bytes",
|
|
|
|
"destroy",
|
|
|
|
"free",
|
|
|
|
"getpos",
|
|
|
|
"inline",
|
|
|
|
"pointer",
|
|
|
|
"reference",
|
|
|
|
"setpos",
|
|
|
|
"sizeof",
|
|
|
|
"union",
|
|
|
|
"vector",
|
|
|
|
NULL
|
|
|
|
};
|
|
|
|
|
|
|
|
static char* reserved_types[] =
|
|
|
|
{
|
|
|
|
"opaque",
|
|
|
|
"string",
|
|
|
|
NULL
|
|
|
|
};
|
|
|
|
|
|
|
|
/*
|
|
|
|
* check that the given name is not one that would eventually result in
|
|
|
|
* xdr routines that would conflict with internal XDR routines.
|
|
|
|
*/
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
|
|
|
check_type_name(name, new_type)
|
1995-12-13 03:31:10 +00:00
|
|
|
int new_type;
|
|
|
|
char* name;
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
char tmp[100];
|
|
|
|
|
|
|
|
for (i = 0; reserved_words[i] != NULL; i++) {
|
|
|
|
if (strcmp(name, reserved_words[i]) == 0) {
|
|
|
|
sprintf(tmp,
|
|
|
|
"illegal (reserved) name :\'%s\' in type definition",
|
|
|
|
name);
|
|
|
|
error(tmp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (new_type) {
|
|
|
|
for (i = 0; reserved_types[i] != NULL; i++) {
|
|
|
|
if (strcmp(name, reserved_types[i]) == 0) {
|
|
|
|
sprintf(tmp,
|
|
|
|
"illegal (reserved) name :\'%s\' in type definition",
|
|
|
|
name);
|
|
|
|
error(tmp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1994-08-07 18:01:39 +00:00
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
def_typedef(defp)
|
|
|
|
definition *defp;
|
|
|
|
{
|
|
|
|
declaration dec;
|
|
|
|
|
|
|
|
defp->def_kind = DEF_TYPEDEF;
|
|
|
|
get_declaration(&dec, DEF_TYPEDEF);
|
|
|
|
defp->def_name = dec.name;
|
1995-12-13 03:31:10 +00:00
|
|
|
check_type_name(dec.name, 1);
|
1994-08-07 18:01:39 +00:00
|
|
|
defp->def.ty.old_prefix = dec.prefix;
|
|
|
|
defp->def.ty.old_type = dec.type;
|
|
|
|
defp->def.ty.rel = dec.rel;
|
|
|
|
defp->def.ty.array_max = dec.array_max;
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
get_declaration(dec, dkind)
|
|
|
|
declaration *dec;
|
|
|
|
defkind dkind;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
|
|
|
|
get_type(&dec->prefix, &dec->type, dkind);
|
|
|
|
dec->rel = REL_ALIAS;
|
|
|
|
if (streq(dec->type, "void")) {
|
|
|
|
return;
|
|
|
|
}
|
1995-12-13 03:31:10 +00:00
|
|
|
|
|
|
|
check_type_name(dec->type, 0);
|
1994-08-07 18:01:39 +00:00
|
|
|
scan2(TOK_STAR, TOK_IDENT, &tok);
|
|
|
|
if (tok.kind == TOK_STAR) {
|
|
|
|
dec->rel = REL_POINTER;
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
}
|
|
|
|
dec->name = tok.str;
|
|
|
|
if (peekscan(TOK_LBRACKET, &tok)) {
|
|
|
|
if (dec->rel == REL_POINTER) {
|
|
|
|
error("no array-of-pointer declarations -- use typedef");
|
|
|
|
}
|
|
|
|
dec->rel = REL_VECTOR;
|
|
|
|
scan_num(&tok);
|
|
|
|
dec->array_max = tok.str;
|
|
|
|
scan(TOK_RBRACKET, &tok);
|
|
|
|
} else if (peekscan(TOK_LANGLE, &tok)) {
|
|
|
|
if (dec->rel == REL_POINTER) {
|
|
|
|
error("no array-of-pointer declarations -- use typedef");
|
|
|
|
}
|
|
|
|
dec->rel = REL_ARRAY;
|
|
|
|
if (peekscan(TOK_RANGLE, &tok)) {
|
|
|
|
dec->array_max = "~0"; /* unspecified size, use max */
|
|
|
|
} else {
|
|
|
|
scan_num(&tok);
|
|
|
|
dec->array_max = tok.str;
|
|
|
|
scan(TOK_RANGLE, &tok);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (streq(dec->type, "opaque")) {
|
|
|
|
if (dec->rel != REL_ARRAY && dec->rel != REL_VECTOR) {
|
|
|
|
error("array declaration expected");
|
|
|
|
}
|
|
|
|
} else if (streq(dec->type, "string")) {
|
|
|
|
if (dec->rel != REL_ARRAY) {
|
|
|
|
error("variable-length array declaration expected");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1995-12-13 03:31:10 +00:00
|
|
|
get_prog_declaration(dec, dkind, num)
|
|
|
|
declaration *dec;
|
|
|
|
defkind dkind;
|
|
|
|
int num; /* arg number */
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
char name[10]; /* argument name */
|
|
|
|
|
|
|
|
if (dkind == DEF_PROGRAM) {
|
|
|
|
peek(&tok);
|
|
|
|
if (tok.kind == TOK_RPAREN) { /* no arguments */
|
|
|
|
dec->rel = REL_ALIAS;
|
|
|
|
dec->type = "void";
|
|
|
|
dec->prefix = NULL;
|
|
|
|
dec->name = NULL;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
get_type(&dec->prefix, &dec->type, dkind);
|
|
|
|
dec->rel = REL_ALIAS;
|
|
|
|
if (peekscan(TOK_IDENT, &tok)) /* optional name of argument */
|
|
|
|
strcpy(name, tok.str);
|
|
|
|
else
|
|
|
|
sprintf(name, "%s%d", ARGNAME, num);
|
|
|
|
/* default name of argument */
|
|
|
|
|
|
|
|
dec->name = (char *) strdup(name);
|
|
|
|
if (streq(dec->type, "void")) {
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (streq(dec->type, "opaque")) {
|
|
|
|
error("opaque -- illegal argument type");
|
|
|
|
}
|
|
|
|
if (peekscan(TOK_STAR, &tok)) {
|
|
|
|
if (streq(dec->type, "string")) {
|
|
|
|
error("pointer to string not allowed in program arguments\n");
|
|
|
|
}
|
|
|
|
dec->rel = REL_POINTER;
|
|
|
|
if (peekscan(TOK_IDENT, &tok))
|
|
|
|
/* optional name of argument */
|
|
|
|
dec->name = strdup(tok.str);
|
|
|
|
}
|
|
|
|
if (peekscan(TOK_LANGLE, &tok)) {
|
|
|
|
if (!streq(dec->type, "string")) {
|
|
|
|
error("arrays cannot be declared as arguments to procedures -- use typedef");
|
|
|
|
}
|
|
|
|
dec->rel = REL_ARRAY;
|
|
|
|
if (peekscan(TOK_RANGLE, &tok)) {
|
|
|
|
dec->array_max = "~0";
|
|
|
|
/* unspecified size, use max */
|
|
|
|
} else {
|
|
|
|
scan_num(&tok);
|
|
|
|
dec->array_max = tok.str;
|
|
|
|
scan(TOK_RANGLE, &tok);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (streq(dec->type, "string")) {
|
|
|
|
if (dec->rel != REL_ARRAY) {
|
|
|
|
/*
|
|
|
|
* .x specifies just string as
|
|
|
|
* type of argument
|
|
|
|
* - make it string<>
|
|
|
|
*/
|
|
|
|
dec->rel = REL_ARRAY;
|
|
|
|
dec->array_max = "~0"; /* unspecified size, use max */
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
get_type(prefixp, typep, dkind)
|
|
|
|
char **prefixp;
|
|
|
|
char **typep;
|
|
|
|
defkind dkind;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
|
|
|
|
*prefixp = NULL;
|
|
|
|
get_token(&tok);
|
|
|
|
switch (tok.kind) {
|
|
|
|
case TOK_IDENT:
|
|
|
|
*typep = tok.str;
|
|
|
|
break;
|
|
|
|
case TOK_STRUCT:
|
|
|
|
case TOK_ENUM:
|
|
|
|
case TOK_UNION:
|
|
|
|
*prefixp = tok.str;
|
|
|
|
scan(TOK_IDENT, &tok);
|
|
|
|
*typep = tok.str;
|
|
|
|
break;
|
|
|
|
case TOK_UNSIGNED:
|
|
|
|
unsigned_dec(typep);
|
|
|
|
break;
|
|
|
|
case TOK_SHORT:
|
|
|
|
*typep = "short";
|
|
|
|
(void) peekscan(TOK_INT, &tok);
|
|
|
|
break;
|
|
|
|
case TOK_LONG:
|
|
|
|
*typep = "long";
|
|
|
|
(void) peekscan(TOK_INT, &tok);
|
|
|
|
break;
|
1995-12-13 03:31:10 +00:00
|
|
|
case TOK_HYPER:
|
1998-09-08 17:33:12 +00:00
|
|
|
*typep = "int64_t";
|
1995-12-13 03:31:10 +00:00
|
|
|
(void) peekscan(TOK_INT, &tok);
|
|
|
|
break;
|
|
|
|
|
1994-08-07 18:01:39 +00:00
|
|
|
case TOK_VOID:
|
|
|
|
if (dkind != DEF_UNION && dkind != DEF_PROGRAM) {
|
1995-12-13 03:31:10 +00:00
|
|
|
error("voids allowed only inside union and program definitions with one argument");
|
1994-08-07 18:01:39 +00:00
|
|
|
}
|
|
|
|
*typep = tok.str;
|
|
|
|
break;
|
|
|
|
case TOK_STRING:
|
|
|
|
case TOK_OPAQUE:
|
|
|
|
case TOK_CHAR:
|
|
|
|
case TOK_INT:
|
|
|
|
case TOK_FLOAT:
|
|
|
|
case TOK_DOUBLE:
|
|
|
|
case TOK_BOOL:
|
1995-12-13 03:31:10 +00:00
|
|
|
case TOK_QUAD:
|
1994-08-07 18:01:39 +00:00
|
|
|
*typep = tok.str;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
error("expected type specifier");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1996-07-12 19:08:36 +00:00
|
|
|
static void
|
1994-08-07 18:01:39 +00:00
|
|
|
unsigned_dec(typep)
|
|
|
|
char **typep;
|
|
|
|
{
|
|
|
|
token tok;
|
|
|
|
|
|
|
|
peek(&tok);
|
|
|
|
switch (tok.kind) {
|
|
|
|
case TOK_CHAR:
|
|
|
|
get_token(&tok);
|
|
|
|
*typep = "u_char";
|
|
|
|
break;
|
|
|
|
case TOK_SHORT:
|
|
|
|
get_token(&tok);
|
|
|
|
*typep = "u_short";
|
|
|
|
(void) peekscan(TOK_INT, &tok);
|
|
|
|
break;
|
|
|
|
case TOK_LONG:
|
|
|
|
get_token(&tok);
|
|
|
|
*typep = "u_long";
|
|
|
|
(void) peekscan(TOK_INT, &tok);
|
|
|
|
break;
|
1995-12-13 03:31:10 +00:00
|
|
|
case TOK_HYPER:
|
|
|
|
get_token(&tok);
|
1998-09-08 17:33:12 +00:00
|
|
|
*typep = "u_int64_t";
|
Bring in a hybrid of SunSoft's transport-independent RPC (TI-RPC) and
associated changes that had to happen to make this possible as well as
bugs fixed along the way.
Bring in required TLI library routines to support this.
Since we don't support TLI we've essentially copied what NetBSD
has done, adding a thin layer to emulate direct the TLI calls
into BSD socket calls.
This is mostly from Sun's tirpc release that was made in 1994,
however some fixes were backported from the 1999 release (supposedly
only made available after this porting effort was underway).
The submitter has agreed to continue on and bring us up to the
1999 release.
Several key features are introduced with this update:
Client calls are thread safe. (1999 code has server side thread
safe)
Updated, a more modern interface.
Many userland updates were done to bring the code up to par with
the recent RPC API.
There is an update to the pthreads library, a function
pthread_main_np() was added to emulate a function of Sun's threads
library.
While we're at it, bring in NetBSD's lockd, it's been far too
long of a wait.
New rpcbind(8) replaces portmap(8) (supporting communication over
an authenticated Unix-domain socket, and by default only allowing
set and unset requests over that channel). It's much more secure
than the old portmapper.
Umount(8), mountd(8), mount_nfs(8), nfsd(8) have also been upgraded
to support TI-RPC and to support IPV6.
Umount(8) is also fixed to unmount pathnames longer than 80 chars,
which are currently truncated by the Kernel statfs structure.
Submitted by: Martin Blapp <mb@imp.ch>
Manpage review: ru
Secure RPC implemented by: wpaul
2001-03-19 12:50:13 +00:00
|
|
|
|
1995-12-13 03:31:10 +00:00
|
|
|
(void) peekscan(TOK_INT, &tok);
|
|
|
|
break;
|
1994-08-07 18:01:39 +00:00
|
|
|
case TOK_INT:
|
|
|
|
get_token(&tok);
|
|
|
|
*typep = "u_int";
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
*typep = "u_int";
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|