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



extern
#endif
FUNTAB	R_FunTab[];	    /* Built in functions */
 
 
#include <R_ext/libextern.h>
 
#ifdef __MAIN__
 
#define INI_as(v) = v
#else
#define INI_as(v)
#endif
 

extern int	R_NSize		INI_as(R_NSIZE);/* Size of cons cell heap */
extern int	R_VSize		INI_as(R_VSIZE);/* Size of the vector heap */
extern SEXP	R_NHeap;	    /* Start of the cons cell heap */
extern SEXP	R_FreeSEXP;	    /* Cons cell free list */
extern long	R_Collected;	    /* Number of free cons cells (after gc) */
LibExtern SEXP	R_PreciousList;	    /* List of Persistent Objects */
LibExtern int	R_Is_Running;	    /* for Windows memory manager */
 
/* The Pointer Protection Stack */
extern int	R_PPStackSize	INI_as(R_PPSSIZE); /* The stack size (elements) */
extern int	R_PPStackTop;	    /* The top of the stack */
extern SEXP*	R_PPStack;	    /* The pointer protection stack */
 
/* Evaluation Environment */
LibExtern SEXP	R_CurrentExpr;	    /* Currently evaluating expression */
extern SEXP	R_ReturnedValue;    /* Slot for return-ing values */
extern SEXP*	R_SymbolTable;	    /* The symbol table */
extern RCNTXT	R_Toplevel;	    /* Storage for the toplevel environment */
extern RCNTXT*	R_ToplevelContext;  /* The toplevel environment */
extern RCNTXT*	R_GlobalContext;    /* The global environment */
LibExtern int	R_Visible;	    /* Value visibility flag */
LibExtern int	R_EvalDepth	INI_as(0);	/* Evaluation recursion depth */
extern int	R_EvalCount	INI_as(0);	/* Evaluation count */
extern int	R_BrowseLevel	INI_as(0);	/* how deep the browser is */
 
extern int	R_Expressions	INI_as(500);	/* options(expressions) */
extern Rboolean	R_KeepSource	INI_as(FALSE);	/* options(keep.source) */
 
/* File Input/Output */
LibExtern Rboolean R_Interactive	INI_as(TRUE);	/* TRUE during interactive use*/
extern Rboolean	R_Quiet		INI_as(FALSE);	/* Be as quiet as possible */
extern Rboolean	R_Slave		INI_as(FALSE);	/* Run as a slave process */
extern Rboolean	R_Verbose	INI_as(FALSE);	/* Be verbose */
/* extern int	R_Console; */	    /* Console active flag */
/* IoBuffer R_ConsoleIob; : --> ./IOStuff.h */

 
/* Image Dump/Restore */
extern int	R_DirtyImage	INI_as(0);	/* Current image dirty */
 
/* History */
LibExtern char*	R_HistoryFile;	/* Name of the history file */
LibExtern int	R_HistorySize;	/* Size of the history file */
LibExtern int	R_RestoreHistory;	/* restore the history file? */
 
/* Warnings/Errors */
extern int	R_CollectWarnings INI_as(0);	/* the number of warnings */
extern SEXP	R_Warnings;	    /* the warnings and their calls */
extern int	R_ShowErrorMessages INI_as(1);	/* show error messages? */

 
extern char*	R_GUIType	INI_as("unknown");
 
#ifdef __MAIN__
#undef extern
#undef LibExtern
#endif
#undef INI_as
 
 
/*--- FUNCTIONS ------------------------------------------------------ */

The R Project SVN R

(root)/trunk/src/include/Defn.h – Rev 15459 → 15716

