1 /* 2 * Copyright (c) 1998, 2013, Oracle and/or its affiliates. All rights reserved. 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4 * 5 * This code is free software; you can redistribute it and/or modify it 6 * under the terms of the GNU General Public License version 2 only, as 7 * published by the Free Software Foundation. Oracle designates this 8 * particular file as subject to the "Classpath" exception as provided 9 * by Oracle in the LICENSE file that accompanied this code. 10 * 11 * This code is distributed in the hope that it will be useful, but WITHOUT 12 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 13 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 14 * version 2 for more details (a copy is included in the LICENSE file that 15 * accompanied this code). 16 * 17 * You should have received a copy of the GNU General Public License version 18 * 2 along with this work; if not, write to the Free Software Foundation, 19 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. 20 * 21 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA 22 * or visit www.oracle.com if you need additional information or have any 23 * questions. 24 */ 25 26 /* 27 * Maintains a list of currently loaded DLLs (Dynamic Link Libraries) 28 * and their associated handles. Library names are case-insensitive. 29 */ 30 31 #include <windows.h> 32 #include <stdio.h> 33 #include <string.h> 34 #include <errno.h> 35 #include <io.h> 36 #include <stdlib.h> 37 38 #include "sys.h" 39 40 #include "util.h" 41 #include "path_md.h" 42 43 static void dll_build_name(char* buffer, size_t buflen, 44 const char* paths, const char* fname) { 45 char *path, *paths_copy, *next_token; 46 *buffer = '\0'; 47 48 paths_copy = strdup(paths); 49 if (paths_copy == NULL) { 50 return; 51 } 52 53 next_token = NULL; 54 path = strtok_s(paths_copy, PATH_SEPARATOR, &next_token); 55 56 while (path != NULL) { 57 size_t result_len = (size_t)_snprintf(buffer, buflen, "%s\\%s.dll", path, fname); 58 if (result_len >= buflen) { 59 EXIT_ERROR(JVMTI_ERROR_INVALID_LOCATION, "One or more of the library paths supplied to jdwp, " 60 "likely by sun.boot.library.path, is too long."); 61 } else if (_access(buffer, 0) == 0) { 62 break; 63 } 64 *buffer = '\0'; 65 path = strtok_s(NULL, PATH_SEPARATOR, &next_token); 66 } 67 68 free(paths_copy); 69 } 70 71 /* 72 * From system_md.c v1.54 73 */ 74 int 75 dbgsysGetLastErrorString(char *buf, int len) 76 { 77 long errval; 78 79 if ((errval = GetLastError()) != 0) { 80 /* DOS error */ 81 int n = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS, 82 NULL, errval, 83 0, buf, len, NULL); 84 if (n > 3) { 85 /* Drop final '.', CR, LF */ 86 if (buf[n - 1] == '\n') n--; 87 if (buf[n - 1] == '\r') n--; 88 if (buf[n - 1] == '.') n--; 89 buf[n] = '\0'; 90 } 91 return n; 92 } 93 94 if (errno != 0) { 95 /* C runtime error that has no corresponding DOS error code */ 96 const char *s = strerror(errno); 97 int n = (int)strlen(s); 98 if (n >= len) n = len - 1; 99 strncpy(buf, s, n); 100 buf[n] = '\0'; 101 return n; 102 } 103 104 return 0; 105 } 106 107 /* 108 * Build a machine dependent library name out of a path and file name. 109 */ 110 void 111 dbgsysBuildLibName(char *holder, int holderlen, const char *pname, const char *fname) 112 { 113 const int pnamelen = pname ? (int)strlen(pname) : 0; 114 115 if (pnamelen == 0) { 116 if (pnamelen + (int)strlen(fname) + 10 > holderlen) { 117 EXIT_ERROR(JVMTI_ERROR_INVALID_LOCATION, "One or more of the library paths supplied to jdwp, " 118 "likely by sun.boot.library.path, is too long."); 119 } 120 sprintf(holder, "%s.dll", fname); 121 } else { 122 dll_build_name(holder, holderlen, pname, fname); 123 } 124 } 125 126 void * 127 dbgsysLoadLibrary(const char * name, char *err_buf, int err_buflen) 128 { 129 void *result = LoadLibrary(name); 130 if (result == NULL) { 131 /* Error message is pretty lame, try to make a better guess. */ 132 long errcode = GetLastError(); 133 if (errcode == ERROR_MOD_NOT_FOUND) { 134 strncpy(err_buf, "Can't find dependent libraries", err_buflen-2); 135 err_buf[err_buflen-1] = '\0'; 136 } else { 137 dbgsysGetLastErrorString(err_buf, err_buflen); 138 } 139 } 140 return result; 141 } 142 143 void dbgsysUnloadLibrary(void *handle) 144 { 145 FreeLibrary(handle); 146 } 147 148 void * dbgsysFindLibraryEntry(void *handle, const char *name) 149 { 150 return GetProcAddress(handle, name); 151 }