The R Project SVN R

Rev

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

Rev 89935 Rev 90097
Line 4286... Line 4286...
4286 
 
 4286 
 
4287 
// .Internal(getRegisteredNamespace(name))  ==  .getNamespace(name)
 4287 
// .Internal(getRegisteredNamespace(name))  ==  .getNamespace(name)
4288 
// .Internal(isRegisteredNamespace (name))  ==  isNamespaceLoaded(name)
 4288 
// .Internal(isRegisteredNamespace (name))  ==  isNamespaceLoaded(name)
4289 
attribute_hidden SEXP do_getRegNS(SEXP call, SEXP op, SEXP args, SEXP rho)
 4289 
attribute_hidden SEXP do_getRegNS(SEXP call, SEXP op, SEXP args, SEXP rho)
4290 
{
 4290 
{
4291 
    SEXP name, val;
 - 
 
4292 
    checkArity(op, args);
 4291 
    checkArity(op, args);
4293 
    name = checkNSname(call, PROTECT(coerceVector(CAR(args), SYMSXP)));
 4292 
    SEXP name = checkNSname(call, PROTECT(coerceVector(CAR(args), SYMSXP)));
4294 
    UNPROTECT(1);
 4293 
    UNPROTECT(1);
4295 
    val = R_findVarInFrame(R_NamespaceRegistry, name);
 4294 
    SEXP val = R_findVarInFrame(R_NamespaceRegistry, name);
4296 
 
 4295 
 
4297 
    switch(PRIMVAL(op)) {
 4296 
    switch(PRIMVAL(op)) {
4298 
    case 0: // get..()
 4297 
    case 0: // get..()
4299 
	if (val == R_UnboundValue)
 4298 
	if (val == R_UnboundValue)
4300 
	    return R_NilValue;
 4299 
	    return R_NilValue;