The R Project SVN R

Rev

Rev 85209 | Rev 87180 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 85209 Rev 86648
Line 1028... Line 1028...
1028 
 
 1028 
 
1029 
/* This is used by packages arules, cba, proxy and seriation. */
 1029 
/* This is used by packages arules, cba, proxy and seriation. */
1030 
typedef SEXP AttrGetter(SEXP x, SEXP data);
 1030 
typedef SEXP AttrGetter(SEXP x, SEXP data);
1031 
typedef SEXP (*StringEltGetter)(SEXP x, int i);
 1031 
typedef SEXP (*StringEltGetter)(SEXP x, int i);
1032 
 
 1032 
 
1033 
SEXP
 1033 
attribute_hidden SEXP
1034 
arraySubscript(int dim, SEXP s, SEXP dims, AttrGetter dng,
 1034 
arraySubscript(int dim, SEXP s, SEXP dims, AttrGetter dng,
1035 
	       StringEltGetter strg, SEXP x)
 1035 
	       StringEltGetter strg, SEXP x)
1036 
{
 1036 
{
1037 
    return int_arraySubscript(dim, s, dims, x, R_NilValue);
 1037 
    return int_arraySubscript(dim, s, dims, x, R_NilValue);
1038 
}
 1038 
}