summaryrefslogtreecommitdiffstats
path: root/Mac/GUSI-mods/into-src/GUSINetDB.cp
diff options
context:
space:
mode:
Diffstat (limited to 'Mac/GUSI-mods/into-src/GUSINetDB.cp')
-rw-r--r--Mac/GUSI-mods/into-src/GUSINetDB.cp579
1 files changed, 0 insertions, 579 deletions
diff --git a/Mac/GUSI-mods/into-src/GUSINetDB.cp b/Mac/GUSI-mods/into-src/GUSINetDB.cp
deleted file mode 100644
index bc435b6..0000000
--- a/Mac/GUSI-mods/into-src/GUSINetDB.cp
+++ /dev/null
@@ -1,579 +0,0 @@
-/*********************************************************************
-Project : GUSI - Grand Unified Socket Interface
-File : GUSINetDB.cp - Convert internet names to adresses
-Author : Matthias Neeracher
-
- This file was derived from the socket library by
-
- Charlie Reiman <creiman@ncsa.uiuc.edu> and
- Tom Milligan <milligan@madhaus.utcs.utoronto.ca>
-
-Language : MPW C++
-
-$Log$
-Revision 1.1 1998/08/18 14:52:38 jack
-Putting Python-specific GUSI modifications under CVS.
-
-Revision 1.3 1994/08/10 00:07:30 neeri
-Sanitized for universal headers.
-
-Revision 1.2 1994/05/01 23:43:31 neeri
-getservbyname() without /etc/services would fail.
-
-Revision 1.1 1994/02/25 02:29:36 neeri
-Initial revision
-
-Revision 0.5 1993/10/31 00:00:00 neeri
-Deferred opening of resolver
-
-Revision 0.4 1993/07/29 00:00:00 neeri
-Real getservent code (adapted from Sak Wathanasin)
-
-Revision 0.3 1993/01/19 00:00:00 neeri
-Can't set aliases to NULL.
-
-Revision 0.2 1992/11/21 00:00:00 neeri
-Remove force_active
-
-Revision 0.1 1992/09/14 00:00:00 neeri
-Maybe it works, maybe it doesn't
-
-*********************************************************************/
-
-#include "GUSIINET_P.h"
-
-#include "TFileSpec.h"
-#include "Folders.h"
-#include "PLStringFuncs.h"
-
-#ifdef __MWERKS__
-//
-// I disapprove of the way dnr.c is written
-// This disapproval gets stronger with every version
-//
-#include "dnr.c"
-#pragma require_prototypes reset
-#pragma cplusplus reset
-#endif
-
-#if GENERATING68K
-#pragma segment GUSIINET
-#endif
-
-static pascal void DNRDone(struct hostInfo *, Boolean * done)
-{
- *done = true;
-}
-
-#if GENERATINGCFM
-RoutineDescriptor uDNRDone =
- BUILD_ROUTINE_DESCRIPTOR(uppResultProcInfo, DNRDone);
-#else
-#define uDNRDone DNRDone
-#endif
-
-int h_errno;
-
-/*
- * Gethostbyname and gethostbyaddr each return a pointer to an
- * object with the following structure describing an Internet
- * host referenced by name or by address, respectively. This
- * structure contains the information obtained from the MacTCP
- * name server.
- *
- * struct hostent
- * {
- * char *h_name;
- * char **h_aliases;
- * int h_addrtype;
- * int h_length;
- * char **h_addr_list;
- * };
- * #define h_addr h_addr_list[0]
- *
- * The members of this structure are:
- *
- * h_name Official name of the host.
- *
- * h_aliases A zero terminated array of alternate names for the host.
- *
- * h_addrtype The type of address being returned; always AF_INET.
- *
- * h_length The length, in bytes, of the address.
- *
- * h_addr_list A zero terminated array of network addresses for the host.
- *
- * Error return status from gethostbyname and gethostbyaddr is
- * indicated by return of a null pointer. The external integer
- * h_errno may then be checked to see whether this is a
- * temporary failure or an invalid or unknown host. The
- * routine herror can be used to print an error message
- * describing the failure. If its argument string is non-NULL,
- * it is printed, followed by a colon and a space. The error
- * message is printed with a trailing newline.
- *
- * h_errno can have the following values:
- *
- * HOST_NOT_FOUND No such host is known.
- *
- * TRY_AGAIN This is usually a temporary error and
- * means that the local server did not
- * receive a response from an authoritative
- * server. A retry at some later time may
- * succeed.
- *
- * NO_RECOVERY Some unexpected server failure was encountered.
- * This is a non-recoverable error.
- *
- * NO_DATA The requested name is valid but does not
- * have an IP address; this is not a
- * temporary error. This means that the name
- * is known to the name server but there is
- * no address associated with this name.
- * Another type of request to the name server
- * using this domain name will result in an
- * answer; for example, a mail-forwarder may
- * be registered for this domain.
- * (NOT GENERATED BY THIS IMPLEMENTATION)
- */
-
-static struct hostInfo macHost;
-
-#define MAXALIASES 0
-static char *aliasPtrs[MAXALIASES+1] = {NULL};
-static ip_addr *addrPtrs[NUM_ALT_ADDRS+1];
-
-static struct hostent unixHost =
-{
- macHost.cname,
- aliasPtrs,
- AF_INET,
- sizeof(ip_addr),
- (char **) addrPtrs
-};
-
-inline struct in_addr make_in_addr(ip_addr addr)
-{
- struct in_addr res;
-
- res.s_addr = addr;
-
- return res;
-}
-
-struct hostent * gethostbyname(char *name)
-{
- Boolean done;
- int i;
-
- if (!strcmp(name, "localhost")) {
- in_addr ipaddr;
-
- ipaddr = make_in_addr(ip_addr(gethostid()));
-
- if (ipaddr.s_addr)
- return gethostbyaddr((char *) &ipaddr, sizeof(in_addr), AF_INET);
-
- h_errno = HOST_NOT_FOUND;
-
- return NULL;
- }
-
- if (INETSockets.Resolver()) {
- h_errno = NO_RECOVERY;
- return NULL;
- }
-
- for (i=0; i<NUM_ALT_ADDRS; i++)
- macHost.addr[i] = 0;
-
- done = false;
-
- if (StrToAddr(name, &macHost, ResultUPP(&uDNRDone), (char *) &done) == cacheFault)
- SPINP(!done,SP_NAME,0L);
-
- switch (macHost.rtnCode) {
- case noErr: break;
-
- case nameSyntaxErr: h_errno = HOST_NOT_FOUND; return(NULL);
- case cacheFault: h_errno = NO_RECOVERY; return(NULL);
- case noResultProc: h_errno = NO_RECOVERY; return(NULL);
- case noNameServer: h_errno = HOST_NOT_FOUND; return(NULL);
- case authNameErr: h_errno = HOST_NOT_FOUND; return(NULL);
- case noAnsErr: h_errno = TRY_AGAIN; return(NULL);
- case dnrErr: h_errno = NO_RECOVERY; return(NULL);
- case outOfMemory: h_errno = TRY_AGAIN; return(NULL);
- default: h_errno = NO_RECOVERY; return(NULL);
- }
-
- /* was the 'name' an IP address? */
- if (macHost.cname[0] == 0) {
- h_errno = HOST_NOT_FOUND;
- return(NULL);
- }
-
- /* for some reason there is a dot at the end of the name */
- i = int(strlen(macHost.cname)) - 1;
- if (macHost.cname[i] == '.')
- macHost.cname[i] = 0;
-
- for (i=0; i<NUM_ALT_ADDRS && macHost.addr[i]!=0; i++)
- addrPtrs[i] = (ip_addr *) &macHost.addr[i];
-
- addrPtrs[i] = NULL;
-
- return &unixHost;
-}
-
-struct hostent * gethostbyaddr(const char *addrP, int, int)
-{
- Boolean done;
- int i;
-
- if (INETSockets.Resolver()) {
- h_errno = NO_RECOVERY;
- return NULL;
- }
-
- for (i=0; i<NUM_ALT_ADDRS; i++)
- macHost.addr[i] = 0;
-
- done = false;
-
- ip_addr addr = FIX_LOOPBACK(*(ip_addr *)addrP);
-
- if (AddrToName(addr, &macHost, ResultUPP(&uDNRDone), (char *) &done) == cacheFault)
- SPINP(!done,SP_ADDR,0L);
-
- switch (macHost.rtnCode) {
- case noErr: break;
-
- case cacheFault: h_errno = NO_RECOVERY; return(NULL);
- case noNameServer: h_errno = HOST_NOT_FOUND; return(NULL);
- case authNameErr: h_errno = HOST_NOT_FOUND; return(NULL);
- case noAnsErr: h_errno = TRY_AGAIN; return(NULL);
- case dnrErr: h_errno = NO_RECOVERY; return(NULL);
- case outOfMemory: h_errno = TRY_AGAIN; return(NULL);
- default: h_errno = NO_RECOVERY; return(NULL);
- }
-
- /* for some reason there is a dot at the end of the name */
- i = int(strlen(macHost.cname)) - 1;
- if (macHost.cname[i] == '.')
- macHost.cname[i] = 0;
-
- /* For some reason, the IP address usually seems to be set to 0 */
- if (!macHost.addr[0])
- macHost.addr[0] = addr;
-
- for (i=0; i<NUM_ALT_ADDRS; i++)
- addrPtrs[i] = (ip_addr *) &macHost.addr[i];
-
- addrPtrs[NUM_ALT_ADDRS] = NULL;
-
- return &unixHost;
-}
-
-char * inet_ntoa(struct in_addr inaddr)
-{
- if (INETSockets.Resolver()) {
- h_errno = NO_RECOVERY;
- return NULL;
- }
-
- (void) AddrToStr(inaddr.s_addr, macHost.cname);
-
- return macHost.cname;
-}
-
-struct in_addr inet_addr(char *address)
-{
- if (INETSockets.Resolver()) {
- h_errno = NO_RECOVERY;
- return make_in_addr(0xFFFFFFFF);
- }
-
- if (StrToAddr(address,&macHost,NULL,NULL) != noErr)
- return make_in_addr(0xFFFFFFFF);
-
- /* was the 'address' really a name? */
- if (macHost.cname[0] != 0)
- return make_in_addr(0xFFFFFFFF);
-
- return make_in_addr(macHost.addr[0]);
-}
-
-/*
- * gethostid()
- *
- * Get internet address of current host
- */
-
-long gethostid()
-{
- static long sHostID = 0;
- if (sHostID)
- return sHostID;
-
- struct GetAddrParamBlock pbr;
-
- pbr.ioCRefNum = INETSockets.Driver();
- pbr.csCode = ipctlGetAddr;
-
- if (PBControlSync(ParmBlkPtr(&pbr)))
- return 0;
- else
- return sHostID = (long)pbr.ourAddress;
-}
-
-/*
- * gethostname()
- *
- * Try to get my host name from DNR. If it fails, just return my
- * IP address as ASCII. This is non-standard, but it's a mac,
- * what do you want me to do?
- */
-
-int gethostname(char *machname, int buflen)
-{
- static char * sHostName = nil;
-
- if (!sHostName) {
- in_addr ipaddr;
- struct hostent *hp;
-
- ipaddr = make_in_addr(ip_addr(gethostid()));
-
- if (!ipaddr.s_addr) // TCP/IP not up at all
- return GUSI_error(ENETDOWN);
-
- hp = gethostbyaddr((char *) &ipaddr, sizeof(in_addr), AF_INET);
-
- if (!hp) {
- // No good name
- if (buflen < 16) // Not enough space
- return GUSI_error(EINVAL);
- sprintf(machname, "%d.%d.%d.%d",
- ipaddr.s_addr>>24,
- ipaddr.s_addr>>16 & 0xff,
- ipaddr.s_addr>>8 & 0xff,
- ipaddr.s_addr & 0xff);
- return 0;
- } else {
- // We only cache satisfactory replies in sHostName
- sHostName = new char[strlen(hp->h_name)+1];
- strcpy(sHostName, hp->h_name);
- }
- }
- strncpy(machname, sHostName, unsigned(buflen));
- machname[buflen-1] = 0; /* extra safeguard */
-
- return 0;
-}
-
-
-/*
- * getservbybname()
- *
- */
-
-static char * servlist[] =
-{
- "echo 7/udp",
- "discard 9/udp",
- "time 37/udp",
- "domain 53/udp",
- "sunrpc 111/udp",
- "tftp 69/udp",
- "biff 512/udp",
- "who 513/udp",
- "talk 517/udp",
- "ftp-data 20/tcp",
- "ftp 21/tcp",
- "telnet 23/tcp",
- "smtp 25/tcp",
- "time 37/tcp",
- "whois 43/tcp",
- "domain 53/tcp",
- "hostnames 101/tcp",
- "nntp 119/tcp",
- "finger 79/tcp",
- "ntp 123/tcp",
- "uucp 540/tcp",
- NULL
-};
-
-static char servline[128];
-static struct servent serv;
-static FILE * servfil;
-static int servptr;
-static char * servalias[8];
-static int servstay = 0;
-
-void setservent(int stayopen)
-{
- if (servfil && servfil != (FILE *) -1) {
- rewind(servfil);
- }
- servptr = 0;
- servstay = servstay || stayopen;
-}
-
-void endservent()
-{
- if (servfil && servfil != (FILE *) -1) {
- fclose(servfil);
- servfil = NULL;
- }
-
- servstay = 0;
-}
-
-struct servent * getservent()
-{
- char * p;
- int aliascount;
-
- if (!servfil) {
- TFileSpec serv;
-
- if (!FindFolder(
- kOnSystemDisk,
- kPreferencesFolderType,
- kDontCreateFolder,
- &serv.vRefNum,
- &serv.parID)
- ) {
- PLstrcpy(serv.name, (StringPtr) "\p/etc/services");
-
- if (servfil = fopen(serv.FullPath(), "r"))
- goto retry;
- }
- servfil = (FILE *) -1;
- servptr = 0;
- }
-
-retry:
- if (servfil == (FILE *) -1)
- if (!servlist[servptr])
- return (struct servent *) NULL;
- else
- strcpy(servline, servlist[servptr++]);
- else if (!(fgets(servline, 128, servfil)))
- return (struct servent *) NULL;
-
- if (p = strpbrk(servline, "#\n\r"))
- *p = 0;
- if (!servline[0])
- goto retry;
-
- if (!(serv.s_name = strtok(servline, " \t")))
- goto retry;
-
- if (!(p = strtok(NULL, " \t")))
- goto retry;
-
- if (!(serv.s_proto = strpbrk(p, "/,")))
- goto retry;
-
- *serv.s_proto++ = 0;
- serv.s_port = htons(atoi(p));
- serv.s_aliases = servalias;
-
- for (aliascount = 0; aliascount < 7; )
- if (!(servalias[aliascount++] = strtok(NULL, " \t")))
- break;
-
- servalias[aliascount] = NULL;
-
- return &serv;
-}
-
-struct servent * getservbyname(const char * name, const char * proto)
-{
- struct servent * ent;
- char ** al;
- setservent(0);
-
- while (ent = getservent()) {
- if (!strcmp(name, ent->s_name))
- goto haveName;
-
- for (al = ent->s_aliases; *al; ++al)
- if (!strcmp(name, *al))
- goto haveName;
-
- continue;
-haveName:
- if (!proto || !strcmp(proto, ent->s_proto))
- break;
- }
-
- if (!servstay)
- endservent();
-
- return ent;
-}
-
-struct servent * getservbyport(int port, const char * proto)
-{
- struct servent * ent;
-
- setservent(0);
-
- while (ent = getservent())
- if (port == ent->s_port && (!proto || !strcmp(proto, ent->s_proto)))
- break;
-
- if (!servstay)
- endservent();
-
- return ent;
-}
-
-static char tcp[] = "tcp";
-static char udp[] = "udp";
-#define MAX_PROTOENT 10
-static struct protoent protoents[MAX_PROTOENT];
-static int protoent_count=0;
-
-struct protoent * getprotobyname(const char * name)
-{
- struct protoent *pe;
-
- pe = &protoents[protoent_count];
- if (strcmp(name, "udp") == 0) {
- pe->p_name = udp;
- pe->p_proto = IPPROTO_UDP;
- } else if (strcmp (name, "tcp") == 0) {
- pe->p_name = tcp;
- pe->p_proto = IPPROTO_TCP;
- } else {
- errno = EPROTONOSUPPORT;
- return NULL;
- }
- pe->p_aliases = aliasPtrs;
- protoent_count = (protoent_count +1) % MAX_PROTOENT;
- return pe;
-}
-
-struct protoent * getprotobynumber(int proto)
-{
- struct protoent *pe;
-
- pe = &protoents[protoent_count];
- if (proto == IPPROTO_UDP) {
- pe->p_name = udp;
- pe->p_proto = IPPROTO_UDP;
- } else if (proto == IPPROTO_TCP) {
- pe->p_name = tcp;
- pe->p_proto = IPPROTO_TCP;
- } else {
- errno = EPROTONOSUPPORT;
- return NULL;
- }
- pe->p_aliases = aliasPtrs;
- protoent_count = (protoent_count +1) % MAX_PROTOENT;
- return pe;
-}
-
generated by cgit v0.12 at 2025-01-11 20:46:00 (GMT)