/* @(#)getrpcent.c 2.2 88/07/29 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 * 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. */ #define __FORCE_GLIBC #include <features.h> #include <stdio.h> #include <string.h> #include <sys/types.h> #include <rpc/rpc.h> #include <netdb.h> #include <sys/socket.h> #include <arpa/inet.h> #include <errno.h> /* Experimentally off - libc_hidden_proto(memcpy) */ /* Experimentally off - libc_hidden_proto(memset) */ /* Experimentally off - libc_hidden_proto(strchr) */ /* Experimentally off - libc_hidden_proto(strcmp) */ /* Experimentally off - libc_hidden_proto(strlen) */ /* libc_hidden_proto(fopen) */ /* libc_hidden_proto(fclose) */ /* libc_hidden_proto(atoi) */ /* libc_hidden_proto(rewind) */ /* libc_hidden_proto(fgets) */ /* * Internet version. */ static 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 char RPCDB[] = "/etc/rpc"; static struct rpcdata *_rpcdata(void) { register struct rpcdata *d = rpcdata; if (d == NULL) { d = (struct rpcdata *) calloc(1, sizeof(struct rpcdata)); rpcdata = d; } return d; } /* libc_hidden_proto(endrpcent) */ void endrpcent(void) { register struct rpcdata *d = _rpcdata(); if (d == NULL) return; if (d->stayopen) return; free(d->current); d->current = NULL; if (d->rpcf) { fclose(d->rpcf); d->rpcf = NULL; } } libc_hidden_def(endrpcent) /* libc_hidden_proto(setrpcent) */ void setrpcent(int f) { register struct rpcdata *d = _rpcdata(); if (d == NULL) return; if (d->rpcf == NULL) d->rpcf = fopen(RPCDB, "r"); else rewind(d->rpcf); free(d->current); d->current = NULL; d->stayopen |= f; } libc_hidden_def(setrpcent) static struct rpcent *interpret(struct rpcdata *); static struct rpcent *__get_next_rpcent(struct rpcdata *d) { if (fgets(d->line, BUFSIZ, d->rpcf) == NULL) return NULL; return interpret(d); } /* libc_hidden_proto(getrpcent) */ struct rpcent *getrpcent(void) { register struct rpcdata *d = _rpcdata(); if (d == NULL) return NULL; if (d->rpcf == NULL && (d->rpcf = fopen(RPCDB, "r")) == NULL) return NULL; return __get_next_rpcent(d); } libc_hidden_def(getrpcent) /* libc_hidden_proto(getrpcbynumber) */ struct rpcent *getrpcbynumber(register int number) { register struct rpcdata *d = _rpcdata(); register struct rpcent *rpc; if (d == NULL) return NULL; setrpcent(0); while ((rpc = getrpcent())) { if (rpc->r_number == number) break; } endrpcent(); return rpc; } libc_hidden_def(getrpcbynumber) /* libc_hidden_proto(getrpcbyname) */ struct rpcent *getrpcbyname(const char *name) { 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; } libc_hidden_def(getrpcbyname) #ifdef __linux__ static char *firstwhite(char *s) { char *s1, *s2; s1 = strchr(s, ' '); s2 = strchr(s, '\t'); if (s1) { if (s2) return (s1 < s2) ? s1 : s2; else return s1; } else return s2; } #endif static struct rpcent *interpret(register struct rpcdata *d) { char *p; register char *cp, **q; p = d->line; d->line[strlen(p)-1] = '\n'; if (*p == '#') return __get_next_rpcent(d); cp = strchr(p, '#'); if (cp == NULL) { cp = strchr(p, '\n'); if (cp == NULL) return __get_next_rpcent(d); } *cp = '\0'; #ifdef __linux__ if ((cp = firstwhite(p))) *cp++ = 0; else return __get_next_rpcent(d); #else cp = strchr(p, ' '); if (cp == NULL) { cp = strchr(p, '\t'); if (cp == NULL) return __get_next_rpcent(d); } *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 = strchr(p, ' '); if (cp != NULL) *cp++ = '\0'; else { cp = strchr(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 = strchr(p, ' '); if (cp != NULL) *cp++ = '\0'; else { cp = strchr(p, '\t'); if (cp != NULL) *cp++ = '\0'; } #endif } *q = NULL; return &d->rpc; } #if defined(__UCLIBC_HAS_REENTRANT_RPC__) #include <bits/uClibc_mutex.h> __UCLIBC_MUTEX_STATIC(mylock, PTHREAD_MUTEX_INITIALIZER); static int __copy_rpcent(struct rpcent *r, struct rpcent *result_buf, char *buffer, size_t buflen, struct rpcent **result) { size_t i, s; *result = NULL; if (!r) return ENOENT; /* copy the struct from the shared mem */ memset(result_buf, 0x00, sizeof(*result_buf)); memset(buffer, 0x00, buflen); result_buf->r_number = r->r_number; /* copy the aliases ... need to not only copy the alias strings, * but the array of pointers to the alias strings */ i = 0; while (r->r_aliases[i++]) ; s = i-- * sizeof(char*); if (buflen < s) goto err_out; result_buf->r_aliases = (char**)buffer; buffer += s; buflen -= s; while (i-- > 0) { s = strlen(r->r_aliases[i]) + 1; if (buflen < s) goto err_out; result_buf->r_aliases[i] = buffer; buffer += s; buflen -= s; memcpy(result_buf->r_aliases[i], r->r_aliases[i], s); } /* copy the name */ i = strlen(r->r_name); if (buflen <= i) goto err_out; result_buf->r_name = buffer; memcpy(result_buf->r_name, r->r_name, i); /* that was a hoot eh ? */ *result = result_buf; return 0; err_out: return ERANGE; } int getrpcbynumber_r(int number, struct rpcent *result_buf, char *buffer, size_t buflen, struct rpcent **result) { int ret; __UCLIBC_MUTEX_LOCK(mylock); ret = __copy_rpcent(getrpcbynumber(number), result_buf, buffer, buflen, result); __UCLIBC_MUTEX_UNLOCK(mylock); return ret; } int getrpcbyname_r(const char *name, struct rpcent *result_buf, char *buffer, size_t buflen, struct rpcent **result) { int ret; __UCLIBC_MUTEX_LOCK(mylock); ret = __copy_rpcent(getrpcbyname(name), result_buf, buffer, buflen, result); __UCLIBC_MUTEX_UNLOCK(mylock); return ret; } int getrpcent_r(struct rpcent *result_buf, char *buffer, size_t buflen, struct rpcent **result) { int ret; __UCLIBC_MUTEX_LOCK(mylock); ret = __copy_rpcent(getrpcent(), result_buf, buffer, buflen, result); __UCLIBC_MUTEX_UNLOCK(mylock); return ret; } #endif /* __UCLIBC_HAS_REENTRANT_RPC__ */