The R Project SVN R

Rev

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

Rev 38811 Rev 41785
Line 51... Line 51...
51 
static HINSTANCE R_loadLibrary(const char *path, int asLocal, int now);
 51 
static HINSTANCE R_loadLibrary(const char *path, int asLocal, int now);
52 
static DL_FUNC getRoutine(DllInfo *info, char const *name);
 52 
static DL_FUNC getRoutine(DllInfo *info, char const *name);
53 
static void R_deleteCachedSymbols(DllInfo *dll);
 53 
static void R_deleteCachedSymbols(DllInfo *dll);
54 
 
 54 
 
55 
static void R_getDLLError(char *buf, int len);
 55 
static void R_getDLLError(char *buf, int len);
56 
static void GetFullDLLPath(SEXP call, char *buf, char *path);
 56 
static void GetFullDLLPath(SEXP call, char *buf, const char *path);
57 
 
 57 
 
58 
static void closeLibrary(HINSTANCE handle)
 58 
static void closeLibrary(HINSTANCE handle)
59 
{
 59 
{
60 
    FreeLibrary(handle);
 60 
    FreeLibrary(handle);
61 
}
 61 
}
Line 140... Line 140...
140 
    strcpy(buf, "LoadLibrary failure:  ");
 140 
    strcpy(buf, "LoadLibrary failure:  ");
141 
    strcat(buf, lpMsgBuf);
 141 
    strcat(buf, lpMsgBuf);
142 
    LocalFree(lpMsgBuf);
 142 
    LocalFree(lpMsgBuf);
143 
}
 143 
}
144 
 
 144 
 
145 
static void GetFullDLLPath(SEXP call, char *buf, char *path)
 145 
static void GetFullDLLPath(SEXP call, char *buf, const char *path)
146 
{
 146 
{
147 
    char *p;
 147 
    char *p;
148 
 
 148 
 
149 
    if ((path[0] != '/') && (path[0] != '\\') && (path[1] != ':')) {
 149 
    if ((path[0] != '/') && (path[0] != '\\') && (path[1] != ':')) {
150 
	if (!getcwd(buf, MAX_PATH))
 150 
	if (!getcwd(buf, MAX_PATH))