WebSVN – SvarDOS – Diff – /pkgnet/trunk/net.c


/*
 * This file is part of the pkgnet package - the SvarDOS package manager.
 * Copyright (C) Mateusz Viste 2013-2022
 *
 * Provides all network functions used by pkgnet, wrapped around the
 * Watt-32 TCP/IP stack.
 */
 
#include <stdlib.h>
 
/* Watt32 */
#include <tcp.h>
 
#include "net.h" /* include self for control */
 
 
/* if there is enough memory, net_connect() will try setting up a tcp window
 * larger than the WATT32's default of only 2K
 * on my system's DOSEMU install the relation between tcp buffer and download
 * speed were measured as follows (this is on a 4 Mbps ADSL link):
 *  2K = 20 KiB/s
 *  4K = 51 KiB/s
 *  8K = 67 KiB/s
 *  9K = 98 KiB/s
 * 10K = 98 KiB/s
 * 16K = 96 KiB/s
 * 32K = 98 KiB/s
 * 60K = 98 KiB/s
 */
 
struct net_tcpsocket {
 
  tcp_Socket sock; /* watt32 socket */
  char tcpbuff[1];
};
 
 
int net_dnsresolve(char *ip, const char *name, int retries) {
  unsigned long ipnum;
  do {
    ipnum = resolve(name); /* I could use WatTCP's lookup_host() to do all the
                              job for me, unfortunately lookup_host() issues
                              wild outs() calls putting garbage on screen... */
  } while ((ipnum == 0) && (retries-- > 0));
  if (ipnum == 0) return(-1);
  _inet_ntoa(ip, ipnum); /* convert to string */
  return(0);
}
 
 
static int dummy_printf(const char * format, ...) {
  if (format == NULL) return(-1);
  return(0);
}
 
 
/* must be called before using libtcp. returns 0 on success, or non-zero if network subsystem is not available. */
int net_init(void) {
  tzset();
  _printf = dummy_printf;  /* this is to avoid watt32 printing its stuff to console */
  return(sock_init());
}
 
 
struct net_tcpsocket *net_connect(const char *ipstr, unsigned short port, unsigned short buffsz) {
  struct net_tcpsocket *resultsock;
  unsigned long ipaddr;
 
  /* convert ip to value */
  ipaddr = _inet_addr(ipstr);
  if (ipaddr == 0) return(NULL);
 
  /* ignore buffsz smaller than 2K (wattcp already has a 2K buffer) */
  if (buffsz <= 2048) buffsz = 0;
 
  resultsock = calloc(sizeof(struct net_tcpsocket) + buffsz, 1);
  if (resultsock == NULL) return(NULL);
 
 
  if (!tcp_open(&(resultsock->sock), 0, ipaddr, port, NULL)) {
    sock_abort(&(resultsock->sock));
    free(resultsock);
    return(NULL);
  }
 
  /* set user-managed buffer if requested (watt32's default is only 2K)
   * this must be set AFTER tcp_open(), since the latter rewrites the tcp
   * rx buffer */
  if (buffsz > 0) sock_setbuf(&(resultsock->sock), resultsock->tcpbuff, buffsz);
 
  return(resultsock);
}
 
 
int net_isconnected(struct net_tcpsocket *s) {
  if (tcp_tick(&(s->sock)) == 0) return(-1);
  if (sock_established(&(s->sock)) == 0) return(0);
  return(1);
}
 
 
/* Sends data on socket 'socket'.
   Returns the number of bytes sent on success, and < 0 otherwise */
