The R Project SVN – R – Diff – /trunk/src/include/Defn.h



R_xlen_t  (XTRUELENGTH)(SEXP x);
#endif
 
#ifdef USE_RINTERNALS
 
/* Test macros with function versions in  Rinternals.h , included above  */
#undef isNull
#define isNull(s)	(TYPEOF(s) == NILSXP)
#undef isSymbol
#define isSymbol(s)	(TYPEOF(s) == SYMSXP)
#undef isLogical

#undef isObject
#define isObject(s)	(OBJECT(s) != 0)
 
/* macro version of R_CheckStack */
#define R_CheckStack() do {						\
	NORET void R_SignalCStackOverflow(intptr_t);			\
	int dummy;							\
	intptr_t usage = R_CStackDir * (R_CStackStart - (uintptr_t)&dummy); \
	if(R_CStackLimit != (uintptr_t)(-1) && usage > ((intptr_t) R_CStackLimit)) \
	    R_SignalCStackOverflow(usage);				\
    } while (FALSE)

#ifdef Win32
# define OSTYPE      "windows"
# define FILESEP     "/"
#endif /* Win32 */
 
/* F77_SYMBOL was a minimal version of F77_SUB from RS.h,
   used in main/util.c and main/registration.c
   F77_QSYMBOL is unused
#ifdef HAVE_F77_UNDERSCORE
# define F77_SYMBOL(x)	x ## _
# define F77_QSYMBOL(x)	#x "_"

# define wtransChar2		Rf_wtransChar2
# define yychar			Rf_yychar
# define yylval			Rf_yylval
# define yynerrs		Rf_yynerrs
# define yyparse		Rf_yyparse
 
/* Platform Dependent Gui Hooks */
 
#define	R_CONSOLE	1
#define	R_FILE		2
#define R_TEXT		3

#  define gettext_noop(String) String
#  define N_(String) gettext_noop (String)
# else /* not NLS */
#  define _(String) (String)
#  define N_(String) String
#  define ngettext(String, StringP, N) (N != 1 ? StringP: String)
# endif
#endif
 
/* Macros for suspending interrupts: also in GraphicsDevice.h */
#define BEGIN_SUSPEND_INTERRUPTS do { \

Rev 89944	Rev 89976
Line 853...	Line 853...
853	`R_xlen_t (XTRUELENGTH)(SEXP x);`	853	`R_xlen_t (XTRUELENGTH)(SEXP x);`
854	`#endif`	854	`#endif`
855		855
856	`#ifdef USE_RINTERNALS`	856	`#ifdef USE_RINTERNALS`
857		857
858	`/* Test macros with function versions above */`	858	`/* Test macros with function versions in Rinternals.h , included above */`
859	`#undef isNull`	859	`#undef isNull`
860	`#define isNull(s) (TYPEOF(s) == NILSXP)`	860	`#define isNull(s) (TYPEOF(s) == NILSXP)`
861	`#undef isSymbol`	861	`#undef isSymbol`
862	`#define isSymbol(s) (TYPEOF(s) == SYMSXP)`	862	`#define isSymbol(s) (TYPEOF(s) == SYMSXP)`
863	`#undef isLogical`	863	`#undef isLogical`
Line 875...	Line 875...
875	`#undef isObject`	875	`#undef isObject`
876	`#define isObject(s) (OBJECT(s) != 0)`	876	`#define isObject(s) (OBJECT(s) != 0)`
877		877
878	`/* macro version of R_CheckStack */`	878	`/* macro version of R_CheckStack */`
879	`#define R_CheckStack() do { \`	879	`#define R_CheckStack() do { \`
880	`NORET void R_SignalCStackOverflow(intptr_t); \`	880	`NORET void R_SignalCStackOverflow(intptr_t); \`
881	`int dummy; \`	881	`int dummy; \`
882	`intptr_t usage = R_CStackDir * (R_CStackStart - (uintptr_t)&dummy); \`	882	`intptr_t usage = R_CStackDir * (R_CStackStart - (uintptr_t)&dummy); \`
883	`if(R_CStackLimit != (uintptr_t)(-1) && usage > ((intptr_t) R_CStackLimit)) \`	883	`if(R_CStackLimit != (uintptr_t)(-1) && usage > ((intptr_t) R_CStackLimit)) \`
884	`R_SignalCStackOverflow(usage); \`	884	`R_SignalCStackOverflow(usage); \`
885	`} while (FALSE)`	885	`} while (FALSE)`
Line 996...	Line 996...
996	`#ifdef Win32`	996	`#ifdef Win32`
997	`# define OSTYPE "windows"`	997	`# define OSTYPE "windows"`
998	`# define FILESEP "/"`	998	`# define FILESEP "/"`
999	`#endif /* Win32 */`	999	`#endif /* Win32 */`
1000		1000
1001	`/* F77_SYMBOL was a minimal version of F77_SUB from RS.h,`	1001	`/* F77_SYMBOL was a minimal version of F77_SUB from RS.h,`
1002	`used in main/util.c and main/registration.c`	1002	`used in main/util.c and main/registration.c`
1003	`F77_QSYMBOL is unused`	1003	`F77_QSYMBOL is unused`
1004	`#ifdef HAVE_F77_UNDERSCORE`	1004	`#ifdef HAVE_F77_UNDERSCORE`
1005	`# define F77_SYMBOL(x) x ## _`	1005	`# define F77_SYMBOL(x) x ## _`
1006	`# define F77_QSYMBOL(x) #x "_"`	1006	`# define F77_QSYMBOL(x) #x "_"`
Line 2017...	Line 2017...
2017	`# define wtransChar2 Rf_wtransChar2`	2017	`# define wtransChar2 Rf_wtransChar2`
2018	`# define yychar Rf_yychar`	2018	`# define yychar Rf_yychar`
2019	`# define yylval Rf_yylval`	2019	`# define yylval Rf_yylval`
2020	`# define yynerrs Rf_yynerrs`	2020	`# define yynerrs Rf_yynerrs`
2021	`# define yyparse Rf_yyparse`	2021	`# define yyparse Rf_yyparse`
2022		2022
2023	`/* Platform Dependent Gui Hooks */`	2023	`/* Platform Dependent Gui Hooks */`
2024		2024
2025	`#define R_CONSOLE 1`	2025	`#define R_CONSOLE 1`
2026	`#define R_FILE 2`	2026	`#define R_FILE 2`
2027	`#define R_TEXT 3`	2027	`#define R_TEXT 3`
Line 2526...	Line 2526...
2526	`# define gettext_noop(String) String`	2526	`# define gettext_noop(String) String`
2527	`# define N_(String) gettext_noop (String)`	2527	`# define N_(String) gettext_noop (String)`
2528	`# else /* not NLS */`	2528	`# else /* not NLS */`
2529	`# define _(String) (String)`	2529	`# define _(String) (String)`
2530	`# define N_(String) String`	2530	`# define N_(String) String`
2531	`# define ngettext(String, StringP, N) (N > 1 ? StringP: String)`	2531	`# define ngettext(String, StringP, N) (N != 1 ? StringP: String)`
2532	`# endif`	2532	`# endif`
2533	`#endif`	2533	`#endif`
2534		2534
2535	`/* Macros for suspending interrupts: also in GraphicsDevice.h */`	2535	`/* Macros for suspending interrupts: also in GraphicsDevice.h */`
2536	`#define BEGIN_SUSPEND_INTERRUPTS do { \`	2536	`#define BEGIN_SUSPEND_INTERRUPTS do { \`

The R Project SVN R

(root)/trunk/src/include/Defn.h @ 77458 – Rev 89944 → 89976