summaryrefslogtreecommitdiff
path: root/support/dktools/dk4sock09.ctr
blob: 4b69bc1cd4d9f28b59583b8cfeb28b70b11610ab (plain)
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
%%	options

copyright owner	=	Dirk Krause
copyright year	=	2015-xxxx
SPDX-License-Identifier:	BSD-3-Clause



%%	module

#include "dk4conf.h"

#include "dk4sock.h"

#include "dk4unused.h"



$!trace-include



int
dk4socket_up(
#if DK4_ON_WINDOWS
  dk4_er_t *er
#else
  dk4_er_t * DK4_ARG_UNUSED(er)
#endif
)
{
#if DK4_ON_WINDOWS
  WSADATA	 wsaData;
  WORD		 wVersionRequested;
  int		 back = DK4_SOCKET_RESULT_FAILED;
  int		 err;
  $? "+ dk4socket_up"
  wVersionRequested = MAKEWORD(2,0);
  err = WSAStartup(wVersionRequested, &wsaData);
  if (0 == err) {			$? ". success"
    back = DK4_SOCKET_RESULT_SUCCESS;
  } else {				$? "! error %d (%x)", err, err
    dk4error_set_idetails(er, DK4_E_SOCKET_UP, err);
  }
  $? "- dk4socket_up %d", back
  return back;
#else
  DK4_UNUSED_ARG(er)
  return DK4_SOCKET_RESULT_SUCCESS;
#endif
}



int
dk4socket_down(
#if DK4_ON_WINDOWS
  dk4_er_t *er
#else
  dk4_er_t * DK4_ARG_UNUSED(er)
#endif
)
{
#if DK4_ON_WINDOWS
  int		 back = DK4_SOCKET_RESULT_FAILED;
  int		 errc;
  $? "+ dk4socket_down"
  WSASetLastError(0);
  if (0 == WSACleanup()) {		$? ". success"
    back = DK4_SOCKET_RESULT_SUCCESS;
  } else {
    errc =  WSAGetLastError();		$? "! error %d (%x)", errc, errc
    dk4error_set_idetails(er, DK4_E_SOCKET_DOWN, errc);
  }
  $? "- dk4socket_down %d", back
  return back;
#else
  DK4_UNUSED_ARG(er)
  return DK4_SOCKET_RESULT_SUCCESS;
#endif
}