The R Project SVN R

Rev

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

Rev 49001 Rev 49076
Line 730... Line 730...
730 
 
 730 
 
731 
    if (nargs < 1) error(_("no arguments supplied"));
 731 
    if (nargs < 1) error(_("no arguments supplied"));
732 
    if (nargs > 3) error(_("too many arguments"));
 732 
    if (nargs > 3) error(_("too many arguments"));
733 
 
 733 
 
734 
    if(!isValidString(CAR(args)))
 734 
    if(!isValidString(CAR(args)))
735 
	error(R_MSG_IA);
 735 
	error(_("invalid '%s' argument"), "symbol");
736 
    sym = translateChar(STRING_ELT(CAR(args), 0));
 736 
    sym = translateChar(STRING_ELT(CAR(args), 0));
737 
    if(nargs >= 2) {
 737 
    if(nargs >= 2) {
738 
	if(!isValidString(CADR(args)))
 738 
	if(!isValidString(CADR(args)))
739 
	    error(R_MSG_IA);
 739 
	    error(_("invalid '%s' argument"), "PACKAGE");
740 
	pkg = translateChar(STRING_ELT(CADR(args), 0));
 740 
	pkg = translateChar(STRING_ELT(CADR(args), 0));
741 
    }
 741 
    }
742 
    if(nargs >= 3) {
 742 
    if(nargs >= 3) {
743 
	if(!isValidString(CADDR(args)))
 743 
	if(!isValidString(CADDR(args)))
744 
	    error(R_MSG_IA);
 744 
	    error(_("invalid '%s' argument"), "type");
745 
	type = CHAR(STRING_ELT(CADDR(args), 0)); /* ASCII */
 745 
	type = CHAR(STRING_ELT(CADDR(args), 0)); /* ASCII */
746 
	if(strcmp(type, "C") == 0) symbol.type = R_C_SYM;
 746 
	if(strcmp(type, "C") == 0) symbol.type = R_C_SYM;
747 
	else if(strcmp(type, "Fortran") == 0) symbol.type = R_FORTRAN_SYM;
 747 
	else if(strcmp(type, "Fortran") == 0) symbol.type = R_FORTRAN_SYM;
748 
	else if(strcmp(type, "Call") == 0) symbol.type = R_CALL_SYM;
 748 
	else if(strcmp(type, "Call") == 0) symbol.type = R_CALL_SYM;
749 
	else if(strcmp(type, "External") == 0) symbol.type = R_EXTERNAL_SYM;
 749 
	else if(strcmp(type, "External") == 0) symbol.type = R_EXTERNAL_SYM;