The R Project SVN R

Rev

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

Rev 87891 Rev 87909
Line 270... Line 270...
270 
       R 2.5.0.  We deparse them as deparse() would, minus attributes */
 270 
       R 2.5.0.  We deparse them as deparse() would, minus attributes */
271 
    if ((iS = isSymbol(x)) || TYPEOF(x) == LANGSXP) {
 271 
    if ((iS = isSymbol(x)) || TYPEOF(x) == LANGSXP) {
272 
	SEXP tmp = allocVector(STRSXP, 1);
 272 
	SEXP tmp = allocVector(STRSXP, 1);
273 
	PROTECT(tmp);
 273 
	PROTECT(tmp);
274 
	SET_STRING_ELT(tmp, 0, (iS) ? PRINTNAME(x) :
 274 
	SET_STRING_ELT(tmp, 0, (iS) ? PRINTNAME(x) :
275 
		       STRING_ELT(deparse1line_ex(x, 0,
 275 
		       STRING_ELT(deparse1line_ex(x, false,
276 
						  DEFAULTDEPARSE | DIGITS17),
 276 
						  DEFAULTDEPARSE | DIGITS17),
277 
				  0));
 277 
				  0));
278 
	REPROTECT(x = tmp, xpi);
 278 
	REPROTECT(x = tmp, xpi);
279 
	nx = xlength(x);
 279 
	nx = xlength(x);
280 
	UNPROTECT(1);
 280 
	UNPROTECT(1);
281 
    }
 281 
    }
282 
    if ((iS = isSymbol(y)) || TYPEOF(y) == LANGSXP) {
 282 
    if ((iS = isSymbol(y)) || TYPEOF(y) == LANGSXP) {
283 
	SEXP tmp = allocVector(STRSXP, 1);
 283 
	SEXP tmp = allocVector(STRSXP, 1);
284 
	PROTECT(tmp);
 284 
	PROTECT(tmp);
285 
	SET_STRING_ELT(tmp, 0, (iS) ? PRINTNAME(y) :
 285 
	SET_STRING_ELT(tmp, 0, (iS) ? PRINTNAME(y) :
286 
		       STRING_ELT(deparse1line_ex(y, 0,
 286 
		       STRING_ELT(deparse1line_ex(y, false,
287 
						  DEFAULTDEPARSE | DIGITS17),
 287 
						  DEFAULTDEPARSE | DIGITS17),
288 
				  0));
 288 
				  0));
289 
	REPROTECT(y = tmp, ypi);
 289 
	REPROTECT(y = tmp, ypi);
290 
	ny = xlength(y);
 290 
	ny = xlength(y);
291 
	UNPROTECT(1);
 291 
	UNPROTECT(1);