The R Project SVN – R-packages – Diff – /trunk/SQLiteDF/src/sqlite_dataframe.h


#include "R.h"
#include "Rdefines.h"
#include "Rinternals.h"
#include "sqlite3.h"
 
#ifndef __SQLITE_DATAFRAME__
#define __SQLITE_DATAFRAME__
 
#define WORKSPACE_COLUMNS 5
#define MAX_ATTACHED 30     /* 31 including workspace.db */
 
/* utilities for checking characteristics of arg */
int _is_r_sym(char *sym);
int _file_exists(char *filename);
int _sdf_exists2(char *iname);
 
/* sdf utilities */
int USE_SDF(const char *iname);  /* call this before doing anything on an SDF */
SEXP _create_sdf_sexp(const char *iname);  /* create a SEXP for an SDF */
int _add_sdf1(char *filename, char *internal_name); /* add SDF to workspace */
void _delete_sdf2(char *iname); /* remove SDF from workspace */
int _get_factor_levels1(const char *iname, const char *varname, SEXP var);
int _get_row_count2(const char *table);
SEXP _get_rownames(const char *sdf_iname);
char *_get_full_pathname2(char *relpath); /* get full path given relpath, used in workspace mgmt */
 
/* utilities for creating SDF's */
char *_create_sdf_skeleton2(SEXP name, int *o_namelen);
 
/* R utilities */
SEXP _getListElement(SEXP list, char *varname);
SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */
 
/* sqlite utilities */
int _empty_callback(void *data, int ncols, char **row, char **cols);
int _sqlite_error(int res);
const char *_get_column_type(const char *class, int type); /* get sqlite type corresponding to R class & type */
 
/* global buffer (g_sql_buf) utilities */
int _expand_buf(int i, int size);  /* expand ith buf if size > buf[i].size */
 
 
/* sqlite.vector utilities */
SEXP sdf_get_variable(SEXP sdf, SEXP name);
 
/* misc utilities */
char *_r2iname(char *internal_name, char *filename);
char *_fixname(char *rname);
 
/* register functions to sqlite */
void __register_vector_math();
 
#define _sqlite_exec(sql) sqlite3_exec(g_workspace, sql, _empty_callback, NULL, NULL)
#ifndef SET_ROWNAMES
#define SET_ROWNAMES(x,n) setAttrib(x, R_RowNamesSymbol, n)
#endif
 
/* R object accessors shortcuts */
#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))
 
/* SDF object accessors shortcuts */
#define SDF_INAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "iname"),0))
#define SVEC_VARNAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "varname"),0))
 
/* # of sql buffers */
#define NBUFS 4
 
/* possible var types when stored in sqlite as integer */
#define VAR_INTEGER 0
#define VAR_FACTOR  1
#define VAR_ORDERED 2
 
/* detail constants (see _get_sdf_detail2 in sqlite_workspace.c) */
#define SDF_DETAIL_EXISTS 0
#define SDF_DETAIL_FULLFILENAME 1
 
#ifndef __SQLITE_WORKSPACE__
extern sqlite3 *g_workspace;
extern char *g_sql_buf[NBUFS];
extern int g_sql_buf_sz[NBUFS];
#endif
 
#endif

The R Project SVN R-packages

(root)/trunk/SQLiteDF/src/sqlite_dataframe.h – Rev 3307 → 3308

