/* @(#)getrpcent.c 2.2 88/07/29 4.0 RPCSRC */ #define __FORCE_GLIBC #include <features.h> /* * 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 * OR ANY PART THEREOF. * * 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. * * Sun Microsystems, Inc. * 2550 Garcia Avenue * Mountain View, California 94043 */ /* * Copyright (c) 1985 by Sun Microsystems, Inc. */ #include <stdio.h> #include <string.h> #include <sys/types.h> #include <rpc/rpc.h> #include <netdb.h> #include <sys/socket.h> /* * Internet version. */ struct rpcdata { FILE *rpcf; char *current; int currentlen; int stayopen; #define MAXALIASES 35 char *rpc_aliases[MAXALIASES]; struct rpcent rpc; char line[BUFSIZ + 1]; char *domain; } *rpcdata; static struct rpcent *interpret(const char *val, int len); struct hostent *gethostent(); char *inet_ntoa(); static char RPCDB[] = "/etc/rpc"; static struct rpcdata *_rpcdata() { register struct rpcdata *d = rpcdata; if (d == 0) { d = (struct rpcdata *) calloc(1, sizeof(struct rpcdata)); rpcdata = d; } return (d); } struct rpcent *getrpcbynumber(number) register int number; { register struct rpcdata *d = _rpcdata(); register struct rpcent *p; if (d == 0) return (0); setrpcent(0); while ((p = getrpcent())) { if (p->r_number == number) break; } endrpcent(); return (p); } struct rpcent * #ifdef __linux__ getrpcbyname(const char *name) #else getrpcbyname(name) char *name; #endif { struct rpcent *rpc; char **rp; setrpcent(0); while ((rpc = getrpcent())) { if (strcmp(rpc->r_name, name) == 0) return (rpc); for (rp = rpc->r_aliases; *rp != NULL; rp++) { if (strcmp(*rp, name) == 0) return (rpc); } } endrpcent(); return (NULL); } #ifdef __linux__ void #endif setrpcent(f) int f; { register struct rpcdata *d = _rpcdata(); if (d == 0) return; if (d->rpcf == NULL) d->rpcf = fopen(RPCDB, "r"); else rewind(d->rpcf); if (d->current) free(d->current); d->current = NULL; d->stayopen |= f; } #ifdef __linux__ void #endif endrpcent() { register struct rpcdata *d = _rpcdata(); if (d == 0) return; if (d->current && !d->stayopen) { free(d->current); d->current = NULL; } if (d->rpcf && !d->stayopen) { fclose(d->rpcf); d->rpcf = NULL; } } struct rpcent *getrpcent() { register struct rpcdata *d = _rpcdata(); if (d == 0) return (NULL); if (d->rpcf == NULL && (d->rpcf = fopen(RPCDB, "r")) == NULL) return (NULL); if (fgets(d->line, BUFSIZ, d->rpcf) == NULL) return (NULL); return interpret(d->line, strlen(d->line)); } #ifdef __linux__ static char *firstwhite(s) char *s; { char *s1, *s2; s1 = index(s, ' '); s2 = index(s, '\t'); if (s1) { if (s2) return (s1 < s2) ? s1 : s2; else return s1; } else return s2; } #endif static struct rpcent *interpret(const char *val, int len) { register struct rpcdata *d = _rpcdata(); char *p; register char *cp, **q; if (d == 0) return NULL; strncpy(d->line, val, len); p = d->line; d->line[len] = '\n'; if (*p == '#') return (getrpcent()); cp = index(p, '#'); if (cp == NULL) { cp = index(p, '\n'); if (cp == NULL) return (getrpcent()); } *cp = '\0'; #ifdef __linux__ if ((cp = firstwhite(p))) *cp++ = 0; else return (getrpcent()); #else cp = index(p, ' '); if (cp == NULL) { cp = index(p, '\t'); if (cp == NULL) return (getrpcent()); } *cp++ = '\0'; #endif /* THIS STUFF IS INTERNET SPECIFIC */ d->rpc.r_name = d->line; while (*cp == ' ' || *cp == '\t') cp++; d->rpc.r_number = atoi(cp); q = d->rpc.r_aliases = d->rpc_aliases; #ifdef __linux__ if ((cp = firstwhite(cp))) *cp++ = '\0'; #else cp = index(p, ' '); if (cp != NULL) *cp++ = '\0'; else { cp = index(p, '\t'); if (cp != NULL) *cp++ = '\0'; } #endif while (cp && *cp) { if (*cp == ' ' || *cp == '\t') { cp++; continue; } if (q < &(d->rpc_aliases[MAXALIASES - 1])) *q++ = cp; #ifdef __linux__ if ((cp = firstwhite(cp))) *cp++ = '\0'; #else cp = index(p, ' '); if (cp != NULL) *cp++ = '\0'; else { cp = index(p, '\t'); if (cp != NULL) *cp++ = '\0'; } #endif } *q = NULL; return (&d->rpc); }