<* M2EXTENSIONS + *> DEFINITION MODULE ["SysCall"] Internet; (********************************************************) (* *) (* Definitions related to Internet sockets. *) (* This module is imported by the Sockets module. *) (* *) (* Constants and structures defined by the internet *) (* system, Per RFC 790, September 1981. *) (* *) (* Programmer: P. Moylan *) (* Started: 18 August 1997 *) (* Last edited: 3 December 1998 *) (* Status: Just started *) (* *) (* This doesn't do much yet, it's just a *) (* test whether I can talk properly to the API *) (* *) (********************************************************) (********************************************************************************) (* This module is derived in part from the in.h file that comes with OS/2 *) (* Warp 4, and that file carries the following copyright notice: *) (* *) (* Copyright (c) 1982, 1985, 1986 Regents of the University of California. *) (* All rights reserved. *) (* *) (* Redistribution and use in source and binary forms are permitted *) (* provided that this notice is preserved and that due credit is given *) (* to the University of California at 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'' without express or implied warranty. *) (* *) (* @(#)in.h 7.5 (Berkeley) 2/22/88 *) (* *) (********************************************************************************) FROM SYSTEM IMPORT CARD8, CARD16, CARD32; TYPE EightByte = ARRAY [0..7] OF CARD8; CONST Zero8 = EightByte {0, 0, 0, 0, 0, 0, 0, 0}; CONST INADDR_ANY = 0; TYPE (* In an internet socket address record, the port and addr fields must *) (* always be in network byte order - most significant byte first. *) InternetSocketAddress = RECORD port: CARD16; addr: CARD32; zero: EightByte; (* Must be zero *) END (*RECORD*); (* Remark: for a "bind" call, you can set the port to zero if you don't *) (* care which port you get - the system then assigns you a free port. *) (********************************************************************************) PROCEDURE ["SysCall"] inet_addr (value: ARRAY OF CHAR): CARD32; (* Translates an IP address from the dotted notation (e.g. "123.45.6.78") *) (* to 32-bit binary in Internet byte order (MSB first). *) END Internet. (************************************************************************) (* THE FOLLOWING HAS NOT YET BEEN TRANSLATED *) (************************************************************************) /* * Protocols */ #define IPPROTO_IP 0 /* dummy for IP */ #define IPPROTO_ICMP 1 /* control message protocol */ #define IPPROTO_IGMP 2 /* group management protocol*/ #define IPPROTO_GGP 3 /* gateway^2 (deprecated) */ #define IPPROTO_TCP 6 /* tcp */ #define IPPROTO_EGP 8 /* exterior gateway protocol */ #define IPPROTO_PUP 12 /* pup */ #define IPPROTO_UDP 17 /* user datagram protocol */ #define IPPROTO_IDP 22 /* xns idp */ #define IPPROTO_RAW 255 /* raw IP packet */ #define IPPROTO_MAX 256 /* * Ports < IPPORT_RESERVED are reserved for * privileged processes (e.g. root). * Ports > IPPORT_USERRESERVED are reserved * for servers, not necessarily privileged. */ #define IPPORT_RESERVED 1024 #define IPPORT_USERRESERVED 5000 /* * Link numbers */ #define IMPLINK_IP 155 #define IMPLINK_LOWEXPER 156 #define IMPLINK_HIGHEXPER 158 /* * Definitions of bits in internet address integers. * On subnets, the decomposition of addresses to host and net parts * is done according to subnet mask, not the masks here. */ #define IN_CLASSA(i) (((long)(i) & 0x80000000L) == 0) #define IN_CLASSA_NET 0xff000000L #define IN_CLASSA_NSHIFT 24 #define IN_CLASSA_HOST 0x00ffffffL #define IN_CLASSA_MAX 128 #define IN_CLASSB(i) (((long)(i) & 0xc0000000L) == 0x80000000L) #define IN_CLASSB_NET 0xffff0000L #define IN_CLASSB_NSHIFT 16 #define IN_CLASSB_HOST 0x0000ffffL #define IN_CLASSB_MAX 65536L #define IN_CLASSC(i) (((long)(i) & 0xe0000000L) == 0xc0000000L) #define IN_CLASSC_NET 0xffffff00L #define IN_CLASSC_NSHIFT 8 #define IN_CLASSC_HOST 0x000000ffL #define IN_CLASSD(i) (((long)(i) & 0xf0000000L) == 0xe0000000L) #define IN_CLASSD_NET 0xffffffffL #define IN_CLASSD_HOST 0x00000000L #define IN_MULTICAST(i) IN_CLASSD(i) #define IN_EXPERIMENTAL(i) (((long)(i) & 0xe0000000L) == 0xe0000000L) #define IN_BADCLASS(i) (((long)(i) & 0xf0000000L) == 0xf0000000L) #define INADDR_BROADCAST (unsigned long)0xffffffffL /* must be masked */ #define INADDR_UNSPEC_GROUP (unsigned long )0xe0000000 /* 224.0.0.0 */ #define INADDR_ALLHOSTS_GROUP (unsigned long)0xe0000001 /* 224.0.0.1 */ #define INADDR_MAX_LOCAL_GROUP (unsigned long)0xe00000ff /* 224.0.0.255 */ #ifndef KERNEL #define INADDR_NONE 0xffffffffL /* -1 return */ #endif #define IN_LOOPBACKNET 127 /* official! */ /* * Options for use with [gs]etsockopt at the IP level. */ #define IP_OPTIONS 1 /* set/get IP per-packet options */ #define IP_MULTICAST_IF 2 /* set/get IP multicast interface*/ #define IP_MULTICAST_TTL 3 /* set/get IP multicast timetolive*/ #define IP_MULTICAST_LOOP 4 /* set/get IP multicast loopback */ #define IP_ADD_MEMBERSHIP 5 /* add an IP group membership */ #define IP_DROP_MEMBERSHIP 6 /* drop an IP group membership */ #define IP_DEFAULT_MULTICAST_TTL 1 /* normally limit m'casts to 1 hop */ #define IP_DEFAULT_MULTICAST_LOOP 1 /* normally hear sends if a member */ #define IP_MAX_MEMBERSHIPS 20 /* per socket; must fit in one mbuf*/ /* * Argument structure for IP_ADD_MEMBERSHIP and IP_DROP_MEMBERSHIP. */ struct ip_mreq { struct in_addr imr_multiaddr; /* IP multicast address of group */ struct in_addr imr_interface; /* local IP address of interface */ }; struct in_addr _System inet_makeaddr(unsigned long, unsigned long); unsigned long _System inet_network(char *); char * _System inet_ntoa(struct in_addr); unsigned long _System inet_lnaof(struct in_addr); unsigned long _System inet_netof(struct in_addr);