The R Project SVN – R – Diff – /branches/R-Win-CMD/src/include/Rinternals.h



/*
 *  R : A Computer Language for Statistical Data Analysis
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 *  Copyright (C) 1999-2004   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.

#include <float.h>
#include <ctype.h>
 
#include <R_ext/libextern.h>
 
/* 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.
 

    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;
};

 
SEXP Rf_allocArray(SEXPTYPE, SEXP);
SEXP Rf_allocMatrix(SEXPTYPE, int, int);
SEXP Rf_allocSExp(SEXPTYPE);
SEXP Rf_allocString(int);
SEXP Rf_allocVector(SEXPTYPE, R_len_t);
SEXP Rf_allocList(int);
SEXP Rf_applyClosure(SEXP, SEXP, SEXP, SEXP, SEXP);
SEXP Rf_asChar(SEXP);
Rcomplex Rf_asComplex(SEXP);
int Rf_asInteger(SEXP);
int Rf_asLogical(SEXP);
double Rf_asReal(SEXP);
R_len_t Rf_asVecSize(SEXP);
SEXP Rf_arraySubscript(int, SEXP, SEXP, SEXP (*)(SEXP,SEXP),
                       SEXP (*)(SEXP, int), SEXP);
SEXP Rf_classgets(SEXP, SEXP);
Rboolean Rf_conformable(SEXP, SEXP);
SEXP Rf_cons(SEXP, 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_lengthgets(SEXP, R_len_t);
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);

#define ascommon		Rf_ascommon
#define asComplex		Rf_asComplex
#define asInteger		Rf_asInteger
#define asLogical		Rf_asLogical
#define asReal			Rf_asReal
#define asVecSize		Rf_asVecSize
#define classgets		Rf_classgets
#define coerceList		Rf_coerceList
#define coerceVector		Rf_coerceVector
#define CoercionWarning		Rf_CoercionWarning
#define ComplexFromInteger	Rf_ComplexFromInteger

Rev 28254	Rev 28362
Line 1...	Line 1...
1	`/*`	1	`/*`
2	`* R : A Computer Language for Statistical Data Analysis`	2	`* R : A Computer Language for Statistical Data Analysis`
3	`* Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka`	3	`* Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka`
4	`* Copyright (C) 1999-2003 The R Development Core Team.`	4	`* Copyright (C) 1999-2004 The R Development Core Team.`
5	`*`	5	`*`
6	`* This program is free software; you can redistribute it and/or modify`	6	`* This program is free software; you can redistribute it and/or modify`
7	`* it under the terms of the GNU Lesser General Public License as published by`	7	`* it under the terms of the GNU Lesser General Public License as published by`
8	`* the Free Software Foundation; either version 2.1 of the License, or`	8	`* the Free Software Foundation; either version 2.1 of the License, or`
9	`* (at your option) any later version.`	9	`* (at your option) any later version.`
Line 39...	Line 39...
39	`#include <float.h>`	39	`#include <float.h>`
40	`#include <ctype.h>`	40	`#include <ctype.h>`
41		41
42	`#include <R_ext/libextern.h>`	42	`#include <R_ext/libextern.h>`
43		43
-		44	`/* type for length of vectors etc */`
-		45	`typedef int R_len_t; /* will be long later, LONG64 or ssize_t on Win64 */`
-		46	`#define R_LEN_T_MAX INT_MAX`
-		47
44	`/* Fundamental Data Types: These are largely Lisp`	48	`/* Fundamental Data Types: These are largely Lisp`
45	`* influenced structures, with the exception of LGLSXP,`	49	`* influenced structures, with the exception of LGLSXP,`
46	`* INTSXP, REALSXP, CPLXSXP and STRSXP which are the`	50	`* INTSXP, REALSXP, CPLXSXP and STRSXP which are the`
47	`* element types for S-like data objects.`	51	`* element types for S-like data objects.`
48		52
Line 147...	Line 151...
147	`unsigned int gcgen : 1; /* old generation number */`	151	`unsigned int gcgen : 1; /* old generation number */`
148	`unsigned int gccls : 3; /* node class */`	152	`unsigned int gccls : 3; /* node class */`
149	`}; /* Tot: 32 */`	153	`}; /* Tot: 32 */`
150		154
151	`struct vecsxp_struct {`	155	`struct vecsxp_struct {`
152	`int length;`	156	`R_len_t length;`
153	`int truelength;`	157	`R_len_t truelength;`
154	`};`	158	`};`
155		159
156	`struct primsxp_struct {`	160	`struct primsxp_struct {`
157	`int offset;`	161	`int offset;`
158	`};`	162	`};`
Line 448...	Line 452...
448		452
449	`SEXP Rf_allocArray(SEXPTYPE, SEXP);`	453	`SEXP Rf_allocArray(SEXPTYPE, SEXP);`
450	`SEXP Rf_allocMatrix(SEXPTYPE, int, int);`	454	`SEXP Rf_allocMatrix(SEXPTYPE, int, int);`
451	`SEXP Rf_allocSExp(SEXPTYPE);`	455	`SEXP Rf_allocSExp(SEXPTYPE);`
452	`SEXP Rf_allocString(int);`	456	`SEXP Rf_allocString(int);`
453	`SEXP Rf_allocVector(SEXPTYPE, int);`	457	`SEXP Rf_allocVector(SEXPTYPE, R_len_t);`
454	`SEXP Rf_allocList(int);`	458	`SEXP Rf_allocList(int);`
455	`SEXP Rf_applyClosure(SEXP, SEXP, SEXP, SEXP, SEXP);`	459	`SEXP Rf_applyClosure(SEXP, SEXP, SEXP, SEXP, SEXP);`
456	`SEXP Rf_asChar(SEXP);`	460	`SEXP Rf_asChar(SEXP);`
457	`Rcomplex Rf_asComplex(SEXP);`	461	`Rcomplex Rf_asComplex(SEXP);`
458	`int Rf_asInteger(SEXP);`	462	`int Rf_asInteger(SEXP);`
459	`int Rf_asLogical(SEXP);`	463	`int Rf_asLogical(SEXP);`
460	`double Rf_asReal(SEXP);`	464	`double Rf_asReal(SEXP);`
-		465	`R_len_t Rf_asVecSize(SEXP);`
461	`SEXP Rf_arraySubscript(int, SEXP, SEXP, SEXP (*)(SEXP,SEXP),`	466	`SEXP Rf_arraySubscript(int, SEXP, SEXP, SEXP (*)(SEXP,SEXP),`
462	`SEXP (*)(SEXP, int), SEXP);`	467	`SEXP (*)(SEXP, int), SEXP);`
463	`SEXP Rf_classgets(SEXP, SEXP);`	468	`SEXP Rf_classgets(SEXP, SEXP);`
464	`Rboolean Rf_conformable(SEXP, SEXP);`	469	`Rboolean Rf_conformable(SEXP, SEXP);`
465	`SEXP Rf_cons(SEXP, SEXP);`	470	`SEXP Rf_cons(SEXP, SEXP);`
Line 537...	Line 542...
537	`SEXP Rf_lang2(SEXP, SEXP);`	542	`SEXP Rf_lang2(SEXP, SEXP);`
538	`SEXP Rf_lang3(SEXP, SEXP, SEXP);`	543	`SEXP Rf_lang3(SEXP, SEXP, SEXP);`
539	`SEXP Rf_lang4(SEXP, SEXP, SEXP, SEXP);`	544	`SEXP Rf_lang4(SEXP, SEXP, SEXP, SEXP);`
540	`SEXP Rf_lastElt(SEXP);`	545	`SEXP Rf_lastElt(SEXP);`
541	`SEXP Rf_lcons(SEXP, SEXP);`	546	`SEXP Rf_lcons(SEXP, SEXP);`
542	`int Rf_length(SEXP);`	547	`R_len_t Rf_length(SEXP);`
543	`SEXP Rf_lengthgets(SEXP, int);`	548	`SEXP Rf_lengthgets(SEXP, R_len_t);`
544	`SEXP Rf_list1(SEXP);`	549	`SEXP Rf_list1(SEXP);`
545	`SEXP Rf_list2(SEXP, SEXP);`	550	`SEXP Rf_list2(SEXP, SEXP);`
546	`SEXP Rf_list3(SEXP, SEXP, SEXP);`	551	`SEXP Rf_list3(SEXP, SEXP, SEXP);`
547	`SEXP Rf_list4(SEXP, SEXP, SEXP, SEXP);`	552	`SEXP Rf_list4(SEXP, SEXP, SEXP, SEXP);`
548	`SEXP Rf_listAppend(SEXP, SEXP);`	553	`SEXP Rf_listAppend(SEXP, SEXP);`
Line 872...	Line 877...
872	`#define ascommon Rf_ascommon`	877	`#define ascommon Rf_ascommon`
873	`#define asComplex Rf_asComplex`	878	`#define asComplex Rf_asComplex`
874	`#define asInteger Rf_asInteger`	879	`#define asInteger Rf_asInteger`
875	`#define asLogical Rf_asLogical`	880	`#define asLogical Rf_asLogical`
876	`#define asReal Rf_asReal`	881	`#define asReal Rf_asReal`
-		882	`#define asVecSize Rf_asVecSize`
877	`#define classgets Rf_classgets`	883	`#define classgets Rf_classgets`
878	`#define coerceList Rf_coerceList`	884	`#define coerceList Rf_coerceList`
879	`#define coerceVector Rf_coerceVector`	885	`#define coerceVector Rf_coerceVector`
880	`#define CoercionWarning Rf_CoercionWarning`	886	`#define CoercionWarning Rf_CoercionWarning`
881	`#define ComplexFromInteger Rf_ComplexFromInteger`	887	`#define ComplexFromInteger Rf_ComplexFromInteger`

The R Project SVN R

(root)/branches/R-Win-CMD/src/include/Rinternals.h – Rev 28254 → 28362