The R Project SVN R-packages

Rev

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

Rev 3281 Rev 3282
Line 127... Line 127...
127 
 
 127 
 
128
128
129 
SEXP sdf_get_variable_index(SEXP svec, SEXP idx) {
 129 
SEXP sdf_get_variable_index(SEXP svec, SEXP idx) {
130 
    SEXP ret = R_NilValue, tmp;
 130 
    SEXP ret = R_NilValue, tmp;
131 
    char *iname = SDF_INAME(svec), *varname = SVEC_VARNAME(svec);
 131 
    char *iname = SDF_INAME(svec), *varname = SVEC_VARNAME(svec);
132 
    int index, idxlen, i, retlen, res;
 132 
    int index, idxlen, i, retlen=0, res;
133 
 
 133 
 
134 
    /* check if sdf exists */
 134 
    /* check if sdf exists */
135 
    sqlite3_stmt *stmt;
 135 
    sqlite3_stmt *stmt;
136 
    sprintf(g_sql_buf[0], "select [%s] from [%s].sdf_data", varname, iname);
 136 
    sprintf(g_sql_buf[0], "select [%s] from [%s].sdf_data", varname, iname);
137 
    res = sqlite3_prepare(g_workspace, g_sql_buf[0], -1, &stmt, 0);
 137 
    res = sqlite3_prepare(g_workspace, g_sql_buf[0], -1, &stmt, 0);