The R Project SVN R

Rev

Rev 74903 | Rev 81479 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 74903 Rev 77332
Line 2475... Line 2475...
2475 
	strncmp((char*)buf, "RDA3\n", 5) == 0 ||
 2475 
	strncmp((char*)buf, "RDA3\n", 5) == 0 ||
2476 
	strncmp((char*)buf, "RDB3\n", 5) == 0 ||
 2476 
	strncmp((char*)buf, "RDB3\n", 5) == 0 ||
2477 
	strncmp((char*)buf, "RDX3\n", 5) == 0) {
 2477 
	strncmp((char*)buf, "RDX3\n", 5) == 0) {
2478 
	R_InitConnInPStream(&in, con, R_pstream_any_format, NULL, NULL);
 2478 
	R_InitConnInPStream(&in, con, R_pstream_any_format, NULL, NULL);
2479 
	if (PRIMVAL(op) == 0) {
 2479 
	if (PRIMVAL(op) == 0) {
- 
 
 2480 
	    int old_InitReadItemDepth = R_InitReadItemDepth,
- 
 
 2481 
		old_ReadItemDepth = R_ReadItemDepth;
2480 
	    R_InitReadItemDepth = R_ReadItemDepth = -asInteger(CADDR(args));
 2482 
	    R_InitReadItemDepth = R_ReadItemDepth = -asInteger(CADDR(args));
2481 
	    res = RestoreToEnv(R_Unserialize(&in), aenv);
 2483 
	    res = RestoreToEnv(R_Unserialize(&in), aenv);
- 
 
 2484 
	    R_InitReadItemDepth = old_InitReadItemDepth;
2482 
	    R_ReadItemDepth = 0;
 2485 
	    R_ReadItemDepth = old_ReadItemDepth;
2483 
	} else
2486 
	} else
2484 
	    res = R_SerializeInfo(&in);
 2487 
	    res = R_SerializeInfo(&in);
2485 
	if(!wasopen) {
 2488 
	if(!wasopen) {
2486 
	    /* PROTECT is paranoia: some close() method might allocate */
 2489 
	    /* PROTECT is paranoia: some close() method might allocate */
2487 
	    PROTECT(res);
 2490 
	    PROTECT(res);