#include "Mdefines.h"
#include "coerce.h"
#include "bind.h"

Macros
#define	BIND_CASES(_BIND_)

#define	BIND_E(_CTYPE_, _PTR_, _MASK_)

#define	BIND_C1R0(_CTYPE_, _PTR_, _MASK_)

#define	BIND_C0R1(_CTYPE_, _PTR_, _MASK_)

#define	BIND_T(_CTYPE_, _PTR_, _MASK_)

Functions
static void	scanArgs (SEXP args, SEXP exprs, int margin, int level, int rdim, int rdimnames, char kind, char repr)

static void	coerceArgs (SEXP args, int margin, int *rdim, char kind, char repr)

static void	bindArgs (SEXP args, int margin, SEXP res, int *rdim, char kind, char repr)

static SEXP	bind (SEXP args, SEXP exprs, int margin, int level)

SEXP	R_bind (SEXP args)

Variables
static const char *	valid [] = { VALID_NONVIRTUAL_MATRIX, "" }

static SEXP	tagWasVector = NULL

Macro Definition Documentation

◆ BIND_C0R1

#define BIND_C0R1	(	_CTYPE_,
		_PTR_,
		_MASK_
	)

Value:

        do { \
            _MASK_(_CTYPE_ *px = _PTR_(x), *psx); \
            for (a = args; a != R_NilValue; a = CDR(a)) { \
                s = CAR(a); \
                if (s == R_NilValue) \
                    continue; \
                PROTECT(sp = GET_SLOT(s, Matrix_pSym)); \
                PROTECT(si = GET_SLOT(s, iSym)); \
                _MASK_(PROTECT(sx = GET_SLOT(s, Matrix_xSym))); \
                psp = INTEGER(sp); \
                psi = INTEGER(si); \
                _MASK_(psx = _PTR_(sx)); \
                for (j = 0, k = 0; j < n; ++j) { \
                    kend = psp[j + 1]; \
                    while (k < kend) { \
                        pi[work[j]] = *(psi++) + pos; \
                        _MASK_(px[work[j]] = *(psx++)); \
                        work[j]++; \
                        ++k; \
                    } \
                } \
                _MASK_(UNPROTECT(1)); \
                UNPROTECT(2); \
                pos += INTEGER(GET_SLOT(s, Matrix_DimSym))[margin]; \
            } \
        } while (0)

◆ BIND_C1R0

#define BIND_C1R0	(	_CTYPE_,
		_PTR_,
		_MASK_
	)

Value:

        do { \
            _MASK_(_CTYPE_ *px = _PTR_(x), *psx); \
            for (a = args; a != R_NilValue; a = CDR(a)) { \
                s = CAR(a); \
                if (s == R_NilValue) \
                    continue; \
                PROTECT(sp = GET_SLOT(s, Matrix_pSym)); \
                PROTECT(si = GET_SLOT(s, iSym)); \
                _MASK_(PROTECT(sx = GET_SLOT(s, Matrix_xSym))); \
                psp = INTEGER(sp); \
                psi = INTEGER(si); \
                _MASK_(psx = _PTR_(sx)); \
                n = (int) (XLENGTH(sp) - 1); \
                Matrix_memcpy(pi, psi, psp[n], sizeof(int)); \
                _MASK_(Matrix_memcpy(px, psx, psp[n], sizeof(_CTYPE_))); \
                pi += psp[n]; \
                _MASK_(px += psp[n]); \
                _MASK_(UNPROTECT(1)); \
                UNPROTECT(2); \
            } \
        } while (0)

◆ BIND_CASES

#define BIND_CASES ( _BIND_ )

Value:

    do { \
        switch (kind) { \
        case 'l': \
            _BIND_(int, LOGICAL, SHOW); \
            break; \
        case 'i': \
            _BIND_(int, INTEGER, SHOW); \
            break; \
        case 'd': \
            _BIND_(double, REAL, SHOW); \
            break; \
        case 'z': \
            _BIND_(Rcomplex, COMPLEX, SHOW); \
            break; \
        default: \
            break; \
        } \
    } while (0)

◆ BIND_E

#define BIND_E	(	_CTYPE_,
		_PTR_,
		_MASK_
	)

◆ BIND_T

#define BIND_T	(	_CTYPE_,
		_PTR_,
		_MASK_
	)

Function Documentation

◆ bind()

static SEXP bind	(	SEXP	args,
		SEXP	exprs,
		int	margin,
		int	level
	)

static

Definition at line 840 of file bind.c.

References _, bindArgs(), coerceArgs(), GET_SLOT, Matrix_DimNamesSym, Matrix_DimSym, newObject(), scanArgs(), tagWasVector, valid, and VALID_NONVIRTUAL_SHIFT.

Referenced by R_bind().

◆ bindArgs()

static void bindArgs	(	SEXP	args,
		int	margin,
		SEXP	res,
		int *	rdim,
		char	kind,
		char	repr
	)

static

Definition at line 495 of file bind.c.

