SCM

SCM Repository

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

Annotation of /pkg/src/utils.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (view) (download) (as text)

1 : bates 10 /* Utilities needed by some of the libraries */
2 :    
3 :     /* TAUCS utilities */
4 :     #include "R.h"
5 :     #include "taucs/taucs.h"
6 :     /* timers */
7 :     double taucs_wtime() { return 0.0; }
8 :     double taucs_ctime() { return 0.0; }
9 :     /* memory allocation */
10 :     #undef malloc
11 :     #undef calloc
12 :     #undef realloc
13 :     #undef free
14 :    
15 :     void* taucs_malloc_stub (size_t size) { return malloc(size); }
16 :     void* taucs_calloc_stub (size_t nmemb, size_t size) { return calloc(nmemb,size); }
17 :     void* taucs_realloc_stub(void* ptr, size_t size) { return realloc(ptr,size); }
18 :     void taucs_free_stub (void* ptr) { free(ptr); }
19 :    
20 :     double taucs_allocation_amount() { return 0.0; }
21 :     int taucs_allocation_count() { return 0; }
22 :     int taucs_allocation_attempts() { return 0; }
23 :     void taucs_allocation_assert_clean() {}
24 :     void taucs_allocation_mark_clean() {}
25 :     void taucs_allocation_induce_failure(int i) {}
26 :     /* logging */
27 :     int
28 :     taucs_printf(char *fmt, ...)
29 :     {
30 :     return 0;
31 :     }
32 :     /* arithmetic constants */
33 :     double taucs_get_nan() { return R_NaN; }
34 :     double taucs_dzero_const = 0.0;
35 :     double taucs_done_const = 1.0;
36 :     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