int net_send(struct net_tcpsocket *socket, const void *line, long len) {
  /* call this to let Watt-32 handle its internal stuff */
  if (tcp_tick(&(socket->sock)) == 0) return(-1);
  /* send bytes */
  return(sock_write(&(socket->sock), line, len));
}
 
 
/* Reads data from socket 'sock' and write it into buffer 'buff', until end of connection. Will fall into error if the amount of data is bigger than 'maxlen' bytes.
Returns the amount of data read (in bytes) on success, or a negative value otherwise. The error code can be translated into a human error message via libtcp_strerr(). */
int net_recv(struct net_tcpsocket *socket, void *buff, long maxlen) {
  /* call this to let WatTCP handle its internal stuff */
  if (tcp_tick(&(socket->sock)) == 0) return(-1);
  return(sock_fastread(&(socket->sock), buff, maxlen));
}
 
 
/* Close the 'sock' socket. */
void net_close(struct net_tcpsocket *socket) {
  /* I could use sock_close() and sock_wait_closed() if I'd want to be
   * friendly, but it's much easier on the tcp stack to send a single RST and
   * forget about the connection (esp. if the peer is misbehaving) */
  sock_abort(&(socket->sock));
  free(socket);
}
 
 
const char *net_engine(void) {
  return(wattcpVersion());
}
 

