The R Project SVN R

Rev

Rev 3795 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3795 Rev 3876
Line 52... Line 52...
52 
extern void seed_in(long *);
 52 
extern void seed_in(long *);
53 
extern void seed_out(long *);
 53 
extern void seed_out(long *);
54 
extern double unif_rand(void);
 54 
extern double unif_rand(void);
55 
extern double norm_rand(void);
 55 
extern double norm_rand(void);
56 
 
 56 
 
- 
 
 57 
extern void *R_chk_calloc(size_t, size_t);
- 
 
 58 
extern void *R_chk_realloc(void *, size_t);
- 
 
 59 
extern void R_chk_free(void *);
57 
 
 60 
 
58 
#define PROBLEM_BUFSIZE 4096
 61 
#define R_PROBLEM_BUFSIZE 4096
59 
static char problem_buf[PROBLEM_BUFSIZE];
 62 
char R_problem_buf[R_PROBLEM_BUFSIZE];
60 
 
 63 
 
61 
#define NULL_ENTRY
 64 
#define NULL_ENTRY
62 
#define PROBLEM		sprintf(problem_buf,
 65 
#define PROBLEM		sprintf(R_problem_buf,
63 
#define RECOVER(x)	), error(problem_buf)
 66 
#define RECOVER(x)	), error(R_problem_buf)
64 
#define WARNING(x)	), warning(problem_buf)
 67 
#define WARNING(x)	), warning(R_problem_buf)
65 
 
 68 
 
66 
#define Calloc(n, t)   (t *) R_chk_calloc( (size_t) (n), sizeof(t) )
 69 
#define Calloc(n, t)   (t *) R_chk_calloc( (size_t) (n), sizeof(t) )
67 
#define Realloc(p,n,t) (t *) R_chk_realloc( (void *)(p), (size_t)((n) * sizeof(t)) )
 70 
#define Realloc(p,n,t) (t *) R_chk_realloc( (void *)(p), (size_t)((n) * sizeof(t)) )
68 
#define Free(p)        R_chk_free( (void *)(p) )
 71 
#define Free(p)        R_chk_free( (void *)(p) )
69 
#define Memcpy(p,q,n)  memcpy( p, q, (size_t)( (n) * sizeof(*p) ) )
 72 
#define Memcpy(p,q,n)  memcpy( p, q, (size_t)( (n) * sizeof(*p) ) )
Line 89... Line 92...
89 
extern int F77_SYMBOL(dblepr) (char *label, int *nchar,
 92 
extern int F77_SYMBOL(dblepr) (char *label, int *nchar,
90 
			       double *data, int *ndata);
 93 
			       double *data, int *ndata);
91 
extern int F77_SYMBOL(intpr) (char *label, int *nchar,
 94 
extern int F77_SYMBOL(intpr) (char *label, int *nchar,
92 
			      int *data, int *ndata);
 95 
			      int *data, int *ndata);
93 
 
 96 
 
94 
 
 - 
 
95 
 
 - 
 
96 
#ifdef __cplusplus
 97 
#ifdef __cplusplus
97 
}
 98 
}
98 
#endif
 99 
#endif
99 
 
 100 
 
100 
#endif /* !R_S_H */
 101 
#endif /* !R_S_H */
101 
 
 - 
 
102 
 
 - 
 
103 
 
 - 
 
104 
 
 - 
 
105 
 
 -