static R_INLINE void setrownames (SEXP x, SEXP names, int n) {
int nprotect = 0;
SEXP dimnms, nm;
PROTECT(nm = AS_CHARACTER(names)); nprotect++;
PROTECT(dimnms = allocVector(VECSXP,n)); nprotect++;
SET_ELEMENT(dimnms,0,nm); // set row names
SET_DIMNAMES(x,dimnms);
UNPROTECT(nprotect);
}
/* --- .Call ENTRY POINT --- */
SEXP CompressedIRangesList_summary(SEXP object)
{
int ans_len;
SEXP part_end;
SEXP ans, ans_names, col_names;
part_end = _get_PartitioningByEnd_end(
_get_CompressedList_partitioning(object));
ans_len = LENGTH(part_end);
PROTECT(ans = allocMatrix(INTSXP, ans_len, 2));
memset(INTEGER(ans), 0, 2 * ans_len * sizeof(int));
if (ans_len > 0) {
int i, j, prev_end = 0;
int *ans1_elt, *ans2_elt;
const int *part_end_elt, *ranges_width;
SEXP unlistData = _get_CompressedList_unlistData(object);
ranges_width = INTEGER(_get_IRanges_width(unlistData));
for (i = 0, ans1_elt = INTEGER(ans), ans2_elt = (INTEGER(ans) + ans_len),
part_end_elt = INTEGER(part_end);
i < ans_len; i++, ans1_elt++, ans2_elt++, part_end_elt++)
{
*ans1_elt = *part_end_elt - prev_end;
for (j = 0; j < *ans1_elt; j++) {
*ans2_elt += *ranges_width;
ranges_width++;
}
prev_end = *part_end_elt;
}
}
PROTECT(ans_names = NEW_LIST(2));
PROTECT(col_names = NEW_CHARACTER(2));
SET_STRING_ELT(col_names, 0, mkChar("Length"));
SET_STRING_ELT(col_names, 1, mkChar("WidthSum"));
SET_VECTOR_ELT(ans_names, 0,
duplicate(_get_CompressedList_names(object)));
SET_VECTOR_ELT(ans_names, 1, col_names);
SET_DIMNAMES(ans, ans_names);
UNPROTECT(3);
return ans;
}
