summaryrefslogtreecommitdiff
path: root/support/dktools/dk4sock15.ctr
blob: 9a5a81dece71fa0f1b3c5be7a40abeac0c2f590d (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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
%%	options

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



%%	module

#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_FCNTL_H
#ifndef FCNTL_H_INCLUDED
#include <fcntl.h>
#define	FCNTL_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

$!trace-include



int
dk4socket_option_set_nonblock(
  dk4_socket_t	 sock,
  int		 val,
  dk4_er_t	*erp
)
{
#if DK4_ON_WINDOWS
  unsigned long	 xv	= 0UL;
  int		 back	= DK4_SOCKET_RESULT_FAILED;
  if (INVALID_SOCKET != sock) {
    if (0 != val) { xv = 0x11111111UL; }
    WSASetLastError(0);
    if (0 == ioctlsocket(sock, FIONBIO, &xv)) {
      back = DK4_SOCKET_RESULT_SUCCESS;
    } else {
      dk4error_set_idetails(erp, DK4_E_SOCKET_IOCTLSOCKET, WSAGetLastError());
    }
  } else {
    dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
  }
  return back;
#else
  int		 back = DK4_SOCKET_RESULT_FAILED;
  int		 om;
  if (INVALID_SOCKET != sock) {
    om = fcntl(sock, F_GETFL);
    if (0 != val) {
      if (0 != (om & O_NONBLOCK)) {
        back = DK4_SOCKET_RESULT_SUCCESS;
      } else {
        om |= O_NONBLOCK;
	errno = 0;
	if (-1 != fcntl(sock, F_SETFL, om)) {
	  back = DK4_SOCKET_RESULT_SUCCESS;
	} else {
	  dk4error_set_idetails(erp, DK4_E_SOCKET_FCNTL, errno);
	}
      }
    } else {
      if (0 == (om & O_NONBLOCK)) {
        back = DK4_SOCKET_RESULT_SUCCESS;
      } else {
        om &= (~(O_NONBLOCK));
	errno = 0;
	if (-1 != fcntl(sock, F_SETFL, om)) {
	  back = DK4_SOCKET_RESULT_SUCCESS;
	} else {
	  dk4error_set_idetails(erp, DK4_E_SOCKET_FCNTL, errno);
	}
      }
    }
  } else {
    dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
  }
  return back;
#endif
}