The R Project SVN R

/*

 *  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 <Rinternals.h>		/*-> 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 <psignal.h>

#else

# include <signal.h>

# include <setjmp.h>

#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 <inttypes.h>

# endif

# ifdef HAVE_STDINT_H

#  include <stdint.h>

# endif

# ifdef HAVE_LIMITS_H

#  include <limits.h>

# 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 <math.h>

/* 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 <sys/param.h>

# 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 <R_ext/Rdynload.h>

#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 <R_ext/libextern.h>

#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 <wchar.h>

#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 */