SCM Repository
[matrix] Diff of /pkg/src/Csparse.c
Diff of /pkg/src/Csparse.c
Parent Directory
| 
Revision Log
| 
Patch
| 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 |
|
|
