The R Project SVN R-packages

Rev

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

Rev 3684 Rev 3700
Line 379... Line 379...
379 
}
 379 
}
380 
 
 380 
 
381 
SEXP sdf_attach_sdf(SEXP filename, SEXP internal_name) {
 381 
SEXP sdf_attach_sdf(SEXP filename, SEXP internal_name) {
382 
    /* when studying this, please be mindful of the global buffers used.
 382 
    /* when studying this, please be mindful of the global buffers used.
383 
     * you have been warned */
 383 
     * you have been warned */
384 
    char *fname, *iname, *iname_orig;;
 384 
    char *fname=NULL, *iname, *iname_orig=NULL;
385 
    int fnamelen, res;
 385 
    int fnamelen=0, res;
386 
    sqlite3_stmt *stmt;
 386 
    sqlite3_stmt *stmt;
387 
 
 387 
 
388 
    if (IS_CHARACTER(filename)) {
 388 
    if (IS_CHARACTER(filename)) {
389 
        fname = CHAR_ELT(filename, 0);
 389 
        fname = CHAR_ELT(filename, 0);
390 
        fnamelen = strlen(fname);
 390 
        fnamelen = strlen(fname);