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
|
%% options
copyright owner = Dirk Krause
copyright year = 2015-xxxx
SPDX-License-Identifier: BSD-3-Clause
%% module
#include "dk4conf.h"
#include "dk4sock.h"
#include <stdio.h>
#if DK4_HAVE_ERRNO_H
#ifndef ERRNO_H_INCLUDED
#include <errno.h>
#define ERRNO_H_INCLUDED 1
#endif
#endif
#if DK4_HAVE_UNISTD_H
#ifndef UNISTD_H_INCLUDED
#include <unistd.h>
#define UNISTD_H_INCLUDED 1
#endif
#endif
#if DK4_HAVE_IO_H
#ifndef IO_H_INCLUDED
#include <io.h>
#define IO_H_INCLUDED 1
#endif
#endif
#if DK4_HAVE_ASSERT_H
#ifndef ASSERT_H_INCLUDED
#include <assert.h>
#define ASSERT_H_INCLUDED 1
#endif
#endif
$!trace-include
dk4_socket_t
dk4socket_open(int af, int tp, int pr, dk4_er_t *erp)
{
dk4_socket_t back = INVALID_SOCKET;
$? "+ dk4socket_open"
switch (af) {
case AF_INET:
#if DK4_HAVE_STRUCT_SOCKADDR_IN6
case AF_INET6:
#endif
#if defined(AF_UNIX)
case AF_UNIX:
#endif
#if defined(AF_LOCAL) && (AF_UNIX != AF_LOCAL)
case AF_LOCAL:
#endif
{
switch (tp) {
case SOCK_STREAM : case SOCK_DGRAM : {
dk4socket_error_reset();
back = socket(af, tp, pr);
if (INVALID_SOCKET == back) {
dk4socket_error_report(erp, DK4_E_SOCKET_SOCKET);
}
} break;
default: {
dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
$? "! tp"
} break;
}
} break;
default: {
dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
$? "! af"
} break;
}
$? "- dk4socket_open %d", (int)back
return back;
}
int
dk4socket_close(dk4_socket_t so, dk4_er_t *erp)
{
int back = DK4_SOCKET_RESULT_FAILED;
#if DK4_USE_ASSERT
assert(INVALID_SOCKET != so);
#endif
if (INVALID_SOCKET != so) {
dk4socket_error_reset();
#if DK4_ON_WINDOWS
if (0 == closesocket(so))
#else
if (0 == close(so))
#endif
{
back = DK4_SOCKET_RESULT_SUCCESS;
} else {
dk4socket_error_report(erp, DK4_E_SOCKET_CLOSE);
}
} else {
dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
}
return back;
}
int
dk4socket_shutdown(dk4_socket_t so, int how, dk4_er_t *erp)
{
int back = DK4_SOCKET_RESULT_FAILED;
#if DK4_USE_ASSERT
assert(INVALID_SOCKET != so);
#endif
if (INVALID_SOCKET != so) {
switch (how) {
case DK4_SOCKET_SHUT_READ :
case DK4_SOCKET_SHUT_WRITE :
case DK4_SOCKET_SHUT_RDWR :
{
dk4socket_error_reset();
if (0 == shutdown(so, how)) {
back = DK4_SOCKET_RESULT_SUCCESS;
} else {
dk4socket_error_report(erp, DK4_E_SOCKET_SHUTDOWN);
}
} break;
default : {
dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
} break;
}
} else {
dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
}
return back;
}
|