Rev 1132	Rev 1133
1	`/*`	1	`/*`
2	`* This file is part of the pkgnet package - the SvarDOS package manager.`	2	`* This file is part of the pkgnet package - the SvarDOS package manager.`
3	`* Copyright (C) Mateusz Viste 2013-2021`	3	`* Copyright (C) Mateusz Viste 2013-2022`
4	`*`	4	`*`
5	`* Provides all network functions used by pkgnet, wrapped around the`	5	`* Provides all network functions used by pkgnet, wrapped around the`
6	`* Watt-32 TCP/IP stack.`	6	`* Watt-32 TCP/IP stack.`
7	`*/`	7	`*/`
8		8
9	`#include <stdlib.h>`	9	`#include <stdlib.h>`
10		10
11	`/* Watt32 */`	11	`/* Watt32 */`
12	`#include <tcp.h>`	12	`#include <tcp.h>`
13		13
14	`#include "net.h" /* include self for control */`	14	`#include "net.h" /* include self for control */`
15		15
16		16
17	`/* if there is enough memory, net_connect() will try setting up a tcp window`	17	`/* if there is enough memory, net_connect() will try setting up a tcp window`
18	`* larger than the WATT32's default of only 2K`	18	`* larger than the WATT32's default of only 2K`
19	`* on my system's DOSEMU install the relation between tcp buffer and download`	19	`* on my system's DOSEMU install the relation between tcp buffer and download`
20	`* speed were measured as follows (this is on a 4 Mbps ADSL link):`	20	`* speed were measured as follows (this is on a 4 Mbps ADSL link):`
21	`* 2K = 20 KiB/s`	21	`* 2K = 20 KiB/s`
22	`* 4K = 51 KiB/s`	22	`* 4K = 51 KiB/s`
23	`* 8K = 67 KiB/s`	23	`* 8K = 67 KiB/s`
24	`* 9K = 98 KiB/s`	24	`* 9K = 98 KiB/s`
25	`* 10K = 98 KiB/s`	25	`* 10K = 98 KiB/s`
26	`* 16K = 96 KiB/s`	26	`* 16K = 96 KiB/s`
27	`* 32K = 98 KiB/s`	27	`* 32K = 98 KiB/s`
28	`* 60K = 98 KiB/s`	28	`* 60K = 98 KiB/s`
29	`*/`	29	`*/`
30		30
31	`struct net_tcpsocket {`	31	`struct net_tcpsocket {`
32	`tcp_Socket *sock;`	-
33	`tcp_Socket _sock; /* watt32 socket */`	32	`tcp_Socket sock; /* watt32 socket */`
34	`char tcpbuff[1];`	33	`char tcpbuff[1];`
35	`};`	34	`};`
36		35
37		36
38	`int net_dnsresolve(char ip, const char name, int retries) {`	37	`int net_dnsresolve(char ip, const char name, int retries) {`
39	`unsigned long ipnum;`	38	`unsigned long ipnum;`
40	`do {`	39	`do {`
41	`ipnum = resolve(name); /* I could use WatTCP's lookup_host() to do all the`	40	`ipnum = resolve(name); /* I could use WatTCP's lookup_host() to do all the`
42	`job for me, unfortunately lookup_host() issues`	41	`job for me, unfortunately lookup_host() issues`
43	`wild outs() calls putting garbage on screen... */`	42	`wild outs() calls putting garbage on screen... */`
44	`} while ((ipnum == 0) && (retries-- > 0));`	43	`} while ((ipnum == 0) && (retries-- > 0));`
45	`if (ipnum == 0) return(-1);`	44	`if (ipnum == 0) return(-1);`
46	`_inet_ntoa(ip, ipnum); /* convert to string */`	45	`_inet_ntoa(ip, ipnum); /* convert to string */`
47	`return(0);`	46	`return(0);`
48	`}`	47	`}`
49		48
50		49
51	`static int dummy_printf(const char * format, ...) {`	50	`static int dummy_printf(const char * format, ...) {`
52	`if (format == NULL) return(-1);`	51	`if (format == NULL) return(-1);`
53	`return(0);`	52	`return(0);`
54	`}`	53	`}`
55		54
56		55
57	`/* must be called before using libtcp. returns 0 on success, or non-zero if network subsystem is not available. */`	56	`/* must be called before using libtcp. returns 0 on success, or non-zero if network subsystem is not available. */`
58	`int net_init(void) {`	57	`int net_init(void) {`
59	`tzset();`	58	`tzset();`
60	`_printf = dummy_printf; /* this is to avoid watt32 printing its stuff to console */`	59	`_printf = dummy_printf; /* this is to avoid watt32 printing its stuff to console */`
61	`return(sock_init());`	60	`return(sock_init());`
62	`}`	61	`}`
63		62
64		63
65	`struct net_tcpsocket net_connect(const char ipstr, unsigned short port, unsigned short buffsz) {`	64	`struct net_tcpsocket net_connect(const char ipstr, unsigned short port, unsigned short buffsz) {`
66	`struct net_tcpsocket *resultsock;`	65	`struct net_tcpsocket *resultsock;`
67	`unsigned long ipaddr;`	66	`unsigned long ipaddr;`
68		67
69	`/* convert ip to value */`	68	`/* convert ip to value */`
70	`ipaddr = _inet_addr(ipstr);`	69	`ipaddr = _inet_addr(ipstr);`
71	`if (ipaddr == 0) return(NULL);`	70	`if (ipaddr == 0) return(NULL);`
72		71
73	`/* ignore buffsz smaller than 2K (wattcp already has a 2K buffer) */`	72	`/* ignore buffsz smaller than 2K (wattcp already has a 2K buffer) */`
74	`if (buffsz <= 2048) buffsz = 0;`	73	`if (buffsz <= 2048) buffsz = 0;`
75		74
76	`resultsock = calloc(sizeof(struct net_tcpsocket) + buffsz, 1);`	75	`resultsock = calloc(sizeof(struct net_tcpsocket) + buffsz, 1);`
77	`if (resultsock == NULL) return(NULL);`	76	`if (resultsock == NULL) return(NULL);`
78	`resultsock->sock = &(resultsock->_sock);`	-
79		77
80	`if (!tcp_open(resultsock->sock, 0, ipaddr, port, NULL)) {`	78	`if (!tcp_open(&(resultsock->sock), 0, ipaddr, port, NULL)) {`
81	`sock_abort(resultsock->sock);`	79	`sock_abort(&(resultsock->sock));`
82	`free(resultsock);`	80	`free(resultsock);`
83	`return(NULL);`	81	`return(NULL);`
84	`}`	82	`}`
85		83
86	`/* set user-managed buffer if requested (watt32's default is only 2K)`	84	`/* set user-managed buffer if requested (watt32's default is only 2K)`
87	`* this must be set AFTER tcp_open(), since the latter rewrites the tcp`	85	`* this must be set AFTER tcp_open(), since the latter rewrites the tcp`
88	`* rx buffer */`	86	`* rx buffer */`
89	`if (buffsz > 0) sock_setbuf(resultsock->sock, resultsock->tcpbuff, buffsz);`	87	`if (buffsz > 0) sock_setbuf(&(resultsock->sock), resultsock->tcpbuff, buffsz);`
90		88
91	`return(resultsock);`	89	`return(resultsock);`
92	`}`	90	`}`
93		91
94		92
95	`int net_isconnected(struct net_tcpsocket *s) {`	93	`int net_isconnected(struct net_tcpsocket *s) {`
96	`if (tcp_tick(s->sock) == 0) return(-1);`	94	`if (tcp_tick(&(s->sock)) == 0) return(-1);`
97	`if (sock_established(s->sock) == 0) return(0);`	95	`if (sock_established(&(s->sock)) == 0) return(0);`
98	`return(1);`	96	`return(1);`
99	`}`	97	`}`
100		98
101		99
102	`/* Sends data on socket 'socket'.`	100	`/* Sends data on socket 'socket'.`
103	`Returns the number of bytes sent on success, and < 0 otherwise */`	101	`Returns the number of bytes sent on success, and < 0 otherwise */`
104	`int net_send(struct net_tcpsocket socket, const void line, long len) {`	102	`int net_send(struct net_tcpsocket socket, const void line, long len) {`
105	`/* call this to let Watt-32 handle its internal stuff */`	103	`/* call this to let Watt-32 handle its internal stuff */`
106	`if (tcp_tick(socket->sock) == 0) return(-1);`	104	`if (tcp_tick(&(socket->sock)) == 0) return(-1);`
107	`/* send bytes */`	105	`/* send bytes */`
108	`return(sock_write(socket->sock, line, len));`	106	`return(sock_write(&(socket->sock), line, len));`
109	`}`	107	`}`
110		108
111		109
112	`/* Reads data from socket 'sock' and write it into buffer 'buff', until end of connection. Will fall into error if the amount of data is bigger than 'maxlen' bytes.`	110	`/* Reads data from socket 'sock' and write it into buffer 'buff', until end of connection. Will fall into error if the amount of data is bigger than 'maxlen' bytes.`
113	`Returns the amount of data read (in bytes) on success, or a negative value otherwise. The error code can be translated into a human error message via libtcp_strerr(). */`	111	`Returns the amount of data read (in bytes) on success, or a negative value otherwise. The error code can be translated into a human error message via libtcp_strerr(). */`
114	`int net_recv(struct net_tcpsocket socket, void buff, long maxlen) {`	112	`int net_recv(struct net_tcpsocket socket, void buff, long maxlen) {`
115	`/* call this to let WatTCP handle its internal stuff */`	113	`/* call this to let WatTCP handle its internal stuff */`
116	`if (tcp_tick(socket->sock) == 0) return(-1);`	114	`if (tcp_tick(&(socket->sock)) == 0) return(-1);`
117	`return(sock_fastread(socket->sock, buff, maxlen));`	115	`return(sock_fastread(&(socket->sock), buff, maxlen));`
118	`}`	116	`}`
119		117
120		118
121	`/* Close the 'sock' socket. */`	119	`/* Close the 'sock' socket. */`
122	`void net_close(struct net_tcpsocket *socket) {`	120	`void net_close(struct net_tcpsocket *socket) {`
123	`/* I could use sock_close() and sock_wait_closed() if I'd want to be`	121	`/* I could use sock_close() and sock_wait_closed() if I'd want to be`
124	`* friendly, but it's much easier on the tcp stack to send a single RST and`	122	`* friendly, but it's much easier on the tcp stack to send a single RST and`
125	`* forget about the connection (esp. if the peer is misbehaving) */`	123	`* forget about the connection (esp. if the peer is misbehaving) */`
126	`sock_abort(socket->sock);`	124	`sock_abort(&(socket->sock));`
127	`free(socket);`	125	`free(socket);`
128	`}`	126	`}`
129		127
130		128
131	`const char *net_engine(void) {`	129	`const char *net_engine(void) {`
132	`return(wattcpVersion());`	130	`return(wattcpVersion());`
133	`}`	131	`}`
134		132

Subversion Repositories SvarDOS

(root)/pkgnet/trunk/net.c – Rev 1132 → 1133