summaryrefslogtreecommitdiff
path: root/support/dktools/dk4sock01.ctr
blob: 8811430e69cb9b3125284db9a4d324ca2fe02764 (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
134
135
136
137
138
139
140
%%	options

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



%%	module

#include "dk4sock.h"

#if DK4_HAVE_ERRNO_H
#ifndef ERRNO_H_INCLUDED
#include <errno.h>
#define	ERRNO_H_INCLUDED	1
#endif
#endif



$!trace-include



void
dk4socket_error_reset(void)
{
#if DK4_ON_WINDOWS
  WSASetLastError(0);
#else
  errno = 0;
  h_errno = 0;
#endif
}



int
dk4socket_error_get(void)
{
#if DK4_ON_WINDOWS
  return (WSAGetLastError());
#else
  return (errno);
#endif
}



void
dk4socket_error_report(dk4_er_t *erp, int ec)
{
#if DK4_ON_WINDOWS
  dk4error_set_idetails(erp, ec, WSAGetLastError());
#else
  switch (ec) {
    case DK4_E_SOCKET_GETHOSTBYNAME : {
      dk4error_set_idetails(erp, ec, h_errno);
    } break;
    default : {
      dk4error_set_idetails(erp, ec, errno);
    } break;
  }
#endif
}


void
dk4socket_debug_address(const char *text, struct sockaddr *addr, size_t sz)
{
#if TRACE_DEBUG
  FILE *fipo;
  struct sockaddr_in	*soin;
  unsigned long ul;
  unsigned short us;
  fipo = dktrace_file();
  if (NULL != fipo) {
    if (NULL != text) {
      fputs(text, fipo);
      fputc('\n', fipo);
    }
    switch (addr->sa_family) {
      case AF_INET : {
        fputs("Address family: AF_INET\n", fipo);
	soin = (struct sockaddr_in *)addr;
	ul = soin->sin_addr.s_addr;
	us = soin->sin_port;
	ul = ntohl(ul);
	us = ntohs(us);
	fprintf(
	  fipo,
	  "%lu.%lu.%lu.%lu:%u\n",
	  ((ul >> 24) & 0x000000FFUL),
	  ((ul >> 16) & 0x000000FFUL),
	  ((ul >>  8) & 0x000000FFUL),
	  (ul         & 0x000000FFUL),
	  (unsigned)us
	);
      } break;
      case AF_INET6 : {
        fputs("Address family: AF_INET6\n", fipo);
      } break;
      case AF_UNIX : {
        fputs("Address family: AF_UNIX\n", fipo);
      } break;
      default : {
        fputs("Address family: !UNKNOWN!\n", fipo);
      } break;
    }
  }
#endif
}



#if (DK4_HAVE_SETSOCKOPT) && defined(SOL_SOCKET) && defined(SO_ERROR)

int
dk4socket_non_null_getsockopt(int optval, socklen_t slo)
{
  unsigned char	*ptr;
  socklen_t	 i;
  socklen_t	 max;
  int		 back	= 0;
  $? "+ dk4socket_non_null_getsockopt %d %d", optval, (int)slo
  max = sizeof(int);
  if (slo < max) { max = slo; }
  ptr = (unsigned char *)(&optval);
  for (i = 0; ((0 == back) && (i < max)); i++) {
    if (0x00 != *(ptr++)) {
      back = 1;
    }
  }
  $? "- dk4socket_non_null_getsockopt %d", back
  return back;
}

#endif