The R Project SVN R

Rev

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

Rev 61253 Rev 62509
Line 352... Line 352...
352 
		}
 352 
		}
353 
		buffer->data[m++] = (char) c;
 353 
		buffer->data[m++] = (char) c;
354 
		if(dbcslocale && btowc(c) == WEOF)
 354 
		if(dbcslocale && btowc(c) == WEOF)
355 
		    buffer->data[m++] = (char) scanchar2(d);
 355 
		    buffer->data[m++] = (char) scanchar2(d);
356 
	    }
 356 
	    }
- 
 
 357 
	    if (c == R_EOF)
- 
 
 358 
	    	warning(_("EOF within quoted string"));
357 
	    c = scanchar(FALSE, d);
 359 
	    c = scanchar(FALSE, d);
358 
	    mm = m;
 360 
	    mm = m;
359 
	}
 361 
	}
360 
	else { /* not a quoted char string */
 362 
	else { /* not a quoted char string */
361 
	    do {
 363 
	    do {
Line 400... Line 402...
400 
			}
 402 
			}
401 
			buffer->data[m++] = (char) c;
 403 
			buffer->data[m++] = (char) c;
402 
			if(dbcslocale && btowc(c) == WEOF)
 404 
			if(dbcslocale && btowc(c) == WEOF)
403 
			    buffer->data[m++] = (char) scanchar2(d);
 405 
			    buffer->data[m++] = (char) scanchar2(d);
404 
		    }
 406 
		    }
- 
 
 407 
		    if (c == R_EOF)
- 
 
 408 
		    	warning(_("EOF within quoted string"));
405 
		    c = scanchar(TRUE, d); /* only peek at lead byte
 409 
		    c = scanchar(TRUE, d); /* only peek at lead byte
406 
					      unless ASCII */
 410 
					      unless ASCII */
407 
		    if (c == quote) {
 411 
		    if (c == quote) {
408 
			if (m >= nbuf - 3) {
 412 
			if (m >= nbuf - 3) {
409 
			    nbuf *= 2;
 413 
			    nbuf *= 2;