summaryrefslogtreecommitdiff
path: root/support/dktools/dk4sock10.ctr
blob: b7f58e8feb78b6eed82baaa62458e5900ae598df (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
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
%%	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_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



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 (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 (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;
}