/* * Copyright (c) 1983 Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that the above copyright notice and this paragraph are * duplicated in all such forms and that any documentation, * advertising materials, and other materials related to such * distribution and use acknowledge that the software was developed * by the University of California, Berkeley. The name of the * University may not be used to endorse or promote products derived * from this software without specific prior written permission. * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ #define __FORCE_GLIBC #include <features.h> #include <stdio.h> #include <stdlib.h> #include <malloc.h> #include <netdb.h> #include <arpa/inet.h> libc_hidden_proto(fopen) libc_hidden_proto(fclose) libc_hidden_proto(inet_network) libc_hidden_proto(rewind) libc_hidden_proto(fgets) libc_hidden_proto(abort) libc_hidden_proto(__uc_malloc) #include <bits/uClibc_mutex.h> __UCLIBC_MUTEX_STATIC(mylock, PTHREAD_MUTEX_INITIALIZER); static const char NETDB[] = _PATH_NETWORKS; static FILE *netf = NULL; int _net_stayopen attribute_hidden; libc_hidden_proto(setnetent) void setnetent(int f) { __UCLIBC_MUTEX_LOCK(mylock); if (netf == NULL) netf = fopen(NETDB, "r" ); else rewind(netf); _net_stayopen |= f; __UCLIBC_MUTEX_UNLOCK(mylock); return; } libc_hidden_def(setnetent) libc_hidden_proto(endnetent) void endnetent(void) { __UCLIBC_MUTEX_LOCK(mylock); if (netf) { fclose(netf); netf = NULL; } _net_stayopen = 0; __UCLIBC_MUTEX_UNLOCK(mylock); } libc_hidden_def(endnetent) static char * any(register char *cp, char *match) { register char *mp, c; while ((c = *cp)) { for (mp = match; *mp; mp++) if (*mp == c) return (cp); cp++; } return ((char *)0); } #define MAXALIASES 35 static struct { char *line; struct netent net; char *net_aliases[MAXALIASES]; } *sp; #define line (sp->line) #define net (sp->net) #define net_aliases (sp->net_aliases) #define INIT_SP() { \ if (!sp) { \ sp = __uc_malloc(sizeof(*sp)); \ line = NULL; \ } \ } libc_hidden_proto(getnetent) struct netent *getnetent(void) { char *p; register char *cp, **q; struct netent *rv = NULL; INIT_SP(); __UCLIBC_MUTEX_LOCK(mylock); if (netf == NULL && (netf = fopen(NETDB, "r" )) == NULL) { goto DONE; } again: if (!line) { line = __uc_malloc(BUFSIZ + 1); } p = fgets(line, BUFSIZ, netf); if (p == NULL) { goto DONE; } if (*p == '#') goto again; cp = any(p, "#\n"); if (cp == NULL) goto again; *cp = '\0'; net.n_name = p; cp = any(p, " \t"); if (cp == NULL) goto again; *cp++ = '\0'; while (*cp == ' ' || *cp == '\t') cp++; p = any(cp, " \t"); if (p != NULL) *p++ = '\0'; net.n_net = inet_network(cp); net.n_addrtype = AF_INET; q = net.n_aliases = net_aliases; if (p != NULL) cp = p; while (cp && *cp) { if (*cp == ' ' || *cp == '\t') { cp++; continue; } if (q < &net_aliases[MAXALIASES - 1]) *q++ = cp; cp = any(cp, " \t"); if (cp != NULL) *cp++ = '\0'; } *q = NULL; rv = &net; DONE: __UCLIBC_MUTEX_UNLOCK(mylock); return rv; } libc_hidden_def(getnetent)