Make an effort to clean up space vs tab

Author: DavisVaughan

src/main/subset.c

@@ -95,7 +95,7 @@ static R_INLINE SEXP VECTOR_ELT_FIX_NAMED(SEXP y, R_xlen_t i) {
 
 #define EXTRACT_SUBSET_LOOP(PTR, STDCODEPTR, STDCODENOPTR, NACODE) do { \
 	PTR;                                                            \
-        if (px != NULL) {                                               \
+	if (px != NULL) {                                               \
 	    EXTRACT_SUBSET_LOOP_(STDCODEPTR, NACODE);                   \
 	} else {                                                        \
 	    /* Fallback `ELT()` based path used for ALTREP classes */   \
@@ -146,35 +146,35 @@ attribute_hidden SEXP ExtractSubset(SEXP x, SEXP indx, SEXP call)
     switch(mode) {
     case LGLSXP:
 	EXTRACT_SUBSET_LOOP(const int* px = (const int*) DATAPTR_OR_NULL(x),
-	                    LOGICAL0(result)[i] = px[ii],
-	                    LOGICAL0(result)[i] = LOGICAL_ELT(x, ii),
+			    LOGICAL0(result)[i] = px[ii],
+			    LOGICAL0(result)[i] = LOGICAL_ELT(x, ii),
 			    LOGICAL0(result)[i] = NA_LOGICAL);
 	break;
     case INTSXP:
 	EXTRACT_SUBSET_LOOP(const int* px = (const int*) DATAPTR_OR_NULL(x),
-	                    INTEGER0(result)[i] = px[ii],
-	                    INTEGER0(result)[i] = INTEGER_ELT(x, ii),
+			    INTEGER0(result)[i] = px[ii],
+			    INTEGER0(result)[i] = INTEGER_ELT(x, ii),
 			    INTEGER0(result)[i] = NA_INTEGER);
 	break;
     case REALSXP:
 	EXTRACT_SUBSET_LOOP(const double* px = (const double*) DATAPTR_OR_NULL(x),
-	                    REAL0(result)[i] = px[ii],
-	                    REAL0(result)[i] = REAL_ELT(x, ii),
+			    REAL0(result)[i] = px[ii],
+			    REAL0(result)[i] = REAL_ELT(x, ii),
 			    REAL0(result)[i] = NA_REAL);
 	break;
     case CPLXSXP:
 	{
 	    Rcomplex NA_CPLX = { .r = NA_REAL, .i = NA_REAL };
 	    EXTRACT_SUBSET_LOOP(const Rcomplex* px = (const Rcomplex*) DATAPTR_OR_NULL(x),
-	                        COMPLEX0(result)[i] = px[ii],
-	                        COMPLEX0(result)[i] = COMPLEX_ELT(x, ii),
-			        COMPLEX0(result)[i] = NA_CPLX);
+				COMPLEX0(result)[i] = px[ii],
+				COMPLEX0(result)[i] = COMPLEX_ELT(x, ii),
+				COMPLEX0(result)[i] = NA_CPLX);
 	}
 	break;
     case STRSXP:
 	EXTRACT_SUBSET_LOOP(const SEXP* px = (const SEXP*) DATAPTR_OR_NULL(x),
-	                    SET_STRING_ELT(result, i, px[ii]),
-	                    SET_STRING_ELT(result, i, STRING_ELT(x, ii)),
+			    SET_STRING_ELT(result, i, px[ii]),
+			    SET_STRING_ELT(result, i, STRING_ELT(x, ii)),
 			    SET_STRING_ELT(result, i, NA_STRING));
 	break;
     case VECSXP:
@@ -183,9 +183,9 @@ attribute_hidden SEXP ExtractSubset(SEXP x, SEXP indx, SEXP call)
 	/* case and use `DATAPTR_OR_NULL()` there too. Currently it never */
 	/* takes the `px[ii]` path - DV. */
         EXTRACT_SUBSET_LOOP(const SEXP *px = NULL,
-	                    SET_VECTOR_ELT(result, i, px[ii]),
-                            SET_VECTOR_ELT(result, i, VECTOR_ELT_FIX_NAMED(x, ii)),
-                            SET_VECTOR_ELT(result, i, R_NilValue));
+			    SET_VECTOR_ELT(result, i, px[ii]),
+			    SET_VECTOR_ELT(result, i, VECTOR_ELT_FIX_NAMED(x, ii)),
+			    SET_VECTOR_ELT(result, i, R_NilValue));
         break;
     case RAWSXP:
 	EXTRACT_SUBSET_LOOP(const Rbyte* px = (const Rbyte*) DATAPTR_OR_NULL(x),