The R Project SVN R

Rev

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

Rev 87902 Rev 88719
Line 1589... Line 1589...
1589 
	rho = ENCLOS(rho);
 1589 
	rho = ENCLOS(rho);
1590 
    }
 1590 
    }
1591 
    if(!found) return R_NilValue;
 1591 
    if(!found) return R_NilValue;
1592 
 
 1592 
 
1593 
    PROTECT(e = lang2(install("getCallingDLLe"), rho));
 1593 
    PROTECT(e = lang2(install("getCallingDLLe"), rho));
1594 
    ans = eval(e,  R_GlobalEnv);
 1594 
    ans = eval(e,  R_BaseEnv);
1595 
    UNPROTECT(1);
 1595 
    UNPROTECT(1);
1596 
    return(ans);
 1596 
    return(ans);
1597 
}
 1597 
}
1598 
 
 1598 
 
1599 
 
 1599 
 
Line 1617... Line 1617...
1617 
    if(dll->obj == NULL) {
 1617 
    if(dll->obj == NULL) {
1618 
	/* Rprintf("\nsearching for %s\n", name); */
 1618 
	/* Rprintf("\nsearching for %s\n", name); */
1619 
	if (env != R_NilValue) {
 1619 
	if (env != R_NilValue) {
1620 
	    SEXP e;
 1620 
	    SEXP e;
1621 
	    PROTECT(e = lang2(install("getCallingDLLe"), env));
 1621 
	    PROTECT(e = lang2(install("getCallingDLLe"), env));
1622 
	    dll->obj = eval(e, R_GlobalEnv);
 1622 
	    dll->obj = eval(e, R_BaseEnv);
1623 
	    UNPROTECT(1);
 1623 
	    UNPROTECT(1);
1624 
	} else dll->obj = Rf_getCallingDLL();
 1624 
	} else dll->obj = Rf_getCallingDLL();
1625 
	PROTECT(dll->obj); numProtects++;
 1625 
	PROTECT(dll->obj); numProtects++;
1626 
    }
 1626 
    }
1627 
 
 1627