void oudpsend_FullPacket(t_oudpsend *x, t_symbol *msg, short argc, t_atom *argv) {
OMAX_UTIL_GET_LEN_AND_PTR
char *byte_buf = ptr;
int sent;
char *bp = NULL;
int result;
static double lastwarntime;
static double pleasewarn;
double timebefore;
double timeafter;
int late;
if ((x->x_fd >= 0) && (len > 0))
{
for (bp = byte_buf, sent = 0; sent < len;)
{
timebefore = sys_getrealtime();
result = send(x->x_fd, byte_buf, len-sent, 0);
timeafter = sys_getrealtime();
late = (timeafter - timebefore > 0.005);
if (late || pleasewarn)
{
if (timeafter > lastwarntime + 2)
{
post("udpsend blocked %d msec",
(int)(1000 * ((timeafter - timebefore) + pleasewarn)));
pleasewarn = 0;
lastwarntime = timeafter;
}
else if (late) pleasewarn += timeafter - timebefore;
}
if (result <= 0)
{
udpsend_sock_err(x, "udpsend send");
udpsend_disconnect(x);
break;
}
else
{
sent += result;
bp += result;
}
}
}
else pd_error(x, "udpsend: not connected");
}
void oudpsend_free(t_oudpsend *x)
{
udpsend_disconnect(x);
critical_free(x->lock);
}
static void udpsend_send(t_oudpsend *x, t_symbol *s, int argc, t_atom *argv)
{
#define BYTE_BUF_LEN 65536 // arbitrary maximum similar to max IP packet size
static char byte_buf[BYTE_BUF_LEN];
int d;
int i, j;
unsigned char c;
float f, e;
char *bp;
int length, sent;
int result;
static double lastwarntime;
static double pleasewarn;
double timebefore;
double timeafter;
int late;
char fpath[FILENAME_MAX];
FILE *fptr;
#ifdef DEBUG
post("s: %s", s->s_name);
post("argc: %d", argc);
#endif
for (i = j = 0; i < argc; ++i)
{
if (argv[i].a_type == A_FLOAT)
{
f = argv[i].a_w.w_float;
d = (int)f;
e = f - d;
if (e != 0)
{
pd_error(x, "udpsend_send: item %d (%f) is not an integer", i, f);
return;
}
c = (unsigned char)d;
if (c != d)
{
pd_error(x, "udpsend_send: item %d (%f) is not between 0 and 255", i, f);
return;
}
#ifdef DEBUG
post("udpsend_send: argv[%d]: %d", i, c);
#endif
byte_buf[j++] = c;
}
else if (argv[i].a_type == A_SYMBOL)
{
atom_string(&argv[i], fpath, FILENAME_MAX);
#ifdef DEBUG
post ("udpsend fname: %s", fpath);
#endif
fptr = sys_fopen(fpath, "rb");
if (fptr == NULL)
{
post("udpsend: unable to open \"%s\"", fpath);
return;
}
rewind(fptr);
#ifdef DEBUG
post("udpsend: d is %d", d);
#endif
while ((d = fgetc(fptr)) != EOF)
{
byte_buf[j++] = (char)(d & 0x0FF);
#ifdef DEBUG
post("udpsend: byte_buf[%d] = %d", j-1, byte_buf[j-1]);
#endif
if (j >= BYTE_BUF_LEN)
{
post ("udpsend: file too long, truncating at %lu", BYTE_BUF_LEN);
break;
}
}
fclose(fptr);
fptr = NULL;
post("udpsend: read \"%s\" length %d byte%s", fpath, j, ((d==1)?"":"s"));
}
else
{
pd_error(x, "udpsend_send: item %d is not a float or a file name", i);
return;
}
}
length = j;
if ((x->x_fd >= 0) && (length > 0))
{
for (bp = byte_buf, sent = 0; sent < length;)
{
timebefore = sys_getrealtime();
result = send(x->x_fd, byte_buf, length-sent, 0);
timeafter = sys_getrealtime();
late = (timeafter - timebefore > 0.005);
if (late || pleasewarn)
{
if (timeafter > lastwarntime + 2)
{
post("udpsend blocked %d msec",
(int)(1000 * ((timeafter - timebefore) + pleasewarn)));
pleasewarn = 0;
lastwarntime = timeafter;
}
else if (late) pleasewarn += timeafter - timebefore;
}
if (result <= 0)
{
udpsend_sock_err(x, "udpsend send");
udpsend_disconnect(x);
break;
}
else
{
sent += result;
bp += result;
}
}
}
else pd_error(x, "udpsend: not connected");
}
static void udpsend_free(t_udpsend *x)
{
udpsend_disconnect(x);
}
