summaryrefslogtreecommitdiff
path: root/support/dktools/dk4socka08.ctr
blob: 0c47f1fddc8b3ec26f1cc8d1ea66789bd6da0cf3 (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
%%	options

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


%%	module

#include "dk4socka.h"
#include "dk4mem.h"
#include "dk4maodd.h"



$!trace-include



int
dk4socket_send_attempt_app(
  dk4_socket_t	 sock,
  const void	*buf,
  size_t	*pszbuf,
  int		 flags,
  long		 secs,
  long		 usecs,
  dk4_app_t	*app,
  int		 complain
)
{
  dkChar	 nb1[16*sizeof(dk4_um_t)];
  dkChar	 nb2[16*sizeof(dk4_um_t)];
  dk4_er_t	 er;
  size_t	 b0	=	0;
  size_t	 b1	=	0;
  const size_t	 sznb1	=	DK4_SIZEOF(nb1,dkChar);
  const size_t	 sznb2	=	DK4_SIZEOF(nb2,dkChar);
  int		 back	=	DK4_SOCKET_RESULT_FAILED;
  int		 res	=	0;
  int		 abok	=	0;
  dk4error_init(&er);
  if (NULL != pszbuf) { b0 = *pszbuf; }
  back = dk4socket_send(sock, buf, pszbuf, flags, secs, usecs, &er);
  if (DK4_SOCKET_RESULT_SUCCESS != back) {
    switch (back) {
      case DK4_SOCKET_RESULT_FAILED : {
	dk4socket_log_simple_1(app, DK4_LL_ERROR, 137, &er);
      } break;
      case DK4_SOCKET_RESULT_IN_PROGRESS : {
        if (0 != complain) {
          if (NULL != pszbuf) { b1 = *pszbuf; }
	  res = dk4ma_write_decimal_unsigned(nb1,sznb1,(dk4_um_t)b1,0,NULL);
	  if (0 != res) {
	    res = dk4ma_write_decimal_unsigned(nb2,sznb2,(dk4_um_t)b0,0,NULL);
	    if (0 != res) {
	      abok = 1;
	    }
	  }
	  if (0 != abok) {
	    dk4socket_log_simple_5(app,DK4_LL_ERROR,133,134,135,nb1,nb2,&er);
	  } else {
	    dk4socket_log_simple_1(app, DK4_LL_ERROR, 136, &er);
	  }
	}
      } break;
    }
  }
  return back;
}



int
dk4socket_send_app(
  dk4_socket_t	 sock,
  const void	*buf,
  size_t	*pszbuf,
  int		 flags,
  long		 secs,
  long		 usecs,
  dk4_app_t	*app
)
{
  return (
    dk4socket_send_attempt_app(sock, buf, pszbuf, flags, secs, usecs, app, 0)
  );
}



int
dk4socket_recv_app(
  dk4_socket_t	 sock,
  void		*buf,
  size_t	*pszbuf,
  int		 flags,
  long		 secs,
  long		 usecs,
  dk4_app_t	*app
)
{
  dk4_er_t	 er;
  int		 back	= DK4_SOCKET_RESULT_FAILED;
  dk4error_init(&er);
  back = dk4socket_recv(sock, buf, pszbuf, flags, secs, usecs, &er);
  if (DK4_SOCKET_RESULT_SUCCESS != back) {
    dk4socket_log_simple_1(app, DK4_LL_ERROR, 138, &er);
  }
  return back;
}