The R Project SVN R-packages

Rev

Rev 3281 | Rev 3284 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3281 Rev 3282
Line 190... Line 190...
190 
SEXP _get_rownames(const char *sdf_iname) {
 190 
SEXP _get_rownames(const char *sdf_iname) {
191 
    sqlite3_stmt *stmt;
 191 
    sqlite3_stmt *stmt;
192 
    sprintf(g_sql_buf[0], "select [row name] from [%s].sdf_data", sdf_iname);
 192 
    sprintf(g_sql_buf[0], "select [row name] from [%s].sdf_data", sdf_iname);
193 
    int res = sqlite3_prepare(g_workspace, g_sql_buf[0], -1, &stmt, 0);
 193 
    int res = sqlite3_prepare(g_workspace, g_sql_buf[0], -1, &stmt, 0);
194 
 
 194 
 
- 
 
 195 
    sqlite3_finalize(stmt);
195 
    if (_sqlite_error(res)) return R_NilValue;
196 
    if (_sqlite_error(res)) return R_NilValue;
196 
 
 197 
 
197 
    SEXP ret, value;
 198 
    SEXP ret, value;
198 
    int nprotected = 1;
 199 
    int nprotected = 1;
199 
    PROTECT(ret = NEW_LIST(2));
200 
    PROTECT(ret = NEW_LIST(2));
Line 215... Line 216...
215 
    SET_CLASS(ret, value);
 216 
    SET_CLASS(ret, value);
216 
 
 217 
 
217 
    UNPROTECT(nprotected);
 218 
    UNPROTECT(nprotected);
218 
    return ret;
 219 
    return ret;
219 
}
 220 
}
- 
 
 221 
 
220 
SEXP _create_sdf_sexp(const char *iname) {
 222 
SEXP _create_sdf_sexp(const char *iname) {
221 
    SEXP names, class, variable, ret;
 223 
    SEXP names, class, variable, ret;
222 
    int nprotected = 0;
 224 
    int nprotected = 0;
223 
    PROTECT(ret = NEW_LIST(1)); nprotected++;
 225 
    PROTECT(ret = NEW_LIST(1)); nprotected++;
224 
    PROTECT(names = mkString("iname")); nprotected++;
 226 
    PROTECT(names = mkString("iname")); nprotected++;