The R Project SVN R-packages

Rev

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

Rev 3324 Rev 3358
Line 17... Line 17...
17
int _is_r_sym(char *sym);
17
int _is_r_sym(char *sym);
18
int _file_exists(char *filename);
18
int _file_exists(char *filename);
19
int _sdf_exists2(char *iname);
19
int _sdf_exists2(char *iname);
20
 
20
 
21
/* sdf utilities */
21
/* sdf utilities */
22
int USE_SDF(const char *iname, int exists);  /* call this before doing anything on an SDF */
22
int USE_SDF1(const char *iname, int exists);  /* call this before doing anything on an SDF */
23
SEXP _create_sdf_sexp(const char *iname);  /* create a SEXP for an SDF */
23
SEXP _create_sdf_sexp(const char *iname);  /* create a SEXP for an SDF */
24
int _add_sdf1(char *filename, char *internal_name); /* add SDF to workspace */
24
int _add_sdf1(char *filename, char *internal_name); /* add SDF to workspace */
25
void _delete_sdf2(const char *iname); /* remove SDF from workspace */
25
void _delete_sdf2(const char *iname); /* remove SDF from workspace */
26
int _get_factor_levels1(const char *iname, const char *varname, SEXP var);
26
int _get_factor_levels1(const char *iname, const char *varname, SEXP var);
27
int _get_row_count2(const char *table);
27
int _get_row_count2(const char *table, int quote);
28
SEXP _get_rownames(const char *sdf_iname);
28
SEXP _get_rownames(const char *sdf_iname);
29
char *_get_full_pathname2(char *relpath); /* get full path given relpath, used in workspace mgmt */
29
char *_get_full_pathname2(char *relpath); /* get full path given relpath, used in workspace mgmt */
30
 
30
 
31
/* utilities for creating SDF's */
31
/* utilities for creating SDF's */
32
char *_create_sdf_skeleton2(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,
-
 
34
        const char *colname_src, const char *iname_dst, const char *colname_dst);
33
 
35
 
34
/* R utilities */
36
/* R utilities */
35
SEXP _getListElement(SEXP list, char *varname);
37
SEXP _getListElement(SEXP list, char *varname);
36
SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */
38
SEXP _shrink_vector(SEXP vec, int len); /* shrink vector size */
37
 
39
 
Line 44... Line 46...
44
int _expand_buf(int i, int size);  /* expand ith buf if size > buf[i].size */
46
int _expand_buf(int i, int size);  /* expand ith buf if size > buf[i].size */
45
 
47
 
46
 
48
 
47
/* sqlite.vector utilities */
49
/* sqlite.vector utilities */
48
SEXP sdf_get_variable(SEXP sdf, SEXP name);
50
SEXP sdf_get_variable(SEXP sdf, SEXP name);
-
 
51
SEXP sdf_detach_sdf(SEXP internal_name);
49
 
52
 
50
/* misc utilities */
53
/* misc utilities */
51
char *_r2iname(char *internal_name, char *filename);
54
char *_r2iname(char *internal_name, char *filename);
52
char *_fixname(char *rname);
55
char *_fixname(char *rname);
53
 
56
 
Line 80... Line 83...
80
 
83
 
81
/* detail constants (see _get_sdf_detail2 in sqlite_workspace.c) */
84
/* detail constants (see _get_sdf_detail2 in sqlite_workspace.c) */
82
#define SDF_DETAIL_EXISTS 0
85
#define SDF_DETAIL_EXISTS 0
83
#define SDF_DETAIL_FULLFILENAME 1
86
#define SDF_DETAIL_FULLFILENAME 1
84
 
87
 
-
 
88
/* R SXP type constants */
-
 
89
#define FACTORSXP 11
-
 
90
#define ORDEREDSXP 12
-
 
91
 
85
#ifndef __SQLITE_WORKSPACE__
92
#ifndef __SQLITE_WORKSPACE__
86
extern sqlite3 *g_workspace;
93
extern sqlite3 *g_workspace;
87
extern char *g_sql_buf[NBUFS];
94
extern char *g_sql_buf[NBUFS];
88
extern int g_sql_buf_sz[NBUFS];
95
extern int g_sql_buf_sz[NBUFS];
89
#endif
96
#endif