The R Project SVN R

Rev

Rev 7002 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7002 Rev 7003
Line 21... Line 21...
21 
#ifndef DEFN_H_
 21 
#ifndef DEFN_H_
22 
#define DEFN_H_
 22 
#define DEFN_H_
23 
 
 23 
 
24 
#define COUNTING
 24 
#define COUNTING
25 
 
 25 
 
26 
#include "Rinternals.h"		/*-> Arith.h, Complex.h, Errormsg.h, Memory.h
 26 
#include "Rinternals.h"		/*-> R_ext/Arith.h, Complex.h, Errormsg.h, R_ext/Memory.h
27 
				  PrtUtil.h, Utils.h, Rconfig.h */
 27 
				  PrtUtil.h, Utils.h, Rconfig.h */
- 
 
 28 
#include "Error.h"
- 
 
 29 
#include "Memory.h"
- 
 
 30 
#include "PrtUtil.h"
- 
 
 31 
#include "Utils.h"
28 
 
 32 
 
29 
/*  Heap and Pointer Protection Stack Sizes.  */
 33 
/*  Heap and Pointer Protection Stack Sizes.  */
30 
/*  These values are minima and can be overriden in Rconfig.h	*/
 34 
/*  These values are minima and can be overriden in Rconfig.h	*/
31 
 
 35 
 
32 
#define Mega 1048576. /* 1 Mega Byte := 2^20 (= 1048576) Bytes */
 36 
#define Mega 1048576. /* 1 Mega Byte := 2^20 (= 1048576) Bytes */
Line 67... Line 71...
67 
#ifdef HAVE_LOCALE_H
 71 
#ifdef HAVE_LOCALE_H
68 
#include <locale.h>
 72 
#include <locale.h>
69 
#endif
 73 
#endif
70 
*/
 74 
*/
71 
 
 75 
 
- 
 
 76 
/* Formerly in Arith.h */
- 
 
 77 
#ifdef IEEE_754
- 
 
 78 
# define MATH_CHECK(call)	(call)
- 
 
 79 
#else
- 
 
 80 
# define MATH_CHECK(call)	(errno=0,R_tmp=call,(errno==0)?R_tmp:R_NaN)
- 
 
 81 
#endif
- 
 
 82 
 
- 
 
 83 
 
72 
/* Getting the working directory */
 84 
/* Getting the working directory */
73 
#if defined(HAVE_GETCWD)
 85 
#if defined(HAVE_GETCWD)
74 
#define R_GETCWD(x, y) getcwd(x, y)
 86 
#define R_GETCWD(x, y) getcwd(x, y)
75 
#elif defined(Win32)
 87 
#elif defined(Win32)
76 
#define R_GETCWD(x, y) GetCurrentDirectory(y, x)
 88 
#define R_GETCWD(x, y) GetCurrentDirectory(y, x)