Rev 15459		Rev 15716
Line 370...		Line 370...
370	`extern`	370	`extern`
371	`#endif`	371	`#endif`
372	`FUNTAB R_FunTab[]; /* Built in functions */`	372	`FUNTAB R_FunTab[]; /* Built in functions */`
373		373
374		374
-		375	`#include <R_ext/libextern.h>`
-		376
375	`#ifdef __MAIN__`	377	`#ifdef __MAIN__`
376	`#define extern`	-
377	`#define INI_as(v) = v`	378	`#define INI_as(v) = v`
378	`#else`	379	`#else`
379	`#define INI_as(v)`	380	`#define INI_as(v)`
380	`#endif`	381	`#endif`
381		382
Line 397...		Line 398...
397	`extern int R_NSize INI_as(R_NSIZE);/* Size of cons cell heap */`	398	`extern int R_NSize INI_as(R_NSIZE);/* Size of cons cell heap */`
398	`extern int R_VSize INI_as(R_VSIZE);/* Size of the vector heap */`	399	`extern int R_VSize INI_as(R_VSIZE);/* Size of the vector heap */`
399	`extern SEXP R_NHeap; /* Start of the cons cell heap */`	400	`extern SEXP R_NHeap; /* Start of the cons cell heap */`
400	`extern SEXP R_FreeSEXP; /* Cons cell free list */`	401	`extern SEXP R_FreeSEXP; /* Cons cell free list */`
401	`extern long R_Collected; /* Number of free cons cells (after gc) */`	402	`extern long R_Collected; /* Number of free cons cells (after gc) */`
402	`extern SEXP R_PreciousList; /* List of Persistent Objects */`	403	`LibExtern SEXP R_PreciousList; /* List of Persistent Objects */`
-		404	`LibExtern int R_Is_Running; /* for Windows memory manager */`
403		405
404	`/* The Pointer Protection Stack */`	406	`/* The Pointer Protection Stack */`
405	`extern int R_PPStackSize INI_as(R_PPSSIZE); /* The stack size (elements) */`	407	`extern int R_PPStackSize INI_as(R_PPSSIZE); /* The stack size (elements) */`
406	`extern int R_PPStackTop; /* The top of the stack */`	408	`extern int R_PPStackTop; /* The top of the stack */`
407	`extern SEXP* R_PPStack; /* The pointer protection stack */`	409	`extern SEXP* R_PPStack; /* The pointer protection stack */`
408		410
409	`/* Evaluation Environment */`	411	`/* Evaluation Environment */`
410	`extern SEXP R_CurrentExpr; /* Currently evaluating expression */`	412	`LibExtern SEXP R_CurrentExpr; /* Currently evaluating expression */`
411	`extern SEXP R_ReturnedValue; /* Slot for return-ing values */`	413	`extern SEXP R_ReturnedValue; /* Slot for return-ing values */`
412	`extern SEXP* R_SymbolTable; /* The symbol table */`	414	`extern SEXP* R_SymbolTable; /* The symbol table */`
413	`extern RCNTXT R_Toplevel; /* Storage for the toplevel environment */`	415	`extern RCNTXT R_Toplevel; /* Storage for the toplevel environment */`
414	`extern RCNTXT* R_ToplevelContext; /* The toplevel environment */`	416	`extern RCNTXT* R_ToplevelContext; /* The toplevel environment */`
415	`extern RCNTXT* R_GlobalContext; /* The global environment */`	417	`extern RCNTXT* R_GlobalContext; /* The global environment */`
416	`extern int R_Visible; /* Value visibility flag */`	418	`LibExtern int R_Visible; /* Value visibility flag */`
417	`extern int R_EvalDepth INI_as(0); /* Evaluation recursion depth */`	419	`LibExtern int R_EvalDepth INI_as(0); /* Evaluation recursion depth */`
418	`extern int R_EvalCount INI_as(0); /* Evaluation count */`	420	`extern int R_EvalCount INI_as(0); /* Evaluation count */`
419	`extern int R_BrowseLevel INI_as(0); /* how deep the browser is */`	421	`extern int R_BrowseLevel INI_as(0); /* how deep the browser is */`
420		422
421	`extern int R_Expressions INI_as(500); /* options(expressions) */`	423	`extern int R_Expressions INI_as(500); /* options(expressions) */`
422	`extern Rboolean R_KeepSource INI_as(FALSE); /* options(keep.source) */`	424	`extern Rboolean R_KeepSource INI_as(FALSE); /* options(keep.source) */`
423		425
424	`/* File Input/Output */`	426	`/* File Input/Output */`
425	`extern Rboolean R_Interactive INI_as(TRUE); /* TRUE during interactive use*/`	427	`LibExtern Rboolean R_Interactive INI_as(TRUE); /* TRUE during interactive use*/`
426	`extern Rboolean R_Quiet INI_as(FALSE); /* Be as quiet as possible */`	428	`extern Rboolean R_Quiet INI_as(FALSE); /* Be as quiet as possible */`
427	`extern Rboolean R_Slave INI_as(FALSE); /* Run as a slave process */`	429	`extern Rboolean R_Slave INI_as(FALSE); /* Run as a slave process */`
428	`extern Rboolean R_Verbose INI_as(FALSE); /* Be verbose */`	430	`extern Rboolean R_Verbose INI_as(FALSE); /* Be verbose */`
429	`/* extern int R_Console; / / Console active flag */`	431	`/* extern int R_Console; / / Console active flag */`
430	`/* IoBuffer R_ConsoleIob; : --> ./IOStuff.h */`	432	`/* IoBuffer R_ConsoleIob; : --> ./IOStuff.h */`
Line 440...		Line 442...
440		442
441	`/* Image Dump/Restore */`	443	`/* Image Dump/Restore */`
442	`extern int R_DirtyImage INI_as(0); /* Current image dirty */`	444	`extern int R_DirtyImage INI_as(0); /* Current image dirty */`
443		445
444	`/* History */`	446	`/* History */`
445	`extern char* R_HistoryFile; /* Name of the history file */`	447	`LibExtern char* R_HistoryFile; /* Name of the history file */`
446	`extern int R_HistorySize; /* Size of the history file */`	448	`LibExtern int R_HistorySize; /* Size of the history file */`
447	`extern int R_RestoreHistory; /* restore the history file? */`	449	`LibExtern int R_RestoreHistory; /* restore the history file? */`
448		450
449	`/* Warnings/Errors */`	451	`/* Warnings/Errors */`
450	`extern int R_CollectWarnings INI_as(0); /* the number of warnings */`	452	`extern int R_CollectWarnings INI_as(0); /* the number of warnings */`
451	`extern SEXP R_Warnings; /* the warnings and their calls */`	453	`extern SEXP R_Warnings; /* the warnings and their calls */`
452	`extern int R_ShowErrorMessages INI_as(1); /* show error messages? */`	454	`extern int R_ShowErrorMessages INI_as(1); /* show error messages? */`
Line 455...		Line 457...
455		457
456	`extern char* R_GUIType INI_as("unknown");`	458	`extern char* R_GUIType INI_as("unknown");`
457		459
458	`#ifdef __MAIN__`	460	`#ifdef __MAIN__`
459	`#undef extern`	461	`#undef extern`
-		462	`#undef LibExtern`
460	`#endif`	463	`#endif`
461	`#undef INI_as`	464	`#undef INI_as`
462		465
463		466
464	`/--- FUNCTIONS ------------------------------------------------------ /`	467	`/--- FUNCTIONS ------------------------------------------------------ /`