The R Project SVN R-packages

Rev

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

Rev 8301 Rev 8508
Line 68... Line 68...
68 
	    break;
 68 
	    break;
69 
	case REALSXP:
 69 
	case REALSXP:
70 
	    ptr = REAL(tmp);
 70 
	    ptr = REAL(tmp);
71 
	    break;
 71 
	    break;
72 
	case VECSXP:
 72 
	case VECSXP:
73 
	    ptr = VECTOR_PTR(tmp);
 73 
	    ptr = (void *) VECTOR_PTR_RO(tmp);
74 
	    break;
 74 
	    break;
75 
	default:
 75 
	default:
76 
	    ptr = NULL;
 76 
	    ptr = NULL;
77 
	}
 77 
	}
78 
	conf.callback = (JSON_parser_callback) R_ExternalPtrAddr(VECTOR_ELT(data, 0));
 78 
	conf.callback = (JSON_parser_callback) R_ExternalPtrAddr(VECTOR_ELT(data, 0));