/
S.h
96 lines (79 loc) · 2.54 KB
/
S.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
/*
* R : A Computer Langage for Statistical Data Analysis
* Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka
* Copyright (C) 1997--1998, The R Development Core Team.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* Much of this is from Doug Bates.
*/
#ifndef R_S_H
#define R_S_H
#ifndef USING_R
#define USING_R
#define longint int
#endif
#ifdef __cplusplus
extern "C" {
#endif
#include "Platform.h"
#include <stddef.h>
#include <stdlib.h>
#include <stdio.h>
#include <limits.h>
#include <float.h>
#ifdef Macintosh
#include <fp.h>
#else
#include <math.h>
#endif
extern char *S_alloc();
extern void call_R();
#define call_S call_R
extern void seed_in(long *);
extern void seed_out();
extern double unif_rand(void);
extern double norm_rand(void);
extern void error(const char *format,...);
extern void warning(const char *format,...);
#define PROBLEM_BUFSIZE 4096
char problem_buf[PROBLEM_BUFSIZE];
#define NULL_ENTRY
#define PROBLEM sprintf(problem_buf,
#define RECOVER(x) ), error(problem_buf)
#define WARNING(x) ), warning(problem_buf)
#define Calloc(n, t) (t *) calloc( (size_t) (n), sizeof(t) )
#define Realloc(p,n,t) (t *) realloc( (void *)(p), (size_t)((n) * sizeof(t)) )
#define Free(p) free( (void *)(p) )
#define Memcpy(p,q,n) memcpy( p, q, (size_t)( (n) * sizeof(*p) ) )
#define F77_CALL(x) F77_SYMBOL(x)
#define F77_NAME(x) F77_SYMBOL(x)
#define PI M_PI
#define SINGLE_EPS FLT_EPSILON
#define SINGLE_BASE FLT_RADIX
#define SINGLE_XMIN FLT_MIN
#define SINGLE_XMAX FLT_MAX
#define DOUBLE_DIGITS DBL_MANT_DIG
#define DOUBLE_EPS DBL_EPSILON
#define DOUBLE_XMAX DBL_MAX
#define DOUBLE_XMIN DBL_MIN
extern int F77_SYMBOL(dblepr) (char *label, int *nchar,
double *data, int *ndata);
extern int F77_SYMBOL(intpr) (char *label, int *nchar,
int *data, int *ndata);
#ifdef __cplusplus
}
#endif
#endif /* !R_S_H */