/* * R : A Computer Language for Statistical Data Analysis * Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka * Copyright (C) 1998--2005 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef DEFN_H_ #define DEFN_H_ #if defined(HAVE_GLIBC2) /* The first three are the default, according to features.h */ # define _SVID_SOURCE 1 # define _BSD_SOURCE 1 # define _POSIX_SOURCE 1 /* add latest POSIX 1003.1 and C99 support */ # define _POSIX_C_SOURCE 200112L # define _ISOC99_SOURCE 1 #endif #define COUNTING #define BYTECODE #define NEW_CONDITION_HANDLING /* To test the write barrier used by the generational collector, define TESTING_WRITE_BARRIER. This makes the internal structure of SEXPRECs visible only inside of files that explicitly define USE_RINTERNALS, and all uses of SEXPREC fields that do not go through the appropriate functions or macros will become compilation errors. Since this does impose a small but noticable performance penalty, code that includes Defn.h (or code that explicitly defines USE_RINTERNALS) can access a SEXPREC's fields directly. */ #ifndef TESTING_WRITE_BARRIER # define USE_RINTERNALS #endif #include /*-> Arith.h, Complex.h, Error.h, Memory.h PrtUtil.h, Utils.h */ #include "Internal.h" /* do_FOO */ #include "Errormsg.h" /* SunOS 4 is famous for broken header files. */ #ifdef SunOS4 # ifndef NULL # define NULL 0 # endif #endif /* SunOS4 */ #ifdef Win32 void R_ProcessEvents(void); #endif /* Win32 */ #ifdef Win32 # include #else # include # include #endif #ifdef Unix # define OSTYPE "unix" # define FILESEP "/" #endif /* Unix */ #ifdef Win32 # define OSTYPE "windows" # define FILESEP "/" #endif /* Win32 */ #ifdef HAVE_F77_UNDERSCORE # define F77_SYMBOL(x) x ## _ # define F77_QSYMBOL(x) #x "_" #else # define F77_SYMBOL(x) x # define F77_QSYMBOL(x) #x #endif /* Heap and Pointer Protection Stack Sizes. */ /* These are for future protection: will need to be different on Win64 */ typedef unsigned long R_ulong_t; typedef long R_long_t; /* NB: will need a 64-bit type, ULONG64 or size_t, for Win64 */ #if defined HAVE_DECL_SIZE_MAX && HAVE_DECL_SIZE_MAX # ifdef HAVE_INTTYPES_H # include # endif # ifdef HAVE_STDINT_H # include # endif # ifdef HAVE_LIMITS_H # include # endif typedef size_t R_size_t; /* final precaution in case we don't have the right headers */ # ifdef SIZE_MAX # define R_SIZE_T_MAX SIZE_MAX # else # define R_SIZE_T_MAX ULONG_MAX # endif #else typedef unsigned long R_size_t; # define R_SIZE_T_MAX ULONG_MAX #endif #define Mega 1048576. /* 1 Mega Byte := 2^20 (= 1048576) Bytes */ #define Giga 1073741824. /* 1 Giga Byte := 2^30 Bytes */ /* R_PPSSIZE The pointer protection stack size */ /* R_NSIZE The number of cons cells */ /* R_VSIZE The vector heap size in bytes */ /* These values are defaults and can be overridden in config.h The maxima and minima are in ../unix/sys-common.c */ #ifndef R_PPSSIZE #define R_PPSSIZE 50000L #endif #ifndef R_NSIZE #define R_NSIZE 350000L #endif #ifndef R_VSIZE #define R_VSIZE 6291456L #endif #include /* declare substitutions */ #if defined(HAVE_DECL_ACOSH) && !HAVE_DECL_ACOSH extern double acosh(double x); #endif #if defined(HAVE_DECL_ASINH) && !HAVE_DECL_ASINH extern double asinh(double x); #endif #if defined(HAVE_DECL_ATANH) && !HAVE_DECL_ATANH extern double atanh(double x); #endif #if defined(HAVE_DECL_SNPRINTF) && !HAVE_DECL_SNPRINTF extern int snprintf (char *s, size_t n, const char *format, ...); #endif #if defined(HAVE_DECL_STRDUP) && !HAVE_DECL_STRDUP #undef strdup extern char *strdup(const char *s1); #endif #if defined(HAVE_DECL_STRNCASECMP) && !HAVE_DECL_STRNCASECMP extern int strncasecmp(const char *s1, const char *s2, size_t n); #endif #if defined(HAVE_DECL_VSNPRINTF) && !HAVE_DECL_VSNPRINTF extern int vsnprintf (char *str, size_t count, const char *fmt, va_list arg); #endif /* Getting the working directory */ #if defined(HAVE_GETCWD) # define R_GETCWD(x, y) getcwd(x, y) #elif defined(Win32) # define R_GETCWD(x, y) GetCurrentDirectory(y, x) #else # undef R_GETCWD #endif /* Maximal length of an entire file name */ #if !defined(PATH_MAX) # if defined(HAVE_SYS_PARAM_H) # include # endif # if !defined(PATH_MAX) # if defined(MAXPATHLEN) # define PATH_MAX MAXPATHLEN # elif defined(Win32) # define PATH_MAX 260 # else /* quite possibly unlimited, so we make this large, and test when used */ # define PATH_MAX 5000 # endif # endif #endif #ifdef HAVE_POSIX_SETJMP # define SIGJMP_BUF sigjmp_buf # define SIGSETJMP(x,s) sigsetjmp(x,s) # define SIGLONGJMP(x,i) siglongjmp(x,i) # define JMP_BUF sigjmp_buf # define SETJMP(x) sigsetjmp(x,0) # define LONGJMP(x,i) siglongjmp(x,i) #else # define SIGJMP_BUF jmp_buf # define SIGSETJMP(x,s) setjmp(x) # define SIGLONGJMP(x,i) longjmp(x,i) # define JMP_BUF jmp_buf # define SETJMP(x) setjmp(x) # define LONGJMP(x,i) longjmp(x,i) #endif /* Availability of timing: on Unix, we need times(2). On Windows and the Mac, we can do without. */ #if (defined(HAVE_TIMES) || defined(Win32)) # define _R_HAVE_TIMING_ 1 #endif #include #define HSIZE 4119 /* The size of the hash table for symbols */ #define MAXELTSIZE 8192 /* The largest string size */ #define MAXIDSIZE 256 /* Largest symbol size possible */ /* The type of the do_xxxx functions. */ /* These are the built-in R functions. */ typedef SEXP (*CCODE)(); /* Information for Deparsing Expressions */ typedef enum { PP_ASSIGN = 1, PP_ASSIGN2 = 2, PP_BINARY = 3, PP_BINARY2 = 4, PP_BREAK = 5, PP_CURLY = 6, PP_FOR = 7, PP_FUNCALL = 8, PP_FUNCTION = 9, PP_IF = 10, PP_NEXT = 11, PP_PAREN = 12, PP_RETURN = 13, PP_SUBASS = 14, PP_SUBSET = 15, PP_WHILE = 16, PP_UNARY = 17, PP_DOLLAR = 18, PP_FOREIGN = 19, PP_REPEAT = 20 } PPkind; typedef enum { PREC_FN = 0, PREC_LEFT = 1, PREC_EQ = 2, PREC_RIGHT = 3, PREC_TILDE = 4, PREC_OR = 5, PREC_AND = 6, PREC_NOT = 7, PREC_COMPARE = 8, PREC_SUM = 9, PREC_PROD = 10, PREC_PERCENT = 11, PREC_COLON = 12, PREC_SIGN = 13, PREC_POWER = 14, PREC_DOLLAR = 15, PREC_NS = 16, PREC_SUBSET = 17 } PPprec; typedef struct { PPkind kind; /* deparse kind */ PPprec precedence; /* operator precedence */ unsigned int rightassoc; /* right associative? */ } PPinfo; /* The type definitions for the table of built-in functions. */ /* This table can be found in ../main/names.c */ typedef struct { char *name; /* print name */ CCODE cfun; /* c-code address */ int code; /* offset within c-code */ int eval; /* evaluate args? */ int arity; /* function arity */ PPinfo gram; /* pretty-print info */ } FUNTAB; #ifdef USE_RINTERNALS /* General Cons Cell Attributes */ #define ATTRIB(x) ((x)->attrib) #define OBJECT(x) ((x)->sxpinfo.obj) #define MARK(x) ((x)->sxpinfo.mark) #define TYPEOF(x) ((x)->sxpinfo.type) #define NAMED(x) ((x)->sxpinfo.named) /* Primitive Access Macros */ #define PRIMOFFSET(x) ((x)->u.primsxp.offset) #define PRIMFUN(x) (R_FunTab[(x)->u.primsxp.offset].cfun) #define PRIMNAME(x) (R_FunTab[(x)->u.primsxp.offset].name) #define PRIMVAL(x) (R_FunTab[(x)->u.primsxp.offset].code) #define PRIMARITY(x) (R_FunTab[(x)->u.primsxp.offset].arity) #define PPINFO(x) (R_FunTab[(x)->u.primsxp.offset].gram) #define PRIMPRINT(x) (((R_FunTab[(x)->u.primsxp.offset].eval)/100)%10) /* Promise Access Macros */ #define PRCODE(x) ((x)->u.promsxp.expr) #define PRENV(x) ((x)->u.promsxp.env) #define PRVALUE(x) ((x)->u.promsxp.value) #define PRSEEN(x) ((x)->sxpinfo.gp) #ifndef USE_WRITE_BARRIER # define SET_PRENV(x,v) (((x)->u.promsxp.env)=(v)) # define SET_PRVALUE(x,v) (((x)->u.promsxp.value)=(v)) #endif #define SET_PRSEEN(x,v) (((x)->sxpinfo.gp)=(v)) /* Hashing Macros */ #define HASHASH(x) ((x)->sxpinfo.gp) #define HASHVALUE(x) TRUELENGTH(x) #define SET_HASHASH(x,v) (((x)->sxpinfo.gp)=(v)) #define SET_HASHVALUE(x,v) SET_TRUELENGTH(x, v) /* Vector Heap Structure */ typedef struct { union { SEXP backpointer; double align; } u; } VECREC, *VECP; /* Vector Heap Macros */ #define BACKPOINTER(v) ((v).u.backpointer) #define BYTE2VEC(n) (((n)>0)?(((n)-1)/sizeof(VECREC)+1):0) #define INT2VEC(n) (((n)>0)?(((n)*sizeof(int)-1)/sizeof(VECREC)+1):0) #define FLOAT2VEC(n) (((n)>0)?(((n)*sizeof(double)-1)/sizeof(VECREC)+1):0) #define COMPLEX2VEC(n) (((n)>0)?(((n)*sizeof(Rcomplex)-1)/sizeof(VECREC)+1):0) #define PTR2VEC(n) (((n)>0)?(((n)*sizeof(SEXP)-1)/sizeof(VECREC)+1):0) #else typedef struct VECREC *VECP; #define PRIMFUN(x) (R_FunTab[PRIMOFFSET(x)].cfun) #define PRIMNAME(x) (R_FunTab[PRIMOFFSET(x)].name) #define PRIMVAL(x) (R_FunTab[PRIMOFFSET(x)].code) #define PRIMARITY(x) (R_FunTab[PRIMOFFSET(x)].arity) #define PPINFO(x) (R_FunTab[PRIMOFFSET(x)].gram) #define PRIMPRINT(x) (((R_FunTab[PRIMOFFSET(x)].eval)/100)%10) #endif #ifdef BYTECODE # ifdef BC_INT_STACK typedef union { void *p; int i; } IStackval; # endif #endif /* Evaluation Context Structure */ typedef struct RCNTXT { struct RCNTXT *nextcontext; /* The next context up the chain */ int callflag; /* The context "type" */ JMP_BUF cjmpbuf; /* C stack and register information */ int cstacktop; /* Top of the pointer protection stack */ int evaldepth; /* evaluation depth at inception */ SEXP promargs; /* Promises supplied to closure */ SEXP callfun; /* The closure called */ SEXP sysparent; /* environment the closure was called from */ SEXP call; /* The call that effected this context*/ SEXP cloenv; /* The environment */ SEXP conexit; /* Interpreted "on.exit" code */ void (*cend)(void *); /* C "on.exit" thunk */ void *cenddata; /* data for C "on.exit" thunk */ char *vmax; /* top of R_alloc stack */ int intsusp; /* interrupts enables */ #ifdef NEW_CONDITION_HANDLING SEXP handlerstack; /* condition handler stack */ SEXP restartstack; /* stack of available restarts */ #endif #ifdef BYTECODE SEXP *nodestack; # ifdef BC_INT_STACK IStackval *intstack; # endif #endif } RCNTXT, *context; /* The Various Context Types. * In general the type is a bitwise OR of the values below. * Note that CTXT_LOOP is already the or of CTXT_NEXT and CTXT_BREAK. * Only functions should have the third bit turned on; * this allows us to move up the context stack easily * with either RETURN's or GENERIC's or RESTART's. * If you add a new context type for functions make sure * CTXT_NEWTYPE & CTXT_FUNCTION > 0 */ enum { CTXT_TOPLEVEL = 0, CTXT_NEXT = 1, CTXT_BREAK = 2, CTXT_LOOP = 3, /* break OR next target */ CTXT_FUNCTION = 4, CTXT_CCODE = 8, CTXT_RETURN = 12, CTXT_BROWSER = 16, CTXT_GENERIC = 20, CTXT_RESTART = 32, CTXT_BUILTIN = 64 /* used in profiling */ }; /* TOP 0 0 0 0 0 0 = 0 NEX 1 0 0 0 0 0 = 1 BRE 0 1 0 0 0 0 = 2 LOO 1 1 0 0 0 0 = 3 FUN 0 0 1 0 0 0 = 4 CCO 0 0 0 1 0 0 = 8 BRO 0 0 0 0 1 0 = 16 RET 0 0 1 1 0 0 = 12 GEN 0 0 1 0 1 0 = 20 RES 0 0 0 0 0 0 1 = 32 BUI 0 0 0 0 0 0 0 1 = 64 */ #define IS_RESTART_BIT_SET(flags) ((flags) & CTXT_RESTART) #define SET_RESTART_BIT_ON(flags) (flags |= CTXT_RESTART) #define SET_RESTART_BIT_OFF(flags) (flags &= ~CTXT_RESTART) /* Miscellaneous Definitions */ #define streql(s, t) (!strcmp((s), (t))) /* Arithmetic and Relation Operators */ typedef enum { PLUSOP = 1, MINUSOP, TIMESOP, DIVOP, POWOP, MODOP, IDIVOP } ARITHOP_TYPE; typedef enum { EQOP = 1, NEOP, LTOP, LEOP, GEOP, GTOP } RELOP_TYPE; /* File Handling */ /* #define R_EOF 65535 */ #define R_EOF -1 /* MAGIC Numbers for files */ #define R_MAGIC_BINARY 1975 #define R_MAGIC_ASCII 1976 #define R_MAGIC_XDR 1977 #define R_MAGIC_BINARY_VERSION16 1971 #define R_MAGIC_ASCII_VERSION16 1972 /*--- Global Variables ---------------------------------------------------- */ /* Defined and initialized in names.c (not main.c) :*/ #ifndef __R_Names__ extern #endif FUNTAB R_FunTab[]; /* Built in functions */ #include #ifdef __MAIN__ # define INI_as(v) = v #else # define INI_as(v) #endif /* extern int errno; already have errno.h ! */ extern int gc_inhibit_torture INI_as(1); LibExtern Rboolean R_interrupts_suspended INI_as(FALSE); LibExtern int R_interrupts_pending INI_as(0); /* R Home Directory */ LibExtern char* R_Home; /* Root of the R tree */ /* Memory Management */ extern R_size_t R_NSize INI_as(R_NSIZE);/* Size of cons cell heap */ extern R_size_t 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 R_size_t 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 */ LibExtern RCNTXT R_Toplevel; /* Storage for the toplevel environment */ LibExtern RCNTXT* R_ToplevelContext; /* The toplevel environment */ LibExtern 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_BrowseLevel INI_as(0); /* how deep the browser is */ extern int R_Expressions INI_as(5000); /* options(expressions) */ extern Rboolean R_KeepSource INI_as(FALSE); /* options(keep.source) */ extern int R_UseNamespaceDispatch INI_as(TRUE); extern int R_WarnLength INI_as(1000); /* Error/warning max length */ extern unsigned long R_CStackLimit INI_as(-1); /* C stack limit */ extern unsigned long R_CStackStart INI_as(-1); /* Initial stack address */ extern int R_CStackDir INI_as(1); /* C stack direction */ /* 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 */ extern FILE* R_Consolefile INI_as(NULL); /* Console output file */ extern FILE* R_Outputfile INI_as(NULL); /* Output file */ extern int R_ErrorCon INI_as(2); /* Error connection */ LibExtern char* R_TempDir INI_as(NULL); /* Name of per-session dir */ extern char R_StdinEnc[31] INI_as(""); /* Encoding assumed for stdin */ /* Objects Used In Parsing */ extern SEXP R_CommentSxp; /* Comments accumulate here */ extern SEXP R_ParseText; /* Text to be parsed */ extern int R_ParseCnt; /* Count of lines of text to be parsed */ extern int R_ParseError INI_as(0); /* Line where parse error occured */ #define PARSE_CONTEXT_SIZE 256 /* Recent parse context kept in a circular buffer */ extern char R_ParseContext[PARSE_CONTEXT_SIZE] INI_as(""); extern int R_ParseContextLast INI_as(0); /* last character in context buffer */ /* 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? */ extern void R_setupHistory(); /* 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? */ #ifdef NEW_CONDITION_HANDLING extern SEXP R_HandlerStack; /* Condition handler stack */ extern SEXP R_RestartStack; /* Stack of available restarts */ #endif LibExtern Rboolean utf8locale INI_as(FALSE); /* is this a UTF-8 locale? */ LibExtern Rboolean mbcslocale INI_as(FALSE); /* is this a MBCS locale? */ extern char OutDec INI_as('.'); /* decimal point used for output */ /* Initialization of the R environment when it is embedded */ extern int Rf_initEmbeddedR(int argc, char **argv); /* GUI type */ extern char* R_GUIType INI_as("unknown"); #ifdef BYTECODE #define R_BCNODESTACKSIZE 10000 extern SEXP *R_BCNodeStackBase, *R_BCNodeStackTop, *R_BCNodeStackEnd; # ifdef BC_INT_STACK #define R_BCINTSTACKSIZE 10000 extern IStackval *R_BCIntStackBase, *R_BCIntStackTop, *R_BCIntStackEnd; # endif #endif /* Pointer type and utilities for dispatch in the methods package */ typedef SEXP (*R_stdGen_ptr_t)(SEXP, SEXP, SEXP); /* typedef */ R_stdGen_ptr_t R_get_standardGeneric_ptr(); /* get method */ R_stdGen_ptr_t R_set_standardGeneric_ptr(R_stdGen_ptr_t, SEXP); /* set method */ extern SEXP R_MethodsNamespace; SEXP R_deferred_default_method(); SEXP R_set_prim_method(SEXP fname, SEXP op, SEXP code_vec, SEXP fundef, SEXP mlist); SEXP do_set_prim_method(SEXP op, char *code_string, SEXP fundef, SEXP mlist); void R_set_quick_method_check(R_stdGen_ptr_t); SEXP R_primitive_methods(SEXP op); /* slot management (in attrib.c) */ SEXP R_do_slot(SEXP obj, SEXP name); SEXP R_do_slot_assign(SEXP obj, SEXP name, SEXP value); /* smallest decimal exponent, needed in format.c, set in Init_R_Machine */ extern int R_dec_min_exponent INI_as(-308); #ifdef __MAIN__ # undef extern # undef LibExtern #endif #undef INI_as /*--- FUNCTIONS ------------------------------------------------------ */ # define begincontext Rf_begincontext # define checkArity Rf_checkArity # define CheckFormals Rf_CheckFormals # define CleanEd Rf_CleanEd # define DataFrameClass Rf_DataFrameClass # define ddfindVar Rf_ddfindVar # define deparse1 Rf_deparse1 # define deparse1line Rf_deparse1line # define DispatchGroup Rf_DispatchGroup # define DispatchOrEval Rf_DispatchOrEval # define dynamicfindVar Rf_dynamicfindVar # define EncodeRaw Rf_EncodeRaw # define EncodeString Rf_EncodeString # define endcontext Rf_endcontext # define errorcall Rf_errorcall # define ErrorMessage Rf_ErrorMessage # define factorsConform Rf_factorsConform # define FetchMethod Rf_FetchMethod # define findcontext Rf_findcontext # define findVar1 Rf_findVar1 # define FrameClassFix Rf_FrameClassFix # define framedepth Rf_framedepth # define frameSubscript Rf_frameSubscript # define get1index Rf_get1index # define getVar Rf_getVar # define getVarInFrame Rf_getVarInFrame # define hashpjw Rf_hashpjw # define InheritsClass Rf_InheritsClass # define InitArithmetic Rf_InitArithmetic # define InitColors Rf_InitColors # define InitConnections Rf_InitConnections # define InitEd Rf_InitEd # define InitFunctionHashing Rf_InitFunctionHashing # define InitBaseEnv Rf_InitBaseEnv # define InitGlobalEnv Rf_InitGlobalEnv # define InitMemory Rf_InitMemory # define InitNames Rf_InitNames # define InitOptions Rf_InitOptions # define InitTempDir Rf_InitTempDir # define initStack Rf_initStack # define internalTypeCheck Rf_internalTypeCheck # define isValidName Rf_isValidName # define jump_to_toplevel Rf_jump_to_toplevel # define levelsgets Rf_levelsgets # define mainloop Rf_mainloop # define ParseBrowser Rf_ParseBrowser # define mat2indsub Rf_mat2indsub # define Mbrtowc Rf_mbrtowc # define mkCLOSXP Rf_mkCLOSXP # define mkComplex Rf_mkComplex # define mkFalse Rf_mkFalse # define mkFloat Rf_mkFloat # define mkNA Rf_mkNA # define mkPROMISE Rf_mkPROMISE # define mkQUOTE Rf_mkQUOTE # define mkSYMSXP Rf_mkSYMSXP # define mkTrue Rf_mkTrue # define NewEnvironment Rf_NewEnvironment # define OneIndex Rf_OneIndex # define onintr Rf_onintr # define onsigusr1 Rf_onsigusr1 # define onsigusr2 Rf_onsigusr2 # define parse Rf_parse # define PrintGreeting Rf_PrintGreeting # define PrintVersion Rf_PrintVersion # define PrintWarnings Rf_PrintWarnings # define promiseArgs Rf_promiseArgs # define RemoveClass Rf_RemoveClass # define setVarInFrame Rf_setVarInFrame # define sortVector Rf_sortVector # define ssort Rf_ssort # define str2type Rf_str2type # define StrToInternal Rf_StrToInternal # define substituteList Rf_substituteList # define tsConform Rf_tsConform # define tspgets Rf_tspgets # define type2str Rf_type2str # define type2symbol Rf_type2symbol # define unbindVar Rf_unbindVar # define usemethod Rf_usemethod # define warningcall Rf_warningcall # define WarningMessage Rf_WarningMessage # define yyerror Rf_yyerror # define yyinit Rf_yyinit # define yylex Rf_yylex # define yyparse Rf_yyparse # define yyprompt Rf_yyprompt # define yywrap Rf_yywrap /* Platform Dependent Gui Hooks */ #define R_CONSOLE 1 #define R_FILE 2 #define R_TEXT 3 int R_ReadConsole(char*, unsigned char*, int, int); void R_WriteConsole(char*, int); void R_ResetConsole(void); void R_FlushConsole(void); void R_ClearerrConsole(void); void R_Busy(int); int R_ShowFiles(int, char **, char **, char *, Rboolean, char *); int R_EditFiles(int, char **, char **, char *); int R_ChooseFile(int, char*, int); char* R_Date(void); char* R_HomeDir(void); Rboolean R_FileExists(char*); Rboolean R_HiddenFile(char*); double R_FileMtime(char*); /* environment cell access */ typedef struct R_varloc_st *R_varloc_t; R_varloc_t R_findVarLocInFrame(SEXP, SEXP); SEXP R_GetVarLocValue(R_varloc_t); SEXP R_GetVarLocSymbol(R_varloc_t); Rboolean R_GetVarLocMISSING(R_varloc_t); void R_SetVarLocValue(R_varloc_t, SEXP); /* deparse option bits */ #define KEEPINTEGER 1 #define QUOTEEXPRESSIONS 2 #define SHOWATTRIBUTES 4 #define USESOURCE 8 #define WARNINCOMPLETE 16 #define DELAYPROMISES 32 /* common combinations of the above */ #define SIMPLEDEPARSE 0 #define FORSOURCING 31 /* Other Internally Used Functions */ SEXP Rf_append(SEXP, SEXP); /* apparently unused now */ void begincontext(RCNTXT*, int, SEXP, SEXP, SEXP, SEXP, SEXP); void checkArity(SEXP, SEXP); void CheckFormals(SEXP); void CleanEd(void); void DataFrameClass(SEXP); SEXP ddfindVar(SEXP, SEXP); SEXP deparse1(SEXP,Rboolean,int); SEXP deparse1line(SEXP,Rboolean); int DispatchOrEval(SEXP, SEXP, char*, SEXP, SEXP, SEXP*, int, int); int DispatchGroup(char*, SEXP,SEXP,SEXP,SEXP,SEXP*); SEXP duplicated(SEXP); SEXP dynamicfindVar(SEXP, RCNTXT*); void endcontext(RCNTXT*); int envlength(SEXP); int factorsConform(SEXP, SEXP); SEXP FetchMethod(char *, char *, SEXP); void findcontext(int, SEXP, SEXP); SEXP findVar1(SEXP, SEXP, SEXPTYPE, int); void FrameClassFix(SEXP); int framedepth(RCNTXT*); SEXP frameSubscript(int, SEXP, SEXP); int get1index(SEXP, SEXP, int, Rboolean, int); SEXP getVar(SEXP, SEXP); SEXP getVarInFrame(SEXP, SEXP); int hashpjw(char*); Rboolean InheritsClass(SEXP, char*); void InitArithmetic(void); void InitColors(void); void InitConnections(void); void InitEd(void); void InitFunctionHashing(void); void InitBaseEnv(void); void InitGlobalEnv(void); Rboolean R_current_trace_state(); Rboolean R_has_methods(SEXP); void R_InitialData(void); SEXP R_possible_dispatch(SEXP, SEXP, SEXP, SEXP); void InitMemory(void); void InitNames(void); void InitOptions(void); void Init_R_Variables(SEXP); void InitTempDir(void); void initStack(void); #ifdef NEW_CONDITION_HANDLING void R_InsertRestartHandlers(RCNTXT *, Rboolean); #endif void internalTypeCheck(SEXP, SEXP, SEXPTYPE); Rboolean isMethodsDispatchOn(void); int isValidName(char *); void R_JumpToContext(RCNTXT *, int, SEXP); void jump_to_toplevel(void); SEXP levelsgets(SEXP, SEXP); void mainloop(void); SEXP mat2indsub(SEXP, SEXP); SEXP match(SEXP, SEXP, int); SEXP mkCLOSXP(SEXP, SEXP, SEXP); SEXP mkComplex(char *s); /* SEXP mkEnv(SEXP, SEXP, SEXP); */ SEXP mkFalse(void); SEXP mkFloat(char *s); SEXP mkNA(void); SEXP mkPRIMSXP (int, int); SEXP mkPROMISE(SEXP, SEXP); SEXP mkQUOTE(SEXP); SEXP mkSYMSXP(SEXP, SEXP); SEXP mkTrue(void); SEXP NewEnvironment(SEXP, SEXP, SEXP); void onintr(); void onsigusr1(); void onsigusr2(); int OneIndex(SEXP, SEXP, int, int, SEXP*, int); SEXP parse(FILE*, int); void PrintGreeting(void); void PrintVersion(char *); void PrintWarnings(void); void process_site_Renviron(); void process_system_Renviron(); void process_user_Renviron(); SEXP promiseArgs(SEXP, SEXP); void Rcons_vprintf(const char *, va_list); void RemoveClass(SEXP, char *); SEXP R_data_class(SEXP , Rboolean); SEXP R_data_class2(SEXP); SEXP R_LoadFromFile(FILE*, int); SEXP R_NewHashedEnv(SEXP); extern int R_Newhashpjw(char*); FILE* R_OpenLibraryFile(char *); char *R_LibraryFileName(char *, char *, size_t); void R_RestoreGlobalEnv(void); void R_RestoreGlobalEnvFromFile(const char *, Rboolean); void R_SaveGlobalEnv(void); void R_SaveGlobalEnvToFile(const char *); void R_SaveToFile(SEXP, FILE*, int); void R_SaveToFileV(SEXP, FILE*, int, int); SEXP R_set_class(SEXP, SEXP, SEXP); int R_SetOptionWarn(int); int R_SetOptionWidth(int); void R_Suicide(char*); SEXP setVarInFrame(SEXP, SEXP, SEXP); void sortVector(SEXP, Rboolean); void ssort(SEXP*,int); SEXPTYPE str2type(char*); int StrToInternal(char*); SEXP substituteList(SEXP, SEXP); SEXP R_syscall(int,RCNTXT*); int R_sysparent(int,RCNTXT*); SEXP R_sysframe(int,RCNTXT*); SEXP R_sysfunction(int,RCNTXT*); Rboolean tsConform(SEXP,SEXP); SEXP tspgets(SEXP, SEXP); SEXP type2str(SEXPTYPE); SEXP type2symbol(SEXPTYPE); void unbindVar(SEXP, SEXP); #ifdef ALLOW_OLD_SAVE void unmarkPhase(void); #endif SEXP R_LookupMethod(SEXP, SEXP, SEXP, SEXP); int usemethod(char*, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP*); /* ../main/errors.c : */ void errorcall(SEXP, const char*, ...); void warningcall(SEXP, const char*,...); void ErrorMessage(SEXP, int, ...); void WarningMessage(SEXP, R_WARNING, ...); SEXP R_GetTraceback(int); R_size_t R_GetMaxVSize(void); void R_SetMaxVSize(R_size_t); R_size_t R_GetMaxNSize(void); void R_SetMaxNSize(R_size_t); R_size_t R_Decode2Long(char *p, int *ierr); void R_SetPPSize(R_size_t); void R_run_onexits(RCNTXT *); void R_restore_globals(RCNTXT *); /* gram.y & gram.c : */ void yyerror(char *); void yyinit(void); int yylex(); int yyparse(void); void yyprompt(char *format, ...); int yywrap(void); /* ../../main/printutils.c : */ typedef enum { Rprt_adj_left = 0, Rprt_adj_right = 1, Rprt_adj_centre = 2, Rprt_adj_none = 3 } Rprt_adj; int Rstrlen(SEXP, int); char *EncodeRaw(Rbyte); char *EncodeString(SEXP, int, int, Rprt_adj); /* main/sort.c */ void orderVector1(int *indx, int n, SEXP key, Rboolean nalast, Rboolean decreasing); #ifdef SUPPORT_MBCS /* implies we have this header */ #include #endif /* main/util.c */ void UNIMPLEMENTED_TYPE(char *s, SEXP x); void UNIMPLEMENTED_TYPEt(char *s, SEXPTYPE t); Rboolean utf8strIsASCII(char *str); #ifdef SUPPORT_MBCS typedef unsigned short ucs2_t; size_t mbcsToUcs2(char *in, ucs2_t *out); size_t ucs2ToMbcs(ucs2_t *in, char *out); size_t mbcsMblen(char *in); size_t ucs2Mblen(ucs2_t *in); int utf8clen(char c); #define mbs_init(x) memset(x, 0, sizeof(mbstate_t)) size_t Mbrtowc(wchar_t *wc, const char *s, size_t n, mbstate_t *ps); void mbcsToLatin1(char *in, char *out); Rboolean mbcsValid(char *str); char *Rf_strchr(const char *s, int c); char *Rf_strrchr(const char *s, int c); #else #define Rf_strchr(s, c) strchr(s, c) #define Rf_strrchr(s, c) strrchr(s, c) #endif #ifdef Win32 void R_fixslash(char *s); void R_fixbackslash(char *s); #endif #if defined(Win32) && defined(SUPPORT_UTF8) #define mbrtowc(a,b,c,d) Rmbrtowc(a,b) #define wcrtomb(a,b,c) Rwcrtomb(a,b) #define mbstowcs(a,b,c) Rmbstowcs(a,b,c) #define wcstombs(a,b,c) Rwcstombs(a,b,c) size_t Rmbrtowc(wchar_t *wc, const char *s); size_t Rwcrtomb(char *s, const wchar_t wc); size_t Rmbstowcs(wchar_t *wc, const char *s, size_t n); size_t Rwcstombs(char *s, const wchar_t *wc, size_t n); #endif /* From localecharset.c */ extern char * locale2charset(const char *); /* used in relop.c and sort.c */ #if defined(Win32) && defined(SUPPORT_UTF8) #define STRCOLL Rstrcoll #else #ifdef HAVE_STRCOLL #define STRCOLL strcoll #else #define STRCOLL strcmp #endif #endif /* Localization */ #ifdef ENABLE_NLS #include #ifdef Win32 #define _(String) libintl_gettext (String) #undef gettext /* needed for graphapp */ #else #define _(String) gettext (String) #endif #define gettext_noop(String) String #define N_(String) gettext_noop (String) #define P_(StringS, StringP, N) ngettext (StringS, StringP, N) #else /* not NLS */ #define _(String) (String) #define N_(String) String #define P_(String, StringP, N) (N > 1 ? StringP: String) #endif /* Macros for suspending interrupts */ #define BEGIN_SUSPEND_INTERRUPTS do { \ Rboolean __oldsusp__ = R_interrupts_suspended; \ R_interrupts_suspended = TRUE; #define END_SUSPEND_INTERRUPTS R_interrupts_suspended = __oldsusp__; \ if (R_interrupts_pending && ! R_interrupts_suspended) \ onintr(); \ } while(0) /* structure for caching machine accuracy values */ typedef struct { int ibeta, it, irnd, ngrd, machep, negep, iexp, minexp, maxexp; double eps, epsneg, xmin, xmax; } AccuracyInfo; extern AccuracyInfo R_AccuracyInfo; /* FreeBSD defines alloca in stdlib.h, _and_ does not allow a definition as here. (Since it uses GCC, it should use the first clause.) */ #ifdef __GNUC__ # undef alloca # define alloca(x) __builtin_alloca((x)) #else # ifdef HAVE_ALLOCA_H # include # endif # if !HAVE_DECL_ALLOCA && !defined(__FreeBSD__) extern char *alloca(size_t); # endif #endif #endif /* DEFN_H_ */ /* *- Local Variables: *- page-delimiter: "^/\\*---" *- End: */