junk removal
[btb/d2x.git] / arch / linux_ipx_bsd.c
1 /* IPX driver using BSD style sockets */
2 /* Mostly taken from dosemu */
3 #include <conf.h>
4 #ifdef __ENV_LINUX__
5 #ifdef NETWORK
6
7 #include <stdio.h>
8 #include <sys/types.h>
9 #include <sys/socket.h>
10 #include <string.h>
11
12 #ifdef HAVE_NETIPX_IPX_H
13 #include <netipx/ipx.h>
14 #else
15 # include <linux/ipx.h>
16 # ifndef IPX_TYPE
17 #  define IPX_TYPE 1
18 # endif
19 #endif
20
21 #include <netinet/in.h>
22 #include <unistd.h>
23 #include <errno.h>
24
25 #include "pstypes.h"
26 #include "ipx_drv.h"
27 #include "ipx_bsd.h"
28
29 #ifndef DOSEMU
30 #include "mono.h"
31 #define n_printf(format, args...) mprintf((1, format, ## args))
32 #define enter_priv_on()
33 #define leave_priv_setting()
34 #endif
35
36 static int ipx_bsd_GetMyAddress( void )
37 {
38   int sock;
39   struct sockaddr_ipx ipxs;
40   struct sockaddr_ipx ipxs2;
41   int len;
42   int i;
43   
44   sock=socket(AF_IPX,SOCK_DGRAM,PF_IPX);
45   if(sock==-1)
46   {
47     n_printf("IPX: could not open socket in GetMyAddress\n");
48     return(-1);
49   }
50
51   /* bind this socket to network 0 */  
52   ipxs.sipx_family=AF_IPX;
53 #ifdef IPX_MANUAL_ADDRESS
54   memcpy(&ipxs.sipx_network, ipx_MyAddress, 4);
55 #else
56   ipxs.sipx_network=0;
57 #endif  
58   ipxs.sipx_port=0;
59   
60   if(bind(sock,(struct sockaddr *)&ipxs,sizeof(ipxs))==-1)
61   {
62     n_printf("IPX: could bind to network 0 in GetMyAddress\n");
63     close( sock );
64     return(-1);
65   }
66   
67   len = sizeof(ipxs2);
68   if (getsockname(sock,(struct sockaddr *)&ipxs2,&len) < 0) {
69     n_printf("IPX: could not get socket name in GetMyAddress\n");
70     close( sock );
71     return(-1);
72   }
73
74   memcpy(ipx_MyAddress, &ipxs2.sipx_network, 4);
75   for (i = 0; i < 6; i++) {
76     ipx_MyAddress[4+i] = ipxs2.sipx_node[i];
77   }
78   close( sock );
79   return(0);
80 }
81
82 static int ipx_bsd_OpenSocket(ipx_socket_t *sk, int port)
83 {
84   int sock;                     /* sock here means Linux socket handle */
85   int opt;
86   struct sockaddr_ipx ipxs;
87   int len;
88   struct sockaddr_ipx ipxs2;
89
90   /* DANG_FIXTHIS - kludge to support broken linux IPX stack */
91   /* need to convert dynamic socket open into a real socket number */
92 /*  if (port == 0) {
93     n_printf("IPX: using socket %x\n", nextDynamicSocket);
94     port = nextDynamicSocket++;
95   }
96 */
97   /* do a socket call, then bind to this port */
98   sock = socket(AF_IPX, SOCK_DGRAM, PF_IPX);
99   if (sock == -1) {
100     n_printf("IPX: could not open IPX socket.\n");
101     return -1;
102   }
103
104 #ifdef DOSEMU
105   opt = 1;
106   /* turn on socket debugging */
107   if (d.network) {
108     enter_priv_on();
109     if (setsockopt(sock, SOL_SOCKET, SO_DEBUG, &opt, sizeof(opt)) == -1) {
110       leave_priv_setting();
111       n_printf("IPX: could not set socket option for debugging.\n");
112       return -1;
113     }
114     leave_priv_setting();
115   }
116 #endif  
117   opt = 1;
118   /* Permit broadcast output */
119   enter_priv_on();
120   if (setsockopt(sock, SOL_SOCKET, SO_BROADCAST,
121                  &opt, sizeof(opt)) == -1) {
122     leave_priv_setting();
123     n_printf("IPX: could not set socket option for broadcast.\n");
124     return -1;
125   }
126 #ifdef DOSEMU
127   /* allow setting the type field in the IPX header */
128   opt = 1;
129 #if 0 /* this seems to be wrong: IPX_TYPE can only be set on level SOL_IPX */
130   if (setsockopt(sock, SOL_SOCKET, IPX_TYPE, &opt, sizeof(opt)) == -1) {
131 #else
132   /* the socket _is_ an IPX socket, hence it first passes ipx_setsockopt()
133    * in file linux/net/ipx/af_ipx.c. This one handles SOL_IPX itself and
134    * passes SOL_SOCKET-levels down to sock_setsockopt().
135    * Hence I guess the below is correct (can somebody please verify this?)
136    * -- Hans, June 14 1997
137    */
138   if (setsockopt(sock, SOL_IPX, IPX_TYPE, &opt, sizeof(opt)) == -1) {
139 #endif
140     leave_priv_setting();
141     n_printf("IPX: could not set socket option for type.\n");
142     return -1;
143   }
144 #endif  
145   ipxs.sipx_family = AF_IPX;
146   ipxs.sipx_network = *((unsigned int *)&ipx_MyAddress[0]);
147 /*  ipxs.sipx_network = htonl(MyNetwork); */
148   bzero(ipxs.sipx_node, 6);     /* Please fill in my node name */
149   ipxs.sipx_port = htons(port);
150
151   /* now bind to this port */
152   if (bind(sock, (struct sockaddr *) &ipxs, sizeof(ipxs)) == -1) {
153     n_printf("IPX: could not bind socket to address\n");
154     close( sock );
155     leave_priv_setting();
156     return -1;
157   }
158   
159   if( port==0 ) {
160     len = sizeof(ipxs2);
161     if (getsockname(sock,(struct sockaddr *)&ipxs2,&len) < 0) {
162       n_printf("IPX: could not get socket name in IPXOpenSocket\n");
163       close( sock );
164       leave_priv_setting();
165       return -1;
166     } else {
167       port = htons(ipxs2.sipx_port);
168       n_printf("IPX: opened dynamic socket %04x\n", port);
169     }
170   }
171   leave_priv_setting();
172   sk->fd = sock;
173   sk->socket = port;
174   return 0;
175 }
176
177 static void ipx_bsd_CloseSocket(ipx_socket_t *mysock) {
178   /* now close the file descriptor for the socket, and free it */
179   n_printf("IPX: closing file descriptor on socket %x\n", mysock->socket);
180   close(mysock->fd);
181 }
182
183 static int ipx_bsd_SendPacket(ipx_socket_t *mysock, IPXPacket_t *IPXHeader,
184  u_char *data, int dataLen) {
185   struct sockaddr_ipx ipxs;
186  
187   ipxs.sipx_family = AF_IPX;
188   /* get destination address from IPX packet header */
189   memcpy(&ipxs.sipx_network, IPXHeader->Destination.Network, 4);
190   /* if destination address is 0, then send to my net */
191   if (ipxs.sipx_network == 0) {
192     ipxs.sipx_network = *((unsigned int *)&ipx_MyAddress[0]);
193 /*  ipxs.sipx_network = htonl(MyNetwork); */
194   }
195   memcpy(&ipxs.sipx_node, IPXHeader->Destination.Node, 6);
196   memcpy(&ipxs.sipx_port, IPXHeader->Destination.Socket, 2);
197   ipxs.sipx_type = IPXHeader->PacketType;
198   /*    ipxs.sipx_port=htons(0x452); */
199   return sendto(mysock->fd, data, dataLen, 0,
200              (struct sockaddr *) &ipxs, sizeof(ipxs));
201 }
202
203 static int ipx_bsd_ReceivePacket(ipx_socket_t *s, char *buffer, int bufsize, 
204  struct ipx_recv_data *rd) {
205         int sz, size;
206         struct sockaddr_ipx ipxs;
207  
208         sz = sizeof(ipxs);
209         if ((size = recvfrom(s->fd, buffer, bufsize, 0,
210              (struct sockaddr *) &ipxs, &sz)) <= 0)
211              return size;
212         memcpy(rd->src_network, &ipxs.sipx_network, 4);
213         memcpy(rd->src_node, ipxs.sipx_node, 6);
214         rd->src_socket = ipxs.sipx_port;
215         rd->dst_socket = s->socket;
216         rd->pkt_type = ipxs.sipx_type;
217   
218         return size;
219 }
220
221 struct ipx_driver ipx_bsd = {
222         ipx_bsd_GetMyAddress,
223         ipx_bsd_OpenSocket,
224         ipx_bsd_CloseSocket,
225         ipx_bsd_SendPacket,
226         ipx_bsd_ReceivePacket,
227         ipx_general_PacketReady
228 };
229 #endif // NETWORK
230 #endif // __ENV_LINUX__