Rev 3307		Rev 3308
1	`#include "R.h"`	1	`#include "R.h"`
2	`#include "Rdefines.h"`	2	`#include "Rdefines.h"`
3	`#include "Rinternals.h"`	3	`#include "Rinternals.h"`
4	`#include "sqlite3.h"`	4	`#include "sqlite3.h"`
5		5
6	`#ifndef __SQLITE_DATAFRAME__`	6	`#ifndef __SQLITE_DATAFRAME__`
7	`#define __SQLITE_DATAFRAME__`	7	`#define __SQLITE_DATAFRAME__`
8		8
9	`#define WORKSPACE_COLUMNS 3`	9	`#define WORKSPACE_COLUMNS 5`
-		10	`#define MAX_ATTACHED 30 /* 31 including workspace.db */`
10		11
11	`/* utilities for checking characteristics of arg */`	12	`/* utilities for checking characteristics of arg */`
12	`int _is_r_sym(char *sym);`	13	`int _is_r_sym(char *sym);`
13	`int _file_exists(char *filename);`	14	`int _file_exists(char *filename);`
14	`int _sdf_exists2(char *iname);`	15	`int _sdf_exists2(char *iname);`
15		16
16	`/* sdf utilities */`	17	`/* sdf utilities */`
-		18	`int USE_SDF(const char iname); / call this before doing anything on an SDF */`
17	`SEXP _create_sdf_sexp(const char iname); / create a SEXP for an SDF */`	19	`SEXP _create_sdf_sexp(const char iname); / create a SEXP for an SDF */`
18	`int _add_sdf1(char filename, char internal_name); /* add SDF to workspace */`	20	`int _add_sdf1(char filename, char internal_name); /* add SDF to workspace */`
-		21	`void _delete_sdf2(char iname); / remove SDF from workspace */`
19	`int _get_factor_levels1(const char iname, const char varname, SEXP var);`	22	`int _get_factor_levels1(const char iname, const char varname, SEXP var);`
20	`int _get_row_count2(const char *table);`	23	`int _get_row_count2(const char *table);`
21	`SEXP _get_rownames(const char *sdf_iname);`	24	`SEXP _get_rownames(const char *sdf_iname);`
22	`char _get_full_pathname2(char relpath); /* get full path given relpath, used in workspace mgmt */`	25	`char _get_full_pathname2(char relpath); /* get full path given relpath, used in workspace mgmt */`
23		26
24	`/* utilities for creating SDF's */`	27	`/* utilities for creating SDF's */`
25	`char _create_sdf_skeleton2(SEXP name, int o_namelen);`	28	`char _create_sdf_skeleton2(SEXP name, int o_namelen);`
26		29
27	`/* R utilities */`	30	`/* R utilities */`
28	`SEXP _getListElement(SEXP list, char *varname);`	31	`SEXP _getListElement(SEXP list, char *varname);`
29	`SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */`	32	`SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */`
30		33
31	`/* sqlite utilities */`	34	`/* sqlite utilities */`
32	`int _empty_callback(void data, int ncols, char row, char *cols);`	35	`int _empty_callback(void data, int ncols, char row, char *cols);`
33	`int _sqlite_error(int res);`	36	`int _sqlite_error(int res);`
34	`const char _get_column_type(const char class, int type); /* get sqlite type corresponding to R class & type */`	37	`const char _get_column_type(const char class, int type); /* get sqlite type corresponding to R class & type */`
35		38
36	`/* global buffer (g_sql_buf) utilities */`	39	`/* global buffer (g_sql_buf) utilities */`
37	`int _expand_buf(int i, int size); /* expand ith buf if size > buf[i].size */`	40	`int _expand_buf(int i, int size); /* expand ith buf if size > buf[i].size */`
38		41
39		42
40	`/* sqlite.vector utilities */`	43	`/* sqlite.vector utilities */`
41	`SEXP sdf_get_variable(SEXP sdf, SEXP name);`	44	`SEXP sdf_get_variable(SEXP sdf, SEXP name);`
42		45
43	`/* misc utilities */`	46	`/* misc utilities */`
44	`char _r2iname(char internal_name, char *filename);`	47	`char _r2iname(char internal_name, char *filename);`
45	`char _fixname(char rname);`	48	`char _fixname(char rname);`
46		49
47	`/* register functions to sqlite */`	50	`/* register functions to sqlite */`
48	`void __register_vector_math();`	51	`void __register_vector_math();`
49		52
50	`#define _sqlite_exec(sql) sqlite3_exec(g_workspace, sql, _empty_callback, NULL, NULL)`	53	`#define _sqlite_exec(sql) sqlite3_exec(g_workspace, sql, _empty_callback, NULL, NULL)`
51	`#ifndef SET_ROWNAMES`	54	`#ifndef SET_ROWNAMES`
52	`#define SET_ROWNAMES(x,n) setAttrib(x, R_RowNamesSymbol, n)`	55	`#define SET_ROWNAMES(x,n) setAttrib(x, R_RowNamesSymbol, n)`
53	`#endif`	56	`#endif`
54		57
55	`/* R object accessors shortcuts */`	58	`/* R object accessors shortcuts */`
56	`#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))`	59	`#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))`
57		60
58	`/* SDF object accessors shortcuts */`	61	`/* SDF object accessors shortcuts */`
59	`#define SDF_INAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "iname"),0))`	62	`#define SDF_INAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "iname"),0))`
60	`#define SVEC_VARNAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "varname"),0))`	63	`#define SVEC_VARNAME(sdf) CHAR(STRING_ELT(_getListElement(sdf, "varname"),0))`
61		64
62	`/* # of sql buffers */`	65	`/* # of sql buffers */`
63	`#define NBUFS 4`	66	`#define NBUFS 4`
64		67
65	`/* possible var types when stored in sqlite as integer */`	68	`/* possible var types when stored in sqlite as integer */`
66	`#define VAR_INTEGER 0`	69	`#define VAR_INTEGER 0`
67	`#define VAR_FACTOR 1`	70	`#define VAR_FACTOR 1`
68	`#define VAR_ORDERED 2`	71	`#define VAR_ORDERED 2`
69		72
70	`/* detail constants (see _get_sdf_detail2 in sqlite_workspace.c) */`	73	`/* detail constants (see _get_sdf_detail2 in sqlite_workspace.c) */`
71	`#define SDF_DETAIL_EXISTS 0`	74	`#define SDF_DETAIL_EXISTS 0`
72	`#define SDF_DETAIL_FULLFILENAME 1`	75	`#define SDF_DETAIL_FULLFILENAME 1`
73		76
74	`#ifndef __SQLITE_WORKSPACE__`	77	`#ifndef __SQLITE_WORKSPACE__`
75	`extern sqlite3 *g_workspace;`	78	`extern sqlite3 *g_workspace;`
76	`extern char *g_sql_buf[NBUFS];`	79	`extern char *g_sql_buf[NBUFS];`
77	`extern int g_sql_buf_sz[NBUFS];`	80	`extern int g_sql_buf_sz[NBUFS];`
78	`#endif`	81	`#endif`
79		82
80	`#endif`	83	`#endif`