The R Project SVN R

Rev

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

Rev 33359 Rev 33419
Line 167... Line 167...
167 
	}
 167 
	}
168 
 
 168 
 
169 
	if (!*fun && !(*fun = R_FindSymbol(buf, dll.DLLname, symbol))) {
 169 
	if (!*fun && !(*fun = R_FindSymbol(buf, dll.DLLname, symbol))) {
170 
	    if(strlen(dll.DLLname))
 170 
	    if(strlen(dll.DLLname))
171 
		errorcall(call,
 171 
		errorcall(call,
172 
			  _("%s function name not in DLL for package '%s'"),
 172 
			  _("\"%s\" function name not in DLL for package '%s'"),
173 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C",
 173 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C",
174 
			  dll.DLLname);
 174 
			  dll.DLLname);
175 
	    else
 175 
	    else
176 
		errorcall(call, _("%s function name not in load table"),
 176 
		errorcall(call, _("\"%s\" function name not in load table"),
177 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C");
 177 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C");
178 
	}
 178 
	}
179 
    }
 179 
    }
180 
 
 180 
 
181 
    return(args);
 181 
    return(args);