The R Project SVN R

Rev

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

Rev 45446 Rev 45982
Line 187... Line 187...
187 
	if (status != PARSE_OK) parseError(call, 0);
 187 
	if (status != PARSE_OK) parseError(call, 0);
188 
    }
 188 
    }
189 
    else if (ifile >= 3) {/* file != "" */
 189 
    else if (ifile >= 3) {/* file != "" */
190 
	if (num == NA_INTEGER)
 190 
	if (num == NA_INTEGER)
191 
	    num = -1;
 191 
	    num = -1;
192 
	if(!wasopen)
 192 
	if(!wasopen) {
193 
	    if(!con->open(con)) error(_("cannot open the connection"));
 193 
	    if(!con->open(con)) error(_("cannot open the connection"));
- 
 
 194 
	    if(!con->canread) {
- 
 
 195 
		con->close(con);
- 
 
 196 
		error(_("cannot read from this connection"));
- 
 
 197 
	    }
- 
 
 198 
	} else if(!con->canread)
- 
 
 199 
	    error(_("cannot read from this connection"));
194 
	s = R_ParseConn(con, num, &status, source);
 200 
	s = R_ParseConn(con, num, &status, source);
195 
	if(!wasopen) con->close(con);
 201 
	if(!wasopen) con->close(con);
196 
	if (status != PARSE_OK) parseError(call, R_ParseError);
 202 
	if (status != PARSE_OK) parseError(call, R_ParseError);
197 
    }
 203 
    }
198 
    else {
 204 
    else {