The R Project SVN R

Rev

Rev 42208 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 42208 Rev 42736
Line 388... Line 388...
388 
	if(!(fp1 = RC_fopen(STRING_ELT(f1, 0), "ab", TRUE)))
 388 
	if(!(fp1 = RC_fopen(STRING_ELT(f1, 0), "ab", TRUE)))
389 
	   goto done;
 389 
	   goto done;
390 
	for(i = 0; i < n; i++) {
 390 
	for(i = 0; i < n; i++) {
391 
	    status = 0;
 391 
	    status = 0;
392 
	    if(!(fp2 = RC_fopen(STRING_ELT(f2, i), "rb", TRUE))) continue;
 392 
	    if(!(fp2 = RC_fopen(STRING_ELT(f2, i), "rb", TRUE))) continue;
- 
 
 393 
	    if(PRIMVAL(op) == 1) {
- 
 
 394 
	    	strcpy(buf, "#line 1 \"");
- 
 
 395 
	    	strcat(buf, CHAR(STRING_ELT(f2, i)));
- 
 
 396 
	    	strcat(buf, "\"\n");
- 
 
 397 
	    	fwrite(buf, 1, strlen(buf), fp2);
- 
 
 398 
	    }
393 
	    while((nchar = fread(buf, 1, APPENDBUFSIZE, fp2)) == APPENDBUFSIZE)
 399 
	    while((nchar = fread(buf, 1, APPENDBUFSIZE, fp2)) == APPENDBUFSIZE)
394 
		if(fwrite(buf, 1, APPENDBUFSIZE, fp1) != APPENDBUFSIZE)
 400 
		if(fwrite(buf, 1, APPENDBUFSIZE, fp1) != APPENDBUFSIZE)
395 
		    goto append_error;
 401 
		    goto append_error;
396 
	    if(fwrite(buf, 1, nchar, fp1) != nchar) goto append_error;
 402 
	    if(fwrite(buf, 1, nchar, fp1) != nchar) goto append_error;
397 
	    if(PRIMVAL(op) == 1 && buf[nchar - 1] != '\n') {
 403 
	    if(PRIMVAL(op) == 1 && buf[nchar - 1] != '\n') {