The R Project SVN R

Rev

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

Rev 87901 Rev 89924
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1997--2025  The R Core Team
 3 
 *  Copyright (C) 1997--2026  The R Core Team
4 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 4 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
Line 2077... Line 2077...
2077 
    t = s;
 2077 
    t = s;
2078 
    for (j = 0; j < len; j++, t = CDR(t)) {
 2078 
    for (j = 0; j < len; j++, t = CDR(t)) {
2079 
	SET_TAG(t, installTrChar(STRING_ELT(CAR(args), j)));
 2079 
	SET_TAG(t, installTrChar(STRING_ELT(CAR(args), j)));
2080 
	tmp = R_findVar(TAG(t), source);
 2080 
	tmp = R_findVar(TAG(t), source);
2081 
	if (tmp == R_UnboundValue)
 2081 
	if (tmp == R_UnboundValue)
2082 
	    error(_("object '%s' not found"), EncodeChar(PRINTNAME(TAG(t))));
 2082 
	    R_ObjectNotFoundError(TAG(t),  R_CurrentExpression, NULL);
2083 
	if(ep && TYPEOF(tmp) == PROMSXP) {
 2083 
	if(ep && TYPEOF(tmp) == PROMSXP) {
2084 
	    PROTECT(tmp);
 2084 
	    PROTECT(tmp);
2085 
	    tmp = eval(tmp, source);
 2085 
	    tmp = eval(tmp, source);
2086 
	    UNPROTECT(1);
 2086 
	    UNPROTECT(1);
2087 
	}
 2087 
	}
Line 2412... Line 2412...
2412 
    for (j = 0; j < len; j++, t = CDR(t)) {
 2412 
    for (j = 0; j < len; j++, t = CDR(t)) {
2413 
	SET_TAG(t, installTrChar(STRING_ELT(list, j)));
 2413 
	SET_TAG(t, installTrChar(STRING_ELT(list, j)));
2414 
	SETCAR(t, R_findVar(TAG(t), source));
 2414 
	SETCAR(t, R_findVar(TAG(t), source));
2415 
	tmp = R_findVar(TAG(t), source);
 2415 
	tmp = R_findVar(TAG(t), source);
2416 
	if (tmp == R_UnboundValue)
 2416 
	if (tmp == R_UnboundValue)
2417 
	    error(_("object '%s' not found"), EncodeChar(PRINTNAME(TAG(t))));
 2417 
	    R_ObjectNotFoundError(TAG(t), R_CurrentExpression, NULL);
2418 
	if(ep && TYPEOF(tmp) == PROMSXP) {
 2418 
	if(ep && TYPEOF(tmp) == PROMSXP) {
2419 
	    PROTECT(tmp);
 2419 
	    PROTECT(tmp);
2420 
	    tmp = eval(tmp, source);
 2420 
	    tmp = eval(tmp, source);
2421 
	    UNPROTECT(1);
 2421 
	    UNPROTECT(1);
2422 
	}
 2422 
	}