-
Notifications
You must be signed in to change notification settings - Fork 13
Expand file tree
/
Copy pathinit.c
More file actions
78 lines (70 loc) · 3.55 KB
/
init.c
File metadata and controls
78 lines (70 loc) · 3.55 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#include <R.h>
#include <Rinternals.h>
#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>
/* .Call calls */
extern SEXP slide_common_impl(SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP hop_common_impl(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slide_index_common_impl(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP hop_index_common_impl(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_block(SEXP, SEXP, SEXP);
extern SEXP slider_compute_from(SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_compute_to(SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_sum(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_mean(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_prod(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_min(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_max(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_all(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_any(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_sum_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_mean_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_prod_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_min_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_max_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_all_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP slider_index_any_core(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
// Defined below
SEXP slider_initialize(SEXP);
static const R_CallMethodDef CallEntries[] = {
{"slide_common_impl", (DL_FUNC) &slide_common_impl, 5},
{"hop_common_impl", (DL_FUNC) &hop_common_impl, 7},
{"slide_index_common_impl", (DL_FUNC) &slide_index_common_impl, 13},
{"hop_index_common_impl", (DL_FUNC) &hop_index_common_impl, 12},
{"slider_block", (DL_FUNC) &slider_block, 3},
{"slider_compute_from", (DL_FUNC) &slider_compute_from, 4},
{"slider_compute_to", (DL_FUNC) &slider_compute_to, 4},
{"slider_sum", (DL_FUNC) &slider_sum, 6},
{"slider_mean", (DL_FUNC) &slider_mean, 6},
{"slider_prod", (DL_FUNC) &slider_prod, 6},
{"slider_min", (DL_FUNC) &slider_min, 6},
{"slider_max", (DL_FUNC) &slider_max, 6},
{"slider_all", (DL_FUNC) &slider_all, 6},
{"slider_any", (DL_FUNC) &slider_any, 6},
{"slider_index_sum_core", (DL_FUNC) &slider_index_sum_core, 7},
{"slider_index_mean_core", (DL_FUNC) &slider_index_mean_core, 7},
{"slider_index_prod_core", (DL_FUNC) &slider_index_prod_core, 7},
{"slider_index_min_core", (DL_FUNC) &slider_index_min_core, 7},
{"slider_index_max_core", (DL_FUNC) &slider_index_max_core, 7},
{"slider_index_all_core", (DL_FUNC) &slider_index_all_core, 7},
{"slider_index_any_core", (DL_FUNC) &slider_index_any_core, 7},
{"slider_initialize", (DL_FUNC) &slider_initialize, 1},
{NULL, NULL, 0}
};
void R_init_slider(DllInfo *dll)
{
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}
// slider-vctrs-private.c
void slider_initialize_vctrs_private(void);
// slider-vctrs-public.c
void slider_initialize_vctrs_public(void);
// utils.c
void slider_initialize_utils(SEXP);
SEXP slider_initialize(SEXP ns) {
slider_initialize_vctrs_private();
slider_initialize_vctrs_public();
slider_initialize_utils(ns);
return R_NilValue;
}