The R Project SVN R

Rev

Rev 89886 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89886 Rev 89942
Line 20... Line 20...
20 
 *  You should have received a copy of the GNU Lesser General Public License
 20 
 *  You should have received a copy of the GNU Lesser General Public License
21 
 *  along with this program; if not, a copy is available at
 21 
 *  along with this program; if not, a copy is available at
22 
 *  https://www.R-project.org/Licenses/
 22 
 *  https://www.R-project.org/Licenses/
23 
 */
 23 
 */
24 
 
 24 
 
25 
/* This file is installed and available to packages, but only a small
 25 
/* This file is installed and available to packages. Some entry points
26 
   part of the contents is within the API.  See chapter 6 of 'Writing
 26 
   and variables are experimental and subject to change on short
27 
   R Extensions'.
 27 
   notice.  See chapter 6 of 'Writing R Extensions'.
28 
 */
 28 
 */
29 
 
 29 
 
30 
#ifndef R_INTERNALS_H_
 30 
#ifndef R_INTERNALS_H_
31 
#define R_INTERNALS_H_
 31 
#define R_INTERNALS_H_
32 
 
 32 
 
Line 1171... Line 1171...
1171 
 
 1171 
 
1172 
#define KNOWN_DECR(sorted) (sorted == SORTED_DECR ||	\
 1172 
#define KNOWN_DECR(sorted) (sorted == SORTED_DECR ||	\
1173 
			    sorted == SORTED_DECR_NA_1ST)
 1173 
			    sorted == SORTED_DECR_NA_1ST)
1174 
 
 1174 
 
1175 
 
 1175 
 
1176 
/* ====================== public but non-API entry points =================
 1176 
/* ====================== experimental API entry points ================= */
1177 
 
 - 
 
1178 
   "not documented and subject to change without notice."
 - 
 
1179 
 
 - 
 
1180 
   and that includes possible removal.
 - 
 
1181 
 */
 - 
 
1182 
 
 1177 
 
1183
1178
1184 
/* Experimental C interface for experimental hash table support
 1179 
/* Experimental C interface for experimental hash table support */
1185 
 
 - 
 
1186 
   Not in the API (at least not yet) but declared here to allow some
 - 
 
1187 
   experimenting */
 - 
 
1188 
 
 1180 
 
1189 
/* try to allow some type checking */
 1181 
/* try to allow some type checking */
1190 
typedef struct { SEXP cell; } R_hashtab_type;
 1182 
typedef struct { SEXP cell; } R_hashtab_type;
1191 
 
 1183 
 
1192 
/* hash table types */
 1184 
/* hash table types */
Line 1227... Line 1219...
1227 
#define BODY_EXPR(e) R_ClosureExpr(e)
 1219 
#define BODY_EXPR(e) R_ClosureExpr(e)
1228 
 
 1220 
 
1229 
// used by BioC::matter; marked as @eapifun for now
 1221 
// used by BioC::matter; marked as @eapifun for now
1230 
SEXP R_tryWrap(SEXP);
 1222 
SEXP R_tryWrap(SEXP);
1231 
 
 1223 
 
1232 
/* Rest of this file
 - 
 
1233 
   Stuff that is not API and probably should not be but is getting used.
 - 
 
1234 
 */
 - 
 
1235 
 
 - 
 
1236 
const char *R_curErrorBuf(void); // used by Rserve
 1224 
const char *R_curErrorBuf(void); // used by Rserve
1237 
int (IS_SCALAR)(SEXP x, int type);
 1225 
int (IS_SCALAR)(SEXP x, int type);
1238 
 
 1226 
 
1239 
/* used in a couple of packages but should probably be dropped
1227 
/* formerly used in a couple of packages but should probably be dropped */
1240 
   error_return: grr rJava rbedrock
 - 
 
1241 
   errorcall_return: formerly Runuran(with call=NULL)
 - 
 
1242 
*/
 - 
 
1243 
				/* match(.) NOT reached : for -Wall */
 - 
 
1244 
#define error_return(msg)	{ Rf_error(msg);	   return R_NilValue; }
 1228 
#define error_return(msg)	{ Rf_error(msg);	   return R_NilValue; }
1245 
#define errorcall_return(cl,msg){ Rf_errorcall(cl, msg);   return R_NilValue; }
 1229 
#define errorcall_return(cl,msg){ Rf_errorcall(cl, msg);   return R_NilValue; }
1246 
 
 1230 
 
1247 
#ifdef ENABLE_LEGACY_NONAPI
 1231 
#ifdef ENABLE_LEGACY_NONAPI
1248 
# define ENABLE_LEGACY_NONAPI_FUNS
 1232 
# define ENABLE_LEGACY_NONAPI_FUNS