SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/src/cs_utils.c
ViewVC logotype

Diff of /pkg/Matrix/src/cs_utils.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 62  Line 62 
62  {  {
63      static const char *valid[] = {"dgCMatrix", "dtCMatrix", ""};      static const char *valid[] = {"dgCMatrix", "dtCMatrix", ""};
64      /* had also "dsCMatrix", but that only stores one triangle */      /* had also "dsCMatrix", but that only stores one triangle */
65      int *dims, ctype = Matrix_check_class_etc(x, valid);      int *dims, ctype = R_check_class_etc(x, valid);
66      SEXP islot;      SEXP islot;
67    
68      if (ctype < 0) error(_("invalid class of 'x' in Matrix_as_cs(a, x)"));      if (ctype < 0) error(_("invalid class of 'x' in Matrix_as_cs(a, x)"));
# Line 117  Line 117 
117   *   *
118   * @return SEXP containing a copy of a   * @return SEXP containing a copy of a
119   */   */
120  /* FIXME:  Change API : May need object,  not just class name 'cl' */  // FIXME: Change API : Use object,  not just class name 'cl' -- and use R_check_class(obj, *)
121  SEXP Matrix_cs_to_SEXP(cs *a, char *cl, int dofree, SEXP dn)  SEXP Matrix_cs_to_SEXP(cs *a, char *cl, int dofree, SEXP dn)
122  {  {
123      static const char *valid[] = {"dgCMatrix", "dsCMatrix", "dtCMatrix", ""};      static const char *valid[] = {"dgCMatrix", "dsCMatrix", "dtCMatrix", ""};

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