summaryrefslogtreecommitdiff
path: root/support/dktools/dk4sock09.ctr
blob: 78706e365ddd60c917fa063b45d6912c6291a6a6 (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
%%	options

copyright owner	=	Dirk Krause
copyright year	=	2015-xxxx
license		=	bsd



%%	module

#include "dk4sock.h"



$!trace-include



int
dk4socket_up(dk4_er_t *er)
{
#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
  return DK4_SOCKET_RESULT_SUCCESS;
#endif
}



int
dk4socket_down(dk4_er_t *er)
{
#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
  return DK4_SOCKET_RESULT_SUCCESS;
#endif
}