The R Project SVN R-packages

Rev

Rev 3446 | Rev 3457 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3446 Rev 3456
Line 9... Line 9...
9 
/* # of sql buffers */
 9 
/* # of sql buffers */
10 
#define NBUFS 4
 10 
#define NBUFS 4
11 
 
 11 
 
12 
#ifdef __SQLITE_WORKSPACE__
 12 
#ifdef __SQLITE_WORKSPACE__
13 
SEXP SDF_RowNamesSymbol;
 13 
SEXP SDF_RowNamesSymbol;
- 
 
 14 
SEXP SDF_VectorTypeSymbol;
14 
SEXP SDF_DimSymbol;
 15 
SEXP SDF_DimSymbol;
15 
SEXP SDF_DimNamesSymbol;
 16 
SEXP SDF_DimNamesSymbol;
16 
#else
17 
#else
17 
extern SEXP SDF_RowNamesSymbol;
 18 
extern SEXP SDF_RowNamesSymbol;
- 
 
 19 
extern SEXP SDF_VectorTypeSymbol;
18 
extern SEXP SDF_DimSymbol;
 20 
extern SEXP SDF_DimSymbol;
19 
extern SEXP SDF_DimNamesSymbol;
 21 
extern SEXP SDF_DimNamesSymbol;
20 
 
 22 
 
21 
extern sqlite3 *g_workspace;
 23 
extern sqlite3 *g_workspace;
22 
extern char *g_sql_buf[NBUFS];
 24 
extern char *g_sql_buf[NBUFS];
23 
extern int g_sql_buf_sz[NBUFS];
 25 
extern int g_sql_buf_sz[NBUFS];
24 
#endif
 26 
#endif
25 
 
 27 
 
- 
 
 28 
/* sdf type attributes */
- 
 
 29 
#define GET_SDFVECTORTYPE(x) getAttrib(x, SDF_VectorTypeSymbol)
- 
 
 30 
#define SET_SDFVECTORTYPE(x,t) setAttrib(x, SDF_VectorTypeSymbol, t)
- 
 
 31 
#define TEST_SDFVECTORTYPE(x, t) (strcmp(CHAR(asChar(GET_SDFVECTORTYPE(x))), t) == 0)
- 
 
 32 
#define GET_SDFROWNAMES(x) getAttrib(x, SDF_RowNamesSymbol)
- 
 
 33 
 
26 
#define WORKSPACE_COLUMNS 6
 34 
#define WORKSPACE_COLUMNS 6
27 
#define MAX_ATTACHED 30     /* 31 including workspace.db */
 35 
#define MAX_ATTACHED 30     /* 31 including workspace.db */
28 
 
 36 
 
29 
/* utilities for checking characteristics of arg */
 37 
/* utilities for checking characteristics of arg */
30 
int _is_r_sym(char *sym);
 38 
int _is_r_sym(char *sym);
Line 90... Line 98...
90 
 
 98 
 
91 
#ifndef SET_ROWNAMES
 99 
#ifndef SET_ROWNAMES
92 
#define SET_ROWNAMES(x,n) setAttrib(x, SDF_RowNamesSymbol, n)
 100 
#define SET_ROWNAMES(x,n) setAttrib(x, SDF_RowNamesSymbol, n)
93 
#endif
 101 
#endif
94 
 
 102 
 
95 
/* override R's, which does a GetRowNames which is different I believe */
 - 
 
96 
#undef GET_ROWNAMES
 - 
 
97 
#define GET_ROWNAMES(x) getAttrib(x, R_RowNamesSymbol)
 - 
 
98 
 
 103 
 
99 
/* R object accessors shortcuts */
 104 
/* R object accessors shortcuts */
100 
#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))
 105 
#define CHAR_ELT(str, i) CHAR(STRING_ELT(str,i))
101 
 
 106 
 
102 
/* SDF object accessors shortcuts */
 107 
/* SDF object accessors shortcuts */