SCM

SCM Repository

[matrix] View of /pkg/src/utils.c
ViewVC logotype

View of /pkg/src/utils.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (download) (as text) (annotate)
Mon Mar 22 20:20:05 2004 UTC (15 years, 3 months ago) by bates
File size: 1128 byte(s)
Initial import
/* Utilities needed by some of the libraries */

/* TAUCS utilities */
#include "R.h"
#include "taucs/taucs.h"
				/* timers */
double taucs_wtime() { return 0.0; }
double taucs_ctime() { return 0.0; }
				/* memory allocation */
#undef malloc
#undef calloc
#undef realloc
#undef free

void* taucs_malloc_stub (size_t size)               { return malloc(size); }
void* taucs_calloc_stub (size_t nmemb, size_t size) { return calloc(nmemb,size); }
void* taucs_realloc_stub(void* ptr, size_t size)    { return realloc(ptr,size); }
void  taucs_free_stub   (void* ptr)                 { free(ptr); }

double taucs_allocation_amount()   { return 0.0; }
int    taucs_allocation_count()    { return 0; }
int    taucs_allocation_attempts() { return 0; }
void   taucs_allocation_assert_clean() {}
void   taucs_allocation_mark_clean() {}
void   taucs_allocation_induce_failure(int i) {}
				/* logging */
int
taucs_printf(char *fmt, ...)
{
    return 0;
}
				/* arithmetic constants */
double taucs_get_nan() { return R_NaN; }
double taucs_dzero_const     =  0.0;
double taucs_done_const      =  1.0;
double taucs_dminusone_const = -1.0;

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