The R Project SVN R

Rev

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

Rev 25265 Rev 25313
Line 396... Line 396...
396 
{
 396 
{
397 
    char buf[1024];
 397 
    char buf[1024];
398 
    DL_FUNC f;
 398 
    DL_FUNC f;
399 
    R_RegisteredNativeSymbol sym;
 399 
    R_RegisteredNativeSymbol sym;
400 
 
 400 
 
401 
    sprintf(buf, "R_unload_%s", dllInfo->name);
 401 
    snprintf(buf, 1024, "R_unload_%s", dllInfo->name);
402 
    f = R_dlsym(dllInfo, buf, &sym);
 402 
    f = R_dlsym(dllInfo, buf, &sym);
403 
    if(f)
403 
    if(f)
404 
       f(dllInfo);
 404 
       f(dllInfo);
405 
 
 405 
 
406 
    return(TRUE);
 406 
    return(TRUE);
Line 733... Line 733...
733 
 
 733 
 
734 
    if(info->useDynamicLookup == FALSE)
 734 
    if(info->useDynamicLookup == FALSE)
735 
	return(NULL);
 735 
	return(NULL);
736 
 
 736 
 
737 
#ifdef HAVE_NO_SYMBOL_UNDERSCORE
 737 
#ifdef HAVE_NO_SYMBOL_UNDERSCORE
738 
    sprintf(buf, "%s", name);
 738 
    snprintf(buf, MAXIDSIZE+1, "%s", name);
739 
#else
 739 
#else
740 
    sprintf(buf, "_%s", name);
 740 
    snprintf(buf, MAXIDSIZE+1,"_%s", name);
741 
#endif
 741 
#endif
742 
 
 742 
 
743 
#ifdef HAVE_F77_UNDERSCORE
 743 
#ifdef HAVE_F77_UNDERSCORE
744 
    if(symbol && symbol->type == R_FORTRAN_SYM) {
 744 
    if(symbol && symbol->type == R_FORTRAN_SYM) {
745 
	buf[strlen(buf)+1] = '\0';
 745 
	buf[strlen(buf)+1] = '\0';
Line 861... Line 861...
861 
{
 861 
{
862 
    char dllpath[PATH_MAX], *p = getenv("R_HOME");
 862 
    char dllpath[PATH_MAX], *p = getenv("R_HOME");
863 
    int res;
 863 
    int res;
864 
 
 864 
 
865 
    if(!p) return 0;
 865 
    if(!p) return 0;
866 
    sprintf(dllpath, "%s%smodules%s%s%s", p, FILESEP, FILESEP,
866 
    snprintf(dllpath, PATH_MAX, "%s%smodules%s%s%s", p, FILESEP, FILESEP,
867 
	    module, SHLIB_EXT);
 867 
	    module, SHLIB_EXT);
868 
    res = AddDLL(dllpath, local, now);
 868 
    res = AddDLL(dllpath, local, now);
869 
    if(!res)
 869 
    if(!res)
870 
	warning("unable to load shared library \"%s\":\n  %s",
 870 
	warning("unable to load shared library \"%s\":\n  %s",
871 
		dllpath, DLLerror);
 871 
		dllpath, DLLerror);