The R Project SVN R

Rev

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

Rev 35372 Rev 36017
Line 36... Line 36...
36 
#include <Rmath.h>
 36 
#include <Rmath.h>
37 
 
 37 
 
38 
#include <Graphics.h>
 38 
#include <Graphics.h>
39 
 
 39 
 
40 
#include <R_ext/RConverters.h>
 40 
#include <R_ext/RConverters.h>
- 
 
 41 
#ifdef HAVE_ICONV
41 
#include <R_ext/Riconv.h>
 42 
#include <R_ext/Riconv.h>
- 
 
 43 
#endif
42 
 
 44 
 
43 
#ifndef max
 45 
#ifndef max
44 
#define max(a, b) ((a > b)?(a):(b))
 46 
#define max(a, b) ((a > b)?(a):(b))
45 
#endif
 47 
#endif
46 
 
 48 
 
Line 173... Line 175...
173 
	}
 175 
	}
174 
 
 176 
 
175 
	if (!*fun && !(*fun = R_FindSymbol(buf, dll.DLLname, symbol))) {
 177 
	if (!*fun && !(*fun = R_FindSymbol(buf, dll.DLLname, symbol))) {
176 
	    if(strlen(dll.DLLname))
 178 
	    if(strlen(dll.DLLname))
177 
		errorcall(call,
 179 
		errorcall(call,
178 
			  _("\"%s\" function name not in DLL for package '%s'"),
 180 
			  _("%s entry point \"%s%s\" not in DLL for package \"%s\""),
179 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C",
 181 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C", buf,
- 
 
 182 
#ifdef HAVE_F77_UNDERSCORE
- 
 
 183 
			  symbol->type == R_FORTRAN_SYM ? "_" : "",
- 
 
 184 
#else
- 
 
 185 
			  "",
- 
 
 186 
#endif
180 
			  dll.DLLname);
 187 
			  dll.DLLname);
181 
	    else
 188 
	    else
182 
		errorcall(call, _("\"%s\" function name not in load table"),
 189 
		errorcall(call, _("%s entry point \"%s%s\" not in load table"),
183 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C");
 190 
			  symbol->type == R_FORTRAN_SYM ? "Fortran" : "C", buf,
- 
 
 191 
#ifdef HAVE_F77_UNDERSCORE
- 
 
 192 
			  symbol->type == R_FORTRAN_SYM ? "_" : ""
- 
 
 193 
#else
- 
 
 194 
			  ""
- 
 
 195 
#endif
- 
 
 196 
			  );
184 
	}
 197 
	}
185 
    }
 198 
    }
186 
 
 199 
 
187 
    return(args);
 200 
    return(args);
188 
}
 201 
}
Line 205... Line 218...
205 
    }
 218 
    }
206 
 
 219 
 
207 
    return(TRUE);
 220 
    return(TRUE);
208 
}
 221 
}
209 
 
 222 
 
210 
#include <R_ext/Riconv.h>
 - 
 
211 
 
 - 
 
212 
static void *RObjToCPtr(SEXP s, int naok, int dup, int narg, int Fort,
 223 
static void *RObjToCPtr(SEXP s, int naok, int dup, int narg, int Fort,
213 
			const char *name, R_toCConverter **converter,
 224 
			const char *name, R_toCConverter **converter,
214 
			int targetType, char* encname)
 225 
			int targetType, char* encname)
215 
{
 226 
{
216 
    unsigned char *rawptr;
 227 
    unsigned char *rawptr;