SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/inst/include/Matrix_stubs.c
ViewVC logotype

Diff of /pkg/Matrix/inst/include/Matrix_stubs.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3146, Thu Oct 8 15:52:08 2015 UTC revision 3147, Thu Oct 29 16:56:10 2015 UTC
# Line 668  Line 668 
668  }  }
669    
670    
671  // for now still *export*  M_Matrix_check_class_etc() -- deprecate it later__FIXME__  // for now still *export*  M_Matrix_check_class_etc()
672  int M_Matrix_check_class_etc(SEXP x, const char **valid)  int M_Matrix_check_class_etc(SEXP x, const char **valid)
673  {  {
674      REprintf("M_Matrix_check_class_etc() is deprecated; use R_check_class_etc() instead");      REprintf("M_Matrix_check_class_etc() is deprecated; use R_check_class_etc() instead");
# Line 690  Line 690 
690  const char *Matrix_valid_CHMfactor[]={ MATRIX_VALID_CHMfactor, ""};  const char *Matrix_valid_CHMfactor[]={ MATRIX_VALID_CHMfactor, ""};
691    
692  bool Matrix_isclass_Csparse(SEXP x) {  bool Matrix_isclass_Csparse(SEXP x) {
693      return M_Matrix_check_class_etc(x, Matrix_valid_Csparse) >= 0;      return R_check_class_etc(x, Matrix_valid_Csparse) >= 0;
694  }  }
695    
696  bool Matrix_isclass_triplet(SEXP x) {  bool Matrix_isclass_triplet(SEXP x) {
697      return M_Matrix_check_class_etc(x, Matrix_valid_triplet) >= 0;      return R_check_class_etc(x, Matrix_valid_triplet) >= 0;
698  }  }
699    
700  bool Matrix_isclass_ge_dense(SEXP x) {  bool Matrix_isclass_ge_dense(SEXP x) {
701      return M_Matrix_check_class_etc(x, Matrix_valid_ge_dense) >= 0;      return R_check_class_etc(x, Matrix_valid_ge_dense) >= 0;
702  }  }
703  bool Matrix_isclass_ddense(SEXP x) {  bool Matrix_isclass_ddense(SEXP x) {
704      return M_Matrix_check_class_etc(x, Matrix_valid_ddense) >= 0;      return R_check_class_etc(x, Matrix_valid_ddense) >= 0;
705  }  }
706  bool Matrix_isclass_ldense(SEXP x) {  bool Matrix_isclass_ldense(SEXP x) {
707      return M_Matrix_check_class_etc(x, Matrix_valid_ldense) >= 0;      return R_check_class_etc(x, Matrix_valid_ldense) >= 0;
708  }  }
709  bool Matrix_isclass_ndense(SEXP x) {  bool Matrix_isclass_ndense(SEXP x) {
710      return M_Matrix_check_class_etc(x, Matrix_valid_ndense) >= 0;      return R_check_class_etc(x, Matrix_valid_ndense) >= 0;
711  }  }
712  bool Matrix_isclass_dense(SEXP x) {  bool Matrix_isclass_dense(SEXP x) {
713      return M_Matrix_check_class_etc(x, Matrix_valid_dense) >= 0;      return R_check_class_etc(x, Matrix_valid_dense) >= 0;
714  }  }
715    
716  bool Matrix_isclass_CHMfactor(SEXP x) {  bool Matrix_isclass_CHMfactor(SEXP x) {
717      return M_Matrix_check_class_etc(x, Matrix_valid_CHMfactor) >= 0;      return R_check_class_etc(x, Matrix_valid_CHMfactor) >= 0;
718  }  }
719    
720  #ifdef  __cplusplus  #ifdef  __cplusplus

Legend:
Removed from v.3146  
changed lines
  Added in v.3147

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge