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 }