my_psend(char type, char * buf, int len)
{
int ret;
char lbuf[600];
strncpy(lbuf,buf,len);
lbuf[len] = type;
TEST_PRINT("%s sends: %s\n",lbuf,"");
ret=myWriteToNamedPipe(lbuf,len+1);
my_peek();
return(ret);
}
/*
* call-seq:
*
* Kgio.trypeek(socket, maxlen) -> buffer
* Kgio.trypeek(socket, maxlen, buffer) -> buffer
*
* Like Kgio.tryread, except it uses MSG_PEEK so it does not drain the
* socket buffer. This can only be used on sockets and not pipe objects.
* Maybe used in place of SocketMethods#kgio_trypeek for non-Kgio objects
*/
static VALUE s_trypeek(int argc, VALUE *argv, VALUE mod)
{
if (argc <= 1)
rb_raise(rb_eArgError, "wrong number of arguments");
return my_peek(0, argc - 1, &argv[1], argv[0]);
}
/*
* call-seq:
*
* socket.kgio_peek(maxlen) -> buffer
* socket.kgio_peek(maxlen, buffer) -> buffer
*
* Like kgio_read, except it uses MSG_PEEK so it does not drain the
* socket buffer. A subsequent read of any type (including another peek)
* will return the same data.
*/
static VALUE kgio_peek(int argc, VALUE *argv, VALUE io)
{
return my_peek(1, argc, argv, io);
}