| Line 30... |
Line 30... |
| 30 |
|
30 |
|
| 31 |
/* utilities for creating SDF's */
|
31 |
/* utilities for creating SDF's */
|
| 32 |
char *_create_sdf_skeleton1(SEXP name, int *o_namelen);
|
32 |
char *_create_sdf_skeleton1(SEXP name, int *o_namelen);
|
| 33 |
int _copy_factor_levels2(const char *factor_type, const char *iname_src,
|
33 |
int _copy_factor_levels2(const char *factor_type, const char *iname_src,
|
| 34 |
const char *colname_src, const char *iname_dst, const char *colname_dst);
|
34 |
const char *colname_src, const char *iname_dst, const char *colname_dst);
|
| - |
|
35 |
int _create_factor_table2(const char *iname, const char *factor_type,
|
| - |
|
36 |
const char *colname);
|
| 35 |
|
37 |
|
| 36 |
/* R utilities */
|
38 |
/* R utilities */
|
| 37 |
SEXP _getListElement(SEXP list, char *varname);
|
39 |
SEXP _getListElement(SEXP list, char *varname);
|
| 38 |
SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */
|
40 |
SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */
|
| 39 |
|
41 |
|
| 40 |
/* sqlite utilities */
|
42 |
/* sqlite utilities */
|
| 41 |
int _empty_callback(void *data, int ncols, char **row, char **cols);
|
43 |
int _empty_callback(void *data, int ncols, char **row, char **cols);
|
| 42 |
int _sqlite_error(int res);
|
44 |
int _sqlite_error_check(int res, const char *file, int line);
|
| 43 |
const char *_get_column_type(const char *class, int type); /* get sqlite type corresponding to R class & type */
|
45 |
const char *_get_column_type(const char *class, int type); /* get sqlite type corresponding to R class & type */
|
| - |
|
46 |
sqlite3* _is_sqlitedb(char *filename);
|
| 44 |
|
47 |
|
| 45 |
/* global buffer (g_sql_buf) utilities */
|
48 |
/* global buffer (g_sql_buf) utilities */
|
| 46 |
int _expand_buf(int i, int size); /* expand ith buf if size > buf[i].size */
|
49 |
int _expand_buf(int i, int size); /* expand ith buf if size > buf[i].size */
|
| 47 |
|
50 |
|
| 48 |
|
51 |
|
| 49 |
/* sqlite.vector utilities */
|
52 |
/* sqlite.vector utilities */
|
| 50 |
SEXP sdf_get_variable(SEXP sdf, SEXP name);
|
53 |
SEXP sdf_get_variable(SEXP sdf, SEXP name);
|
| 51 |
SEXP sdf_detach_sdf(SEXP internal_name);
|
54 |
SEXP sdf_detach_sdf(SEXP internal_name);
|
| 52 |
|
55 |
|
| - |
|
56 |
/* workspace utilities */
|
| - |
|
57 |
int _prepare_attach2(); /* prepare workspace before attaching a sqlite db */
|
| - |
|
58 |
|
| 53 |
/* misc utilities */
|
59 |
/* misc utilities */
|
| 54 |
char *_r2iname(char *internal_name, char *filename);
|
60 |
char *_r2iname(char *internal_name, char *filename);
|
| 55 |
char *_fixname(char *rname);
|
61 |
char *_fixname(char *rname);
|
| - |
|
62 |
char *_str_tolower(char *out, const char *ref);
|
| 56 |
|
63 |
|
| 57 |
/* register functions to sqlite */
|
64 |
/* register functions to sqlite */
|
| 58 |
void __register_vector_math();
|
65 |
void __register_vector_math();
|
| 59 |
|
66 |
|
| 60 |
#define _sqlite_exec(sql) sqlite3_exec(g_workspace, sql, _empty_callback, NULL, NULL)
|
67 |
#define _sqlite_exec(sql) sqlite3_exec(g_workspace, sql, _empty_callback, NULL, NULL)
|
| - |
|
68 |
#define _sqlite_error(sql) _sqlite_error_check((sql), __FILE__, __LINE__)
|
| 61 |
#ifndef SET_ROWNAMES
|
69 |
#ifndef SET_ROWNAMES
|
| 62 |
#define SET_ROWNAMES(x,n) setAttrib(x, R_RowNamesSymbol, n)
|
70 |
#define SET_ROWNAMES(x,n) setAttrib(x, R_RowNamesSymbol, n)
|
| 63 |
#endif
|
71 |
#endif
|
| 64 |
|
72 |
|
| 65 |
/* override R's, which does a GetRowNames which is different I believe */
|
73 |
/* override R's, which does a GetRowNames which is different I believe */
|
The R Project SVN
R-packages