示例#1
0
static void InitMemOutPStream(R_outpstream_t stream, membuf_t mb,
			      R_pstream_format_t type, int version,
			      SEXP (*phook)(SEXP, SEXP), SEXP pdata)
{
    mb->count = 0;
    mb->size = 0;
    mb->buf = NULL;
    R_InitOutPStream(stream, (R_pstream_data_t) mb, type, version,
		     OutCharMem, OutBytesMem, phook, pdata);
}
示例#2
0
static void InitQDSOutPStream(R_outpstream_t stream, QDataStream *data) {
    R_InitOutPStream(stream, data, R_pstream_xdr_format, 0,
                     OutCharQDS, OutBytesQDS, NULL, NULL);
}