The R Project SVN R

Rev

Rev 41807 | Rev 41901 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 41807 Rev 41894
Line 731... Line 731...
731 
 
 731 
 
732 
 
 732 
 
733 
 
 733 
 
734 
SEXP attribute_hidden do_isloaded(SEXP call, SEXP op, SEXP args, SEXP env)
 734 
SEXP attribute_hidden do_isloaded(SEXP call, SEXP op, SEXP args, SEXP env)
735 
{
 735 
{
736 
    SEXP ans;
 - 
 
737 
    const char *sym, *type="", *pkg = "";
 736 
    const char *sym, *type="", *pkg = "";
738 
    int val = 1, nargs = length(args);
 737 
    int val = 1, nargs = length(args);
739 
    R_RegisteredNativeSymbol symbol = {R_FORTRAN_SYM, {NULL}, NULL};
 738 
    R_RegisteredNativeSymbol symbol = {R_FORTRAN_SYM, {NULL}, NULL};
740 
 
 739 
 
741 
    if (nargs < 1) error(_("no arguments supplied"));
 740 
    if (nargs < 1) error(_("no arguments supplied"));
Line 762... Line 761...
762 
	if(!(R_FindSymbol(sym, pkg, &symbol))) val = 0;
 761 
	if(!(R_FindSymbol(sym, pkg, &symbol))) val = 0;
763 
    } else {
 762 
    } else {
764 
	if (!(R_FindSymbol(sym, pkg, NULL)) &&
763 
	if (!(R_FindSymbol(sym, pkg, NULL)) &&
765 
	    !(R_FindSymbol(sym, pkg, &symbol))) val = 0;
 764 
	    !(R_FindSymbol(sym, pkg, &symbol))) val = 0;
766 
    }
 765 
    }
767 
    ans = allocVector(LGLSXP, 1);
 - 
 
768 
    LOGICAL(ans)[0] = val;
 - 
 
769 
    return ans;
 766 
    return ScalarLogical(val);
770 
}
 767 
}
771 
 
 768 
 
772 
/*   Call dynamically loaded "internal" functions */
 769 
/*   Call dynamically loaded "internal" functions */
773 
/*   code by Jean Meloche <jean@stat.ubc.ca> */
 770 
/*   code by Jean Meloche <jean@stat.ubc.ca> */
774 
 
 771