SCM

SCM Repository

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

Diff of /pkg/src/Csparse.c

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

revision 1968, Sat Jul 7 22:49:12 2007 UTC revision 2049, Tue Aug 14 22:22:24 2007 UTC
# Line 385  Line 385 
385                                1, 0, Rkind, "",                                1, 0, Rkind, "",
386                                /* FIXME: drops dimnames */ R_NilValue);                                /* FIXME: drops dimnames */ R_NilValue);
387  }  }
388    
389    SEXP Csparse_MatrixMarket(SEXP x, SEXP fname)
390    {
391        FILE *f = fopen(CHAR(asChar(fname)), "w");
392    
393        if (!f)
394            error(_("failure to open file \"%s\" for writing"),
395                  CHAR(asChar(fname)));
396        if (!cholmod_write_sparse(f, AS_CHM_SP(x), (CHM_SP)NULL,
397                                  (char*) NULL, &c))
398            error(_("cholmod_write_sparse returned error code"));
399        fclose(f);
400        return R_NilValue;
401    }

Legend:
Removed from v.1968  
changed lines
  Added in v.2049

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