The R Project SVN
R
(root)/branches/R-ObjC/src/include/Rinternals.h – Rev 43097
Rev 43096 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
/** R : A Computer Language for Statistical Data Analysis* Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka* Copyright (C) 1999-2007 The R Development Core Team.** This program is free software; you can redistribute it and/or modify* it under the terms of the GNU Lesser General Public License as published by* the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details.** You should have received a copy of the GNU Lesser General Public License* along with this program; if not, a copy is available at* http://www.r-project.org/Licenses/*/#ifndef R_INTERNALS_H_#define R_INTERNALS_H_#ifdef __cplusplusextern "C" {#endif#include <R_ext/Arith.h>#include <R_ext/Boolean.h>#include <R_ext/Complex.h>#include <R_ext/Error.h>#include <R_ext/Memory.h>#include <R_ext/PrtUtil.h>#include <R_ext/Utils.h>#include <stdio.h> /* for FILE *//*#include <errno.h>#include <stdlib.h>#include <stdarg.h>#include <string.h>#include <limits.h>#include <float.h>#include <ctype.h>*/#include <R_ext/libextern.h>typedef unsigned char Rbyte;/* type for length of vectors etc */typedef int R_len_t; /* will be long later, LONG64 or ssize_t on Win64 */#define R_LEN_T_MAX INT_MAX/* Fundamental Data Types: These are largely Lisp* influenced structures, with the exception of LGLSXP,* INTSXP, REALSXP, CPLXSXP and STRSXP which are the* element types for S-like data objects.* Note that the gap of 11 and 12 below is because of* the withdrawal of native "factor" and "ordered" types.** --> TypeTable[] in ../main/util.c for typeof()*//* These exact numeric values are seldom used, but they are, e.g., in* ../main/subassign.c*/#ifndef enum_SEXPTYPE/* NOT YET using enum:* 1) The SEXPREC struct below has 'SEXPTYPE type : 5'* (making FUNSXP and CLOSXP equivalent in there),* giving (-Wall only ?) warnings all over the place* 2) Many switch(type) { case ... } statements need a final `default:'* added in order to avoid warnings like [e.g. l.170 of ../main/util.c]* "enumeration value `FUNSXP' not handled in switch"*/typedef unsigned int SEXPTYPE;#define NILSXP 0 /* nil = NULL */#define SYMSXP 1 /* symbols */#define LISTSXP 2 /* lists of dotted pairs */#define CLOSXP 3 /* closures */#define ENVSXP 4 /* environments */#define PROMSXP 5 /* promises: [un]evaluated closure arguments */#define LANGSXP 6 /* language constructs (special lists) */#define SPECIALSXP 7 /* special forms */#define BUILTINSXP 8 /* builtin non-special forms */#define CHARSXP 9 /* "scalar" string type (internal only)*/#define LGLSXP 10 /* logical vectors */#define INTSXP 13 /* integer vectors */#define REALSXP 14 /* real variables */#define CPLXSXP 15 /* complex variables */#define STRSXP 16 /* string vectors */#define DOTSXP 17 /* dot-dot-dot object */#define ANYSXP 18 /* make "any" args work.Used in specifying types for symbolregistration to mean anything is okay */#define VECSXP 19 /* generic vectors */#define EXPRSXP 20 /* expressions vectors */#define BCODESXP 21 /* byte code */#define EXTPTRSXP 22 /* external pointer */#define WEAKREFSXP 23 /* weak reference */#define RAWSXP 24 /* raw bytes */#define S4SXP 25 /* S4, non-vector */#define FUNSXP 99 /* Closure or Builtin or Special */#else /* NOT YET *//*------ enum_SEXPTYPE ----- */typedef enum {NILSXP = 0, /* nil = NULL */SYMSXP = 1, /* symbols */LISTSXP = 2, /* lists of dotted pairs */CLOSXP = 3, /* closures */ENVSXP = 4, /* environments */PROMSXP = 5, /* promises: [un]evaluated closure arguments */LANGSXP = 6, /* language constructs (special lists) */SPECIALSXP = 7, /* special forms */BUILTINSXP = 8, /* builtin non-special forms */CHARSXP = 9, /* "scalar" string type (internal only)*/LGLSXP = 10, /* logical vectors */INTSXP = 13, /* integer vectors */REALSXP = 14, /* real variables */CPLXSXP = 15, /* complex variables */STRSXP = 16, /* string vectors */DOTSXP = 17, /* dot-dot-dot object */ANYSXP = 18, /* make "any" args work */VECSXP = 19, /* generic vectors */EXPRSXP = 20, /* expressions vectors */BCODESXP = 21, /* byte code */EXTPTRSXP = 22, /* external pointer */WEAKREFSXP = 23, /* weak reference */RAWSXP = 24, /* raw bytes */S4SXP = 25, /* S4 non-vector */FUNSXP = 99 /* Closure or Builtin */} SEXPTYPE;#endif#ifdef USE_RINTERNALS/* This is intended for use only within R itself.* It defines internal structures that are otherwise only accessible* via SEXP, and macros to replace many (but not all) of accessor functions* (which are always defined).*//* Flags */struct sxpinfo_struct {SEXPTYPE type : 5;/* ==> (FUNSXP == 99) %% 2^5 == 3 == CLOSXP* -> warning: `type' is narrower than values* of its type* when SEXPTYPE was an enum */unsigned int obj : 1;unsigned int named : 2;unsigned int gp : 16;unsigned int mark : 1;unsigned int debug : 1;unsigned int trace : 1; /* functions and memory tracing */unsigned int spare : 1; /* currently unused */unsigned int gcgen : 1; /* old generation number */unsigned int gccls : 3; /* node class */}; /* Tot: 32 */struct vecsxp_struct {R_len_t length;R_len_t truelength;};struct primsxp_struct {int offset;};struct symsxp_struct {struct SEXPREC *pname;struct SEXPREC *value;struct SEXPREC *internal;};struct listsxp_struct {struct SEXPREC *carval;struct SEXPREC *cdrval;struct SEXPREC *tagval;};struct envsxp_struct {struct SEXPREC *frame;struct SEXPREC *enclos;struct SEXPREC *hashtab;};struct closxp_struct {struct SEXPREC *formals;struct SEXPREC *body;struct SEXPREC *env;};struct promsxp_struct {struct SEXPREC *value;struct SEXPREC *expr;struct SEXPREC *env;};/* Every node must start with a set of sxpinfo flags and an attributefield. Under the generational collector these are followed by thefields used to maintain the collector's linked list structures. */#define SEXPREC_HEADER \void *oclass; \struct sxpinfo_struct sxpinfo; \struct SEXPREC *attrib; \struct SEXPREC *gengc_next_node, *gengc_prev_node/* The standard node structure consists of a header followed by thenode data. */typedef struct SEXPREC {SEXPREC_HEADER;union {struct primsxp_struct primsxp;struct symsxp_struct symsxp;struct listsxp_struct listsxp;struct envsxp_struct envsxp;struct closxp_struct closxp;struct promsxp_struct promsxp;} u;} SEXPREC, *SEXP;#ifdef __OBJC__/* #include <objc/Object.h> */@interface RObject : NSObject{/* class is implicit */struct sxpinfo_struct sxpinfo;struct SEXPREC *attrib;struct SEXPREC *gengc_next_node, *gengc_prev_node;union {struct primsxp_struct primsxp;struct symsxp_struct symsxp;struct listsxp_struct listsxp;struct envsxp_struct envsxp;struct closxp_struct closxp;struct promsxp_struct promsxp;} u;}@end#endif/* The generational collector uses a reduced version of SEXPREC as aheader in vector nodes. The layout MUST be kept consistent withthe SEXPREC definition. The standard SEXPREC takes up 7 words onmost hardware; this reduced version should take up only 6 words.In addition to slightly reducing memory use, this can lead to morefavorable data alignment on 32-bit architectures like the IntelPentium III where odd word alignment of doubles is allowed but muchless efficient than even word alignment. */typedef struct VECTOR_SEXPREC {SEXPREC_HEADER;struct vecsxp_struct vecsxp;} VECTOR_SEXPREC, *VECSEXP;typedef union { VECTOR_SEXPREC s; double align; } SEXPREC_ALIGN;/* 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)#define TRACE(x) ((x)->sxpinfo.trace)#define LEVELS(x) ((x)->sxpinfo.gp)#define SET_OBJECT(x,v) (((x)->sxpinfo.obj)=(v))#define SET_TYPEOF(x,v) (((x)->sxpinfo.type)=(v))#define SET_NAMED(x,v) (((x)->sxpinfo.named)=(v))#define SET_TRACE(x,v) (((x)->sxpinfo.trace)=(v))#define SETLEVELS(x,v) (((x)->sxpinfo.gp)=(v))/* S4 object bit, set by R_do_new_object for all new() calls */#define S4_OBJECT_MASK (1<<4)#define IS_S4_OBJECT(x) ((x)->sxpinfo.gp & S4_OBJECT_MASK)#define SET_S4_OBJECT(x) (((x)->sxpinfo.gp) |= S4_OBJECT_MASK)#define UNSET_S4_OBJECT(x) (((x)->sxpinfo.gp) &= ~S4_OBJECT_MASK)/* Vector Access Macros */#define LENGTH(x) (((VECSEXP) (x))->vecsxp.length)#define TRUELENGTH(x) (((VECSEXP) (x))->vecsxp.truelength)#define SETLENGTH(x,v) ((((VECSEXP) (x))->vecsxp.length)=(v))#define SET_TRUELENGTH(x,v) ((((VECSEXP) (x))->vecsxp.truelength)=(v))/* Under the generational allocator the data for vector nodes comesimmediately after the node structure, so the data address is aknown offset from the node SEXP. */#define DATAPTR(x) (((SEXPREC_ALIGN *) (x)) + 1)#define CHAR(x) ((const char *) DATAPTR(x))#define LOGICAL(x) ((int *) DATAPTR(x))#define INTEGER(x) ((int *) DATAPTR(x))#define RAW(x) ((Rbyte *) DATAPTR(x))#define COMPLEX(x) ((Rcomplex *) DATAPTR(x))#define REAL(x) ((double *) DATAPTR(x))#define STRING_ELT(x,i) ((SEXP *) DATAPTR(x))[i]#define VECTOR_ELT(x,i) ((SEXP *) DATAPTR(x))[i]#define STRING_PTR(x) ((SEXP *) DATAPTR(x))#define VECTOR_PTR(x) ((SEXP *) DATAPTR(x))/* List Access Macros *//* These also work for ... objects */#define LISTVAL(x) ((x)->u.listsxp)#define TAG(e) ((e)->u.listsxp.tagval)#define CAR(e) ((e)->u.listsxp.carval)#define CDR(e) ((e)->u.listsxp.cdrval)#define CAAR(e) CAR(CAR(e))#define CDAR(e) CDR(CAR(e))#define CADR(e) CAR(CDR(e))#define CDDR(e) CDR(CDR(e))#define CADDR(e) CAR(CDR(CDR(e)))#define CADDDR(e) CAR(CDR(CDR(CDR(e))))#define CAD4R(e) CAR(CDR(CDR(CDR(CDR(e)))))#define MISSING_MASK 15 /* reserve 4 bits--only 2 uses now */#define MISSING(x) ((x)->sxpinfo.gp & MISSING_MASK)/* for closure calls */#define SET_MISSING(x,v) do { \SEXP __x__ = (x); \int __v__ = (v); \int __other_flags__ = __x__->sxpinfo.gp & ~MISSING_MASK; \__x__->sxpinfo.gp = __other_flags__ | __v__; \} while (0)/* Closure Access Macros */#define FORMALS(x) ((x)->u.closxp.formals)#define BODY(x) ((x)->u.closxp.body)#define CLOENV(x) ((x)->u.closxp.env)#define DEBUG(x) ((x)->sxpinfo.debug)#define SET_DEBUG(x,v) (((x)->sxpinfo.debug)=(v))/* Symbol Access Macros */#define PRINTNAME(x) ((x)->u.symsxp.pname)#define SYMVALUE(x) ((x)->u.symsxp.value)#define INTERNAL(x) ((x)->u.symsxp.internal)#define DDVAL_MASK 1#define DDVAL(x) ((x)->sxpinfo.gp & DDVAL_MASK) /* for ..1, ..2 etc */#define SET_DDVAL_BIT(x) (((x)->sxpinfo.gp) |= DDVAL_MASK)#define UNSET_DDVAL_BIT(x) (((x)->sxpinfo.gp) &= ~DDVAL_MASK)#define SET_DDVAL(x,v) ((v) ? SET_DDVAL_BIT(x) : UNSET_DDVAL_BIT(x)) /* for ..1, ..2 etc *//* Environment Access Macros */#define FRAME(x) ((x)->u.envsxp.frame)#define ENCLOS(x) ((x)->u.envsxp.enclos)#define HASHTAB(x) ((x)->u.envsxp.hashtab)#define ENVFLAGS(x) ((x)->sxpinfo.gp) /* for environments */#define SET_ENVFLAGS(x,v) (((x)->sxpinfo.gp)=(v))#else /* not USE_RINTERNALS */typedef struct SEXPREC *SEXP;#define CHAR(x) R_CHAR(x)const char *(R_CHAR)(SEXP x);/* Various tests with macro versions below */Rboolean (Rf_isNull)(SEXP s);Rboolean (Rf_isSymbol)(SEXP s);Rboolean (Rf_isLogical)(SEXP s);Rboolean (Rf_isReal)(SEXP s);Rboolean (Rf_isComplex)(SEXP s);Rboolean (Rf_isExpression)(SEXP s);Rboolean (Rf_isEnvironment)(SEXP s);Rboolean (Rf_isString)(SEXP s);Rboolean (Rf_isObject)(SEXP s);#endif /* USE_RINTERNALS *//* Accessor functions. Many are declared using () to avoid the macrodefinitions in the USE_RINTERNALS section.The function STRING_ELT is used as an argument to arrayAssign evenif the macro version is in use.*//* General Cons Cell Attributes */SEXP (ATTRIB)(SEXP x);int (OBJECT)(SEXP x);int (MARK)(SEXP x);int (TYPEOF)(SEXP x);int (NAMED)(SEXP x);void (SET_OBJECT)(SEXP x, int v);void (SET_TYPEOF)(SEXP x, int v);void (SET_NAMED)(SEXP x, int v);void SET_ATTRIB(SEXP x, SEXP v);void DUPLICATE_ATTRIB(SEXP to, SEXP from);/* S4 object testing */int (IS_S4_OBJECT)(SEXP x);void (SET_S4_OBJECT)(SEXP x);void (UNSET_S4_OBJECT)(SEXP x);/* Vector Access Functions */int (LENGTH)(SEXP x);int (TRUELENGTH)(SEXP x);void (SETLENGTH)(SEXP x, int v);void (SET_TRUELENGTH)(SEXP x, int v);int (LEVELS)(SEXP x);int (SETLEVELS)(SEXP x, int v);int *(LOGICAL)(SEXP x);int *(INTEGER)(SEXP x);Rbyte *(RAW)(SEXP x);double *(REAL)(SEXP x);Rcomplex *(COMPLEX)(SEXP x);SEXP (STRING_ELT)(SEXP x, int i);SEXP (VECTOR_ELT)(SEXP x, int i);void SET_STRING_ELT(SEXP x, int i, SEXP v);SEXP SET_VECTOR_ELT(SEXP x, int i, SEXP v);SEXP *(STRING_PTR)(SEXP x);SEXP *(VECTOR_PTR)(SEXP x);/* List Access Functions *//* These also work for ... objects */#define CONS(a, b) cons((a), (b)) /* data lists */#define LCONS(a, b) lcons((a), (b)) /* language lists */SEXP (TAG)(SEXP e);SEXP (CAR)(SEXP e);SEXP (CDR)(SEXP e);SEXP (CAAR)(SEXP e);SEXP (CDAR)(SEXP e);SEXP (CADR)(SEXP e);SEXP (CDDR)(SEXP e);SEXP (CADDR)(SEXP e);SEXP (CADDDR)(SEXP e);SEXP (CAD4R)(SEXP e);int (MISSING)(SEXP x);void (SET_MISSING)(SEXP x, int v);void SET_TAG(SEXP x, SEXP y);SEXP SETCAR(SEXP x, SEXP y);SEXP SETCDR(SEXP x, SEXP y);SEXP SETCADR(SEXP x, SEXP y);SEXP SETCADDR(SEXP x, SEXP y);SEXP SETCADDDR(SEXP x, SEXP y);SEXP SETCAD4R(SEXP e, SEXP y);/* Closure Access Functions */SEXP (FORMALS)(SEXP x);SEXP (BODY)(SEXP x);SEXP (CLOENV)(SEXP x);int (DEBUG)(SEXP x);int (TRACE)(SEXP x);void (SET_DEBUG)(SEXP x, int v);void (SET_TRACE)(SEXP x, int v);void SET_FORMALS(SEXP x, SEXP v);void SET_BODY(SEXP x, SEXP v);void SET_CLOENV(SEXP x, SEXP v);/* Symbol Access Functions */SEXP (PRINTNAME)(SEXP x);SEXP (SYMVALUE)(SEXP x);SEXP (INTERNAL)(SEXP x);int (DDVAL)(SEXP x);void (SET_DDVAL)(SEXP x, int v);void SET_PRINTNAME(SEXP x, SEXP v);void SET_SYMVALUE(SEXP x, SEXP v);void SET_INTERNAL(SEXP x, SEXP v);/* Environment Access Functions */SEXP (FRAME)(SEXP x);SEXP (ENCLOS)(SEXP x);SEXP (HASHTAB)(SEXP x);int (ENVFLAGS)(SEXP x);void (SET_ENVFLAGS)(SEXP x, int v);void SET_FRAME(SEXP x, SEXP v);void SET_ENCLOS(SEXP x, SEXP v);void SET_HASHTAB(SEXP x, SEXP v);/* Promise Access Functions *//* First five have macro versions in Defn.h */SEXP (PRCODE)(SEXP x);SEXP (PRENV)(SEXP x);SEXP (PRVALUE)(SEXP x);int (PRSEEN)(SEXP x);void (SET_PRSEEN)(SEXP x, int v);void SET_PRENV(SEXP x, SEXP v);void SET_PRVALUE(SEXP x, SEXP v);void SET_PRCODE(SEXP x, SEXP v);void SET_PRSEEN(SEXP x, int v);/* Hashing Functions *//* There are macro versions in Defn.h */int (HASHASH)(SEXP x);int (HASHVALUE)(SEXP x);void (SET_HASHASH)(SEXP x, int v);void (SET_HASHVALUE)(SEXP x, int v);/* External pointer access macros */#define EXTPTR_PTR(x) CAR(x)#define EXTPTR_PROT(x) CDR(x)#define EXTPTR_TAG(x) TAG(x)#ifdef BYTECODE/* Bytecode access macros */#define BCODE_CODE(x) CAR(x)#define BCODE_CONSTS(x) CDR(x)#define BCODE_EXPR(x) TAG(x)#define isByteCode(x) (TYPEOF(x)==BCODESXP)#else#define isByteCode(x) FALSE#endif/* Pointer Protection and Unprotection */#define PROTECT(s) protect(s)#define UNPROTECT(n) unprotect(n)#define UNPROTECT_PTR(s) unprotect_ptr(s)/* We sometimes need to coerce a protected value and place the newcoerced value under protection. For these cases PROTECT_WITH_INDEXsaves an index of the protection location that can be used toreplace the protected value using REPROTECT. */typedef int PROTECT_INDEX;#define PROTECT_WITH_INDEX(x,i) R_ProtectWithIndex(x,i)#define REPROTECT(x,i) R_Reprotect(x,i)/* Evaluation Environment */LibExtern SEXP R_GlobalEnv; /* The "global" environment */LibExtern SEXP R_EmptyEnv; /* An empty environment at the root of theenvironment tree */LibExtern SEXP R_BaseEnv; /* The base environment; formerly R_NilValue */LibExtern SEXP R_BaseNamespace; /* The (fake) name space for base */LibExtern SEXP R_NamespaceRegistry;/* Registry for registered name spaces *//* Special Values */LibExtern SEXP R_NilValue; /* The nil object */LibExtern SEXP R_UnboundValue; /* Unbound marker */LibExtern SEXP R_MissingArg; /* Missing argument marker */#ifdef __MAIN__attribute_hidden#elseextern#endifSEXP R_RestartToken; /* Marker for restarted function calls *//* Symbol Table Shortcuts */LibExtern SEXP R_Bracket2Symbol; /* "[[" */LibExtern SEXP R_BracketSymbol; /* "[" */LibExtern SEXP R_BraceSymbol; /* "{" */LibExtern SEXP R_ClassSymbol; /* "class" */LibExtern SEXP R_DimNamesSymbol; /* "dimnames" */LibExtern SEXP R_DimSymbol; /* "dim" */LibExtern SEXP R_DollarSymbol; /* "$" */LibExtern SEXP R_DotsSymbol; /* "..." */LibExtern SEXP R_DropSymbol; /* "drop" */LibExtern SEXP R_LevelsSymbol; /* "levels" */LibExtern SEXP R_ModeSymbol; /* "mode" */LibExtern SEXP R_NamesSymbol; /* "names" */LibExtern SEXP R_RowNamesSymbol; /* "row.names" */LibExtern SEXP R_SeedsSymbol; /* ".Random.seed" */LibExtern SEXP R_TspSymbol; /* "tsp" *//* Missing Values - others from Arith.h */#define NA_STRING R_NaStringLibExtern SEXP R_NaString; /* NA_STRING as a CHARSXP */LibExtern SEXP R_BlankString; /* "" as a CHARSXP *//*--- FUNCTIONS ------------------------------------------------------ *//* Type Coercions of all kinds */SEXP Rf_asChar(SEXP);SEXP Rf_coerceVector(SEXP, SEXPTYPE);SEXP Rf_PairToVectorList(SEXP x);SEXP Rf_VectorToPairList(SEXP x);int Rf_asLogical(SEXP x);int Rf_asInteger(SEXP x);double Rf_asReal(SEXP x);Rcomplex Rf_asComplex(SEXP x);/* Other Internally Used Functions, excluding those which are inline-able*/char * Rf_acopy_string(const char *);SEXP Rf_alloc3DArray(SEXPTYPE, int, int, int);SEXP Rf_allocArray(SEXPTYPE, SEXP);SEXP Rf_allocMatrix(SEXPTYPE, int, int);SEXP Rf_allocList(int);SEXP Rf_allocS4Object();SEXP Rf_allocSExp(SEXPTYPE);SEXP Rf_allocVector(SEXPTYPE, R_len_t);SEXP Rf_applyClosure(SEXP, SEXP, SEXP, SEXP, SEXP);SEXP Rf_arraySubscript(int, SEXP, SEXP, SEXP (*)(SEXP,SEXP),SEXP (*)(SEXP, int), SEXP);Rcomplex Rf_asComplex(SEXP);int Rf_asInteger(SEXP);int Rf_asLogical(SEXP);double Rf_asReal(SEXP);SEXP Rf_classgets(SEXP, SEXP);SEXP Rf_cons(SEXP, SEXP);void Rf_copyMatrix(SEXP, SEXP, Rboolean);void Rf_copyMostAttrib(SEXP, SEXP);void Rf_copyVector(SEXP, SEXP);SEXP Rf_CreateTag(SEXP);void Rf_defineVar(SEXP, SEXP, SEXP);SEXP Rf_dimgets(SEXP, SEXP);SEXP Rf_dimnamesgets(SEXP, SEXP);SEXP Rf_DropDims(SEXP);SEXP Rf_duplicate(SEXP);SEXP Rf_duplicated(SEXP, Rboolean);SEXP Rf_eval(SEXP, SEXP);SEXP Rf_findFun(SEXP, SEXP);SEXP Rf_findVar(SEXP, SEXP);SEXP Rf_findVarInFrame(SEXP, SEXP);SEXP Rf_findVarInFrame3(SEXP, SEXP, Rboolean);SEXP Rf_getAttrib(SEXP, SEXP);SEXP Rf_GetArrayDimnames(SEXP);SEXP Rf_GetColNames(SEXP);void Rf_GetMatrixDimnames(SEXP, SEXP*, SEXP*, const char**, const char**);SEXP Rf_GetOption(SEXP, SEXP);int Rf_GetOptionDigits(SEXP);int Rf_GetOptionWidth(SEXP);SEXP Rf_GetRowNames(SEXP);void Rf_gsetVar(SEXP, SEXP, SEXP);SEXP Rf_install(const char *);Rboolean Rf_isFree(SEXP);Rboolean Rf_isOrdered(SEXP);Rboolean Rf_isUnordered(SEXP);Rboolean Rf_isUnsorted(SEXP);SEXP Rf_lengthgets(SEXP, R_len_t);SEXP R_lsInternal(SEXP, Rboolean);SEXP Rf_match(SEXP, SEXP, int);SEXP Rf_namesgets(SEXP, SEXP);SEXP Rf_mkChar(const char *);SEXP Rf_mkCharEnc(const char *, int);SEXP Rf_mkCharLen(const char *, int);Rboolean Rf_NonNullStringMatch(SEXP, SEXP);int Rf_ncols(SEXP);int Rf_nrows(SEXP);SEXP Rf_nthcdr(SEXP, int);Rboolean Rf_pmatch(SEXP, SEXP, Rboolean);Rboolean Rf_psmatch(const char *, const char *, Rboolean);void Rf_PrintValue(SEXP);SEXP Rf_protect(SEXP);SEXP Rf_setAttrib(SEXP, SEXP, SEXP);void Rf_setSVector(SEXP*, int, SEXP);void Rf_setVar(SEXP, SEXP, SEXP);SEXPTYPE Rf_str2type(const char *);Rboolean Rf_StringBlank(SEXP);SEXP Rf_substitute(SEXP,SEXP);const char * Rf_translateChar(SEXP);const char * Rf_type2char(SEXPTYPE);SEXP Rf_type2str(SEXPTYPE);void Rf_unprotect(int);void Rf_unprotect_ptr(SEXP);void R_ProtectWithIndex(SEXP, PROTECT_INDEX *);void R_Reprotect(SEXP, PROTECT_INDEX);SEXP R_tryEval(SEXP, SEXP, int *);Rboolean Rf_isS4(SEXP);SEXP Rf_asS4(SEXP, Rboolean);/* return(.) NOT reached : for -Wall */#define error_return(msg) { Rf_error(msg); return R_NilValue; }#define errorcall_return(cl,msg){ Rf_errorcall(cl, msg); return R_NilValue; }#ifdef __MAIN__#undef extern#undef LibExtern#endif/* External pointer interface */SEXP R_MakeExternalPtr(void *p, SEXP tag, SEXP prot);void *R_ExternalPtrAddr(SEXP s);SEXP R_ExternalPtrTag(SEXP s);SEXP R_ExternalPtrProtected(SEXP s);void R_ClearExternalPtr(SEXP s);void R_SetExternalPtrAddr(SEXP s, void *p);void R_SetExternalPtrTag(SEXP s, SEXP tag);void R_SetExternalPtrProtected(SEXP s, SEXP p);/* Finalization interface */typedef void (*R_CFinalizer_t)(SEXP);void R_RegisterFinalizer(SEXP s, SEXP fun);void R_RegisterCFinalizer(SEXP s, R_CFinalizer_t fun);void R_RegisterFinalizerEx(SEXP s, SEXP fun, Rboolean onexit);void R_RegisterCFinalizerEx(SEXP s, R_CFinalizer_t fun, Rboolean onexit);/* Weak reference interface */SEXP R_MakeWeakRef(SEXP key, SEXP val, SEXP fin, Rboolean onexit);SEXP R_MakeWeakRefC(SEXP key, SEXP val, R_CFinalizer_t fin, Rboolean onexit);SEXP R_WeakRefKey(SEXP w);SEXP R_WeakRefValue(SEXP w);void R_RunWeakRefFinalizer(SEXP w);#ifdef BYTECODESEXP R_PromiseExpr(SEXP);SEXP R_ClosureExpr(SEXP);void R_initialize_bcode(void);SEXP R_bcEncode(SEXP);SEXP R_bcDecode(SEXP);#define PREXPR(e) R_PromiseExpr(e)#define BODY_EXPR(e) R_ClosureExpr(e)#else#define PREXPR(e) PRCODE(e)#define BODY_EXPR(e) BODY(e)#endif/* Protected evaluation */Rboolean R_ToplevelExec(void (*fun)(void *), void *data);/* Environment and Binding Features */void R_RestoreHashCount(SEXP rho);Rboolean R_IsPackageEnv(SEXP rho);SEXP R_PackageEnvName(SEXP rho);SEXP R_FindPackageEnv(SEXP info);Rboolean R_IsNamespaceEnv(SEXP rho);SEXP R_NamespaceEnvSpec(SEXP rho);SEXP R_FindNamespace(SEXP info);void R_LockEnvironment(SEXP env, Rboolean bindings);Rboolean R_EnvironmentIsLocked(SEXP env);void R_LockBinding(SEXP sym, SEXP env);void R_unLockBinding(SEXP sym, SEXP env);void R_MakeActiveBinding(SEXP sym, SEXP fun, SEXP env);Rboolean R_BindingIsLocked(SEXP sym, SEXP env);Rboolean R_BindingIsActive(SEXP sym, SEXP env);Rboolean R_HasFancyBindings(SEXP rho);/* ../main/errors.c : *//* needed for R_load/savehistory handling in front ends */void Rf_errorcall(SEXP, const char *, ...);void Rf_warningcall(SEXP, const char *, ...);void Rf_warningcall_immediate(SEXP, const char *, ...);/* Save/Load Interface */#define R_XDR_DOUBLE_SIZE 8#define R_XDR_INTEGER_SIZE 4void R_XDREncodeDouble(double d, void *buf);double R_XDRDecodeDouble(void *buf);void R_XDREncodeInteger(int i, void *buf);int R_XDRDecodeInteger(void *buf);typedef void *R_pstream_data_t;typedef enum {R_pstream_any_format,R_pstream_ascii_format,R_pstream_binary_format,R_pstream_xdr_format} R_pstream_format_t;typedef struct R_outpstream_st *R_outpstream_t;struct R_outpstream_st {R_pstream_data_t data;R_pstream_format_t type;int version;void (*OutChar)(R_outpstream_t, int);void (*OutBytes)(R_outpstream_t, void *, int);SEXP (*OutPersistHookFunc)(SEXP, SEXP);SEXP OutPersistHookData;};typedef struct R_inpstream_st *R_inpstream_t;struct R_inpstream_st {R_pstream_data_t data;R_pstream_format_t type;int (*InChar)(R_inpstream_t);void (*InBytes)(R_inpstream_t, void *, int);SEXP (*InPersistHookFunc)(SEXP, SEXP);SEXP InPersistHookData;};void R_InitInPStream(R_inpstream_t stream, R_pstream_data_t data,R_pstream_format_t type,int (*inchar)(R_inpstream_t),void (*inbytes)(R_inpstream_t, void *, int),SEXP (*phook)(SEXP, SEXP), SEXP pdata);void R_InitOutPStream(R_outpstream_t stream, R_pstream_data_t data,R_pstream_format_t type, int version,void (*outchar)(R_outpstream_t, int),void (*outbytes)(R_outpstream_t, void *, int),SEXP (*phook)(SEXP, SEXP), SEXP pdata);void R_InitFileInPStream(R_inpstream_t stream, FILE *fp,R_pstream_format_t type,SEXP (*phook)(SEXP, SEXP), SEXP pdata);void R_InitFileOutPStream(R_outpstream_t stream, FILE *fp,R_pstream_format_t type, int version,SEXP (*phook)(SEXP, SEXP), SEXP pdata);#ifdef NEED_CONNECTION_PSTREAMS/* The connection interface is not yet available to packages. Toallow limited use of connection pointers this defines the opaquepointer type. */#ifndef HAVE_RCONNECTION_TYPEDEFtypedef struct Rconn *Rconnection;#define HAVE_RCONNECTION_TYPEDEF#endifvoid R_InitConnOutPStream(R_outpstream_t stream, Rconnection con,R_pstream_format_t type, int version,SEXP (*phook)(SEXP, SEXP), SEXP pdata);void R_InitConnInPStream(R_inpstream_t stream, Rconnection con,R_pstream_format_t type,SEXP (*phook)(SEXP, SEXP), SEXP pdata);#endifvoid R_Serialize(SEXP s, R_outpstream_t ops);SEXP R_Unserialize(R_inpstream_t ips);/* slot management (in attrib.c) */SEXP R_do_slot(SEXP obj, SEXP name);SEXP R_do_slot_assign(SEXP obj, SEXP name, SEXP value);/* class definition, new objects */SEXP R_do_MAKE_CLASS(const char *what);SEXP R_getClassDef (const char *what);SEXP R_do_new_object(SEXP class_def);/* preserve objects across GCs */void R_PreserveObject(SEXP);void R_ReleaseObject(SEXP);/* Shutdown actions */void R_dot_Last(void); /* in main.c */void R_RunExitFinalizers(void); /* in memory.c *//* Replacements for popen and system */#ifdef HAVE_POPENFILE *R_popen(const char *, const char *);#endifint R_system(const char *);/* now a macro */#define allocString(n) Rf_allocVector(CHARSXP, n)#define Rf_allocString(n) Rf_allocVector(CHARSXP, n)#ifndef R_NO_REMAP#define acopy_string Rf_acopy_string#define alloc3DArray Rf_alloc3DArray#define allocArray Rf_allocArray#define allocList Rf_allocList#define allocMatrix Rf_allocMatrix#define allocS4Object Rf_allocS4Object#define allocSExp Rf_allocSExp#define allocVector Rf_allocVector#define applyClosure Rf_applyClosure#define arraySubscript Rf_arraySubscript#define asChar Rf_asChar#define asComplex Rf_asComplex#define asInteger Rf_asInteger#define asLogical Rf_asLogical#define asReal Rf_asReal#define asS4 Rf_asS4#define classgets Rf_classgets#define coerceVector Rf_coerceVector#define conformable Rf_conformable#define cons Rf_cons#define copyMatrix Rf_copyMatrix#define copyMostAttrib Rf_copyMostAttrib#define copyVector Rf_copyVector#define CreateTag Rf_CreateTag#define defineVar Rf_defineVar#define dimgets Rf_dimgets#define dimnamesgets Rf_dimnamesgets#define DropDims Rf_DropDims#define duplicate Rf_duplicate#define duplicated Rf_duplicated#define elt Rf_elt#define errorcall Rf_errorcall#define eval Rf_eval#define findFun Rf_findFun#define findVar Rf_findVar#define findVarInFrame Rf_findVarInFrame#define findVarInFrame3 Rf_findVarInFrame3#define GetArrayDimnames Rf_GetArrayDimnames#define getAttrib Rf_getAttrib#define GetColNames Rf_GetColNames#define GetMatrixDimnames Rf_GetMatrixDimnames#define GetOption Rf_GetOption#define GetOptionDigits Rf_GetOptionDigits#define GetOptionWidth Rf_GetOptionWidth#define GetRowNames Rf_GetRowNames#define gsetVar Rf_gsetVar#define inherits Rf_inherits#define install Rf_install#define isArray Rf_isArray#define isComplex Rf_isComplex#define isEnvironment Rf_isEnvironment#define isExpression Rf_isExpression#define isFactor Rf_isFactor#define isFrame Rf_isFrame#define isFree Rf_isFree#define isFunction Rf_isFunction#define isInteger Rf_isInteger#define isLanguage Rf_isLanguage#define isList Rf_isList#define isLogical Rf_isLogical#define isSymbol Rf_isSymbol#define isMatrix Rf_isMatrix#define isNewList Rf_isNewList#define isNull Rf_isNull#define isNumeric Rf_isNumeric#define isObject Rf_isObject#define isOrdered Rf_isOrdered#define isPairList Rf_isPairList#define isPrimitive Rf_isPrimitive#define isReal Rf_isReal#define isS4 Rf_isS4#define isString Rf_isString#define isTs Rf_isTs#define isUnordered Rf_isUnordered#define isUnsorted Rf_isUnsorted#define isUserBinop Rf_isUserBinop#define isValidString Rf_isValidString#define isValidStringF Rf_isValidStringF#define isVector Rf_isVector#define isVectorAtomic Rf_isVectorAtomic#define isVectorizable Rf_isVectorizable#define isVectorList Rf_isVectorList#define lang1 Rf_lang1#define lang2 Rf_lang2#define lang3 Rf_lang3#define lang4 Rf_lang4#define lastElt Rf_lastElt#define lcons Rf_lcons#define length(x) Rf_length(x)#define lengthgets Rf_lengthgets#define list1 Rf_list1#define list2 Rf_list2#define list3 Rf_list3#define list4 Rf_list4#define listAppend Rf_listAppend#define match Rf_match#define mkChar Rf_mkChar#define mkCharEnc Rf_mkCharEnc#define mkCharLen Rf_mkCharLen#define mkString Rf_mkString#define namesgets Rf_namesgets#define ncols Rf_ncols#define nlevels Rf_nlevels#define NonNullStringMatch Rf_NonNullStringMatch#define nrows Rf_nrows#define nthcdr Rf_nthcdr#define PairToVectorList Rf_PairToVectorList#define pmatch Rf_pmatch#define psmatch Rf_psmatch#define PrintValue Rf_PrintValue#define protect Rf_protect#define rownamesgets Rf_rownamesgets#define ScalarComplex Rf_ScalarComplex#define ScalarInteger Rf_ScalarInteger#define ScalarLogical Rf_ScalarLogical#define ScalarReal Rf_ScalarReal#define ScalarString Rf_ScalarString#define ScalarRaw Rf_ScalarRaw#define setAttrib Rf_setAttrib#define setSVector Rf_setSVector#define setVar Rf_setVar#define str2type Rf_str2type#define StringBlank Rf_StringBlank#define substitute Rf_substitute#define translateChar Rf_translateChar#define type2char Rf_type2char#define type2str Rf_type2str#define unprotect Rf_unprotect#define unprotect_ptr Rf_unprotect_ptr#define VectorToPairList Rf_VectorToPairList#define warningcall Rf_warningcall#define warningcall_immediate Rf_warningcall_immediate#endif#if defined(CALLED_FROM_DEFN_H) && !defined(__MAIN__) && (defined(COMPILING_R) || ( __GNUC__ && !defined(__INTEL_COMPILER) ))#include "Rinlinedfuns.h"#else/* need remapped names here for use with R_NO_REMAP *//*These are the inlinable functions that are provided in Rinlinedfuns.hIt is *essential* that these do not appear in any other header file,with or without the Rf_ prefix.*/Rboolean Rf_conformable(SEXP, SEXP);SEXP Rf_elt(SEXP, int);Rboolean Rf_inherits(SEXP, const char *);Rboolean Rf_isArray(SEXP);Rboolean Rf_isFactor(SEXP);Rboolean Rf_isFrame(SEXP);Rboolean Rf_isFunction(SEXP);Rboolean Rf_isInteger(SEXP);Rboolean Rf_isLanguage(SEXP);Rboolean Rf_isList(SEXP);Rboolean Rf_isMatrix(SEXP);Rboolean Rf_isNewList(SEXP);Rboolean Rf_isNumeric(SEXP);Rboolean Rf_isPairList(SEXP);Rboolean Rf_isPrimitive(SEXP);Rboolean Rf_isTs(SEXP);Rboolean Rf_isUserBinop(SEXP);Rboolean Rf_isValidString(SEXP);Rboolean Rf_isValidStringF(SEXP);Rboolean Rf_isVector(SEXP);Rboolean Rf_isVectorAtomic(SEXP);Rboolean Rf_isVectorList(SEXP);Rboolean Rf_isVectorizable(SEXP);SEXP Rf_lang1(SEXP);SEXP Rf_lang2(SEXP, SEXP);SEXP Rf_lang3(SEXP, SEXP, SEXP);SEXP Rf_lang4(SEXP, SEXP, SEXP, SEXP);SEXP Rf_lastElt(SEXP);SEXP Rf_lcons(SEXP, SEXP);R_len_t Rf_length(SEXP);SEXP Rf_list1(SEXP);SEXP Rf_list2(SEXP, SEXP);SEXP Rf_list3(SEXP, SEXP, SEXP);SEXP Rf_list4(SEXP, SEXP, SEXP, SEXP);SEXP Rf_listAppend(SEXP, SEXP);SEXP Rf_mkString(const char *);int Rf_nlevels(SEXP);SEXP Rf_ScalarComplex(Rcomplex);SEXP Rf_ScalarInteger(int);SEXP Rf_ScalarLogical(int);SEXP Rf_ScalarRaw(Rbyte);SEXP Rf_ScalarReal(double);SEXP Rf_ScalarString(SEXP);#endif#ifdef USE_RINTERNALS/* Test macros with function versions above */#undef isNull#define isNull(s) (TYPEOF(s) == NILSXP)#undef isSymbol#define isSymbol(s) (TYPEOF(s) == SYMSXP)#undef isLogical#define isLogical(s) (TYPEOF(s) == LGLSXP)#undef isReal#define isReal(s) (TYPEOF(s) == REALSXP)#undef isComplex#define isComplex(s) (TYPEOF(s) == CPLXSXP)#undef isExpression#define isExpression(s) (TYPEOF(s) == EXPRSXP)#undef isEnvironment#define isEnvironment(s) (TYPEOF(s) == ENVSXP)#undef isString#define isString(s) (TYPEOF(s) == STRSXP)#undef isObject#define isObject(s) (OBJECT(s) != 0)#endif#ifdef __cplusplus}#endif#endif /* R_INTERNALS_H_ */