1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
%% options
copyright owner = Dirk Krause
copyright year = 2015-xxxx
SPDX-License-Identifier: BSD-3-Clause
%% module
#include "dk4conf.h"
#include "dk4sock.h"
#if DK4_HAVE_ERRNO_H
#ifndef ERRNO_H_INCLUDED
#include <errno.h>
#define ERRNO_H_INCLUDED 1
#endif
#endif
#include "dk4unused.h"
$!trace-include
void
dk4socket_error_reset(void)
{
#if DK4_ON_WINDOWS
WSASetLastError(0);
#else
errno = 0;
h_errno = 0;
#endif
}
int
dk4socket_error_get(void)
{
#if DK4_ON_WINDOWS
return (WSAGetLastError());
#else
return (errno);
#endif
}
void
dk4socket_error_report(dk4_er_t *erp, int ec)
{
#if DK4_ON_WINDOWS
dk4error_set_idetails(erp, ec, WSAGetLastError());
#else
switch (ec) {
case DK4_E_SOCKET_GETHOSTBYNAME : {
dk4error_set_idetails(erp, ec, h_errno);
} break;
default : {
dk4error_set_idetails(erp, ec, errno);
} break;
}
#endif
}
void
dk4socket_debug_address(
#if TRACE_DEBUG
const char *text,
struct sockaddr *addr,
size_t sz
#else
const char * DK4_ARG_UNUSED(text),
struct sockaddr * DK4_ARG_UNUSED(addr),
size_t DK4_ARG_UNUSED(sz)
#endif
)
{
#if TRACE_DEBUG
FILE *fipo;
struct sockaddr_in *soin;
unsigned long ul;
unsigned short us;
fipo = dktrace_file();
if (NULL != fipo) {
if (NULL != text) {
fputs(text, fipo);
fputc('\n', fipo);
}
switch (addr->sa_family) {
case AF_INET : {
fputs("Address family: AF_INET\n", fipo);
soin = (struct sockaddr_in *)addr;
ul = soin->sin_addr.s_addr;
us = soin->sin_port;
ul = ntohl(ul);
us = ntohs(us);
fprintf(
fipo,
"%lu.%lu.%lu.%lu:%u\n",
((ul >> 24) & 0x000000FFUL),
((ul >> 16) & 0x000000FFUL),
((ul >> 8) & 0x000000FFUL),
(ul & 0x000000FFUL),
(unsigned)us
);
} break;
case AF_INET6 : {
fputs("Address family: AF_INET6\n", fipo);
} break;
case AF_UNIX : {
fputs("Address family: AF_UNIX\n", fipo);
} break;
default : {
fputs("Address family: !UNKNOWN!\n", fipo);
} break;
}
}
#else
DK4_UNUSED_ARG(text)
DK4_UNUSED_ARG(addr)
DK4_UNUSED_ARG(sz)
#endif
}
#if (DK4_HAVE_SETSOCKOPT) && defined(SOL_SOCKET) && defined(SO_ERROR)
int
dk4socket_non_null_getsockopt(int optval, socklen_t slo)
{
unsigned char *ptr;
socklen_t i;
socklen_t max;
int back = 0;
$? "+ dk4socket_non_null_getsockopt %d %d", optval, (int)slo
max = sizeof(int);
if (slo < max) { max = slo; }
ptr = (unsigned char *)(&optval);
for (i = 0; ((0 == back) && (i < max)); i++) {
if (0x00 != *(ptr++)) {
back = 1;
}
}
$? "- dk4socket_non_null_getsockopt %d", back
return back;
}
#endif
|