The R Project SVN R

Rev

Rev 89940 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89940 Rev 90282
Line 2502... Line 2502...
2502 
	    for (i = 0; i < length; i++) {
 2502 
	    for (i = 0; i < length; i++) {
2503 
		size_t ncread = Rconn_getline(con, linebuf, 3);
 2503 
		size_t ncread = Rconn_getline(con, linebuf, 3);
2504 
		if (ncread != 2)
 2504 
		if (ncread != 2)
2505 
		    error(_("error reading from ascii connection"));
 2505 
		    error(_("error reading from ascii connection"));
2506 
		if (!sscanf(linebuf, "%02x", &res))
 2506 
		if (!sscanf(linebuf, "%02x", &res))
2507 
		    error(_("unexpected format in ascii connection"));
 2507 
		    error(_("unexpected format in ascii connection '%s'"),
- 
 
 2508 
			con->description);
2508 
		*p++ = (unsigned char)res;
 2509 
		*p++ = (unsigned char)res;
2509 
	    }
 2510 
	    }
2510 
	} else {
 2511 
	} else {
2511 
	    if (length != con->read(buf, 1, length, con))
 2512 
	    if (length != con->read(buf, 1, length, con))
2512 
		error(_("error reading from connection"));
 2513 
		error(_("error reading from connection '%s'"),
- 
 
 2514 
		      con->description);
2513 
	}
 2515 
	}
2514 
    }
 2516 
    }
2515 
}
 2517 
}
2516 
 
 2518 
 
2517 
static int InCharConn(R_inpstream_t stream)
 2519 
static int InCharConn(R_inpstream_t stream)
Line 2521... Line 2523...
2521 
    CheckInConn(con);
 2523 
    CheckInConn(con);
2522 
    if (con->text)
 2524 
    if (con->text)
2523 
	return Rconn_fgetc(con);
 2525 
	return Rconn_fgetc(con);
2524 
    else {
 2526 
    else {
2525 
	if (1 != con->read(buf, 1, 1, con))
 2527 
	if (1 != con->read(buf, 1, 1, con))
2526 
	    error(_("error reading from connection"));
 2528 
	    error(_("error reading from connection '%s'"),
- 
 
 2529 
		    con->description);
2527 
	return buf[0];
 2530 
	return buf[0];
2528 
    }
 2531 
    }
2529 
}
 2532 
}
2530 
 
 2533 
 
2531 
static void OutBytesConn(R_outpstream_t stream, void *buf, int length)
 2534 
static void OutBytesConn(R_outpstream_t stream, void *buf, int length)