References _, BIND_C0R1, BIND_C1R0, BIND_CASES, BIND_E, BIND_T, GET_SLOT, HIDE, kindToType(), Matrix_Calloc, Matrix_Free, Matrix_iSym, Matrix_jSym, Matrix_marginSym, Matrix_memcpy(), Matrix_memset(), Matrix_permSym, Matrix_pSym, Matrix_xSym, SET_SLOT, and SHOW.

Referenced by bind().

◆ coerceArgs()

static void coerceArgs	(	SEXP	args,
		int	margin,
		int *	rdim,
		char	kind,
		char	repr
	)

static

Definition at line 361 of file bind.c.

References dense_as_general(), dense_as_kind(), dense_as_sparse(), diagonal_as_dense(), diagonal_as_sparse(), index_as_dense(), index_as_sparse(), kindToType(), matrix_as_sparse(), sparse_as_Csparse(), sparse_as_dense(), sparse_as_general(), sparse_as_kind(), sparse_as_Rsparse(), sparse_as_Tsparse(), tagWasVector, valid, and VALID_NONVIRTUAL_SHIFT.

Referenced by bind().

◆ R_bind()

SEXP R_bind ( SEXP args )

Definition at line 948 of file bind.c.

References bind().

◆ scanArgs()

static void scanArgs	(	SEXP	args,
		SEXP	exprs,
		int	margin,
		int	level,
		int *	rdim,
		int *	rdimnames,
		char *	kind,
		char *	repr
	)

static

Definition at line 10 of file bind.c.

References _, ERROR_INVALID_CLASS, ERROR_INVALID_TYPE, GET_SLOT, Matrix_diagSym, Matrix_DimNamesSym, Matrix_DimSym, Matrix_iSym, Matrix_jSym, Matrix_marginSym, Matrix_permSym, Matrix_pSym, Matrix_uploSym, Tsparse_aggregate(), valid, and VALID_NONVIRTUAL_SHIFT.

Referenced by bind().

Variable Documentation

◆ tagWasVector

SEXP tagWasVector = NULL

static

Definition at line 7 of file bind.c.

Referenced by bind(), and coerceArgs().

◆ valid

const char* valid[] = { VALID_NONVIRTUAL_MATRIX, "" }

static

Definition at line 5 of file bind.c.

Referenced by bind(), CHMfactor_solve(), coerceArgs(), CR2spV(), Csparse_writeMM(), dtCMatrix_diag(), get_factor(), Matrix_kind(), Matrix_nonvirtual(), Matrix_repr(), Matrix_shape(), R_dense_as_general(), R_dense_as_kind(), R_dense_as_packed(), R_dense_as_sparse(), R_dense_as_unpacked(), R_dense_band(), R_dense_diag_get(), R_dense_diag_set(), R_dense_force_symmetric(), R_dense_is_diagonal(), R_dense_is_symmetric(), R_dense_is_triangular(), R_dense_marginsum(), R_dense_matmult(), R_dense_prod(), R_dense_skewpart(), R_dense_sum(), R_dense_symmpart(), R_dense_transpose(), R_diagonal_as_dense(), R_diagonal_as_kind(), R_diagonal_as_sparse(), R_diagonal_matmult(), R_index_as_dense(), R_index_as_kind(), R_index_as_sparse(), R_Matrix_as_Csparse(), R_Matrix_as_general(), R_Matrix_as_kind(), R_Matrix_as_matrix(), R_Matrix_as_packed(), R_Matrix_as_Rsparse(), R_Matrix_as_Tsparse(), R_Matrix_as_unpacked(), R_Matrix_as_vector(), R_sparse_as_Csparse(), R_sparse_as_dense(), R_sparse_as_general(), R_sparse_as_kind(), R_sparse_as_Rsparse(), R_sparse_as_Tsparse(), R_sparse_band(), R_sparse_diag_get(), R_sparse_diag_N2U(), R_sparse_diag_set(), R_sparse_diag_U2N(), R_sparse_drop0(), R_sparse_force_symmetric(), R_sparse_is_diagonal(), R_sparse_is_symmetric(), R_sparse_is_triangular(), R_sparse_marginsum(), R_sparse_matmult(), R_sparse_prod(), R_sparse_skewpart(), R_sparse_sum(), R_sparse_symmpart(), R_sparse_transpose(), R_subscript_1ary(), R_subscript_1ary_mat(), R_subscript_2ary(), R_vector_as_sparse(), scanArgs(), set_factor(), sexp_as_cholmod_dense(), sexp_as_cholmod_factor(), sexp_as_cholmod_sparse(), sexp_as_cholmod_triplet(), strmatch(), strmatch(), strmatch(), and Tsparse_aggregate().

Macros

Functions

Variables

Macro Definition Documentation

◆ BIND_C0R1

◆ BIND_C1R0

◆ BIND_CASES

◆ BIND_E

◆ BIND_T

Function Documentation

◆ bind()

◆ bindArgs()

◆ coerceArgs()

◆ R_bind()

◆ scanArgs()

Variable Documentation

◆ tagWasVector

◆ valid