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 "path_md.h"
41
42static void dll_build_name(char* buffer, size_t buflen,
43                           const char* paths, const char* fname) {
44    char *path, *paths_copy, *next_token;
45
46    paths_copy = strdup(paths);
47    if (paths_copy == NULL) {
48        return;
49    }
50
51    next_token = NULL;
52    path = strtok_s(paths_copy, PATH_SEPARATOR, &next_token);
53
54    while (path != NULL) {
55        _snprintf(buffer, buflen, "%s\\%s.dll", path, fname);
56        if (_access(buffer, 0) == 0) {
57            break;
58        }
59        *buffer = '\0';
60        path = strtok_s(NULL, PATH_SEPARATOR, &next_token);
61    }
62
63    free(paths_copy);
64}
65
66/*
67 * From system_md.c v1.54
68 */
69int
70dbgsysGetLastErrorString(char *buf, int len)
71{
72    long errval;
73
74    if ((errval = GetLastError()) != 0) {
75        /* DOS error */
76        int n = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS,
77                              NULL, errval,
78                              0, buf, len, NULL);
79        if (n > 3) {
80            /* Drop final '.', CR, LF */
81            if (buf[n - 1] == '\n') n--;
82            if (buf[n - 1] == '\r') n--;
83            if (buf[n - 1] == '.') n--;
84            buf[n] = '\0';
85        }
86        return n;
87    }
88
89    if (errno != 0) {
90        /* C runtime error that has no corresponding DOS error code */
91        const char *s = strerror(errno);
92        int n = (int)strlen(s);
93        if (n >= len) n = len - 1;
94        strncpy(buf, s, n);
95        buf[n] = '\0';
96        return n;
97    }
98
99    return 0;
100}
101
102/*
103 * Build a machine dependent library name out of a path and file name.
104 */
105void
106dbgsysBuildLibName(char *holder, int holderlen, const char *pname, const char *fname)
107{
108    const int pnamelen = pname ? (int)strlen(pname) : 0;
109
110    *holder = '\0';
111    /* Quietly truncates on buffer overflow. Should be an error. */
112    if (pnamelen + (int)strlen(fname) + 10 > holderlen) {
113        return;
114    }
115
116    if (pnamelen == 0) {
117        sprintf(holder, "%s.dll", fname);
118    } else {
119      dll_build_name(holder, holderlen, pname, fname);
120    }
121}
122
123void *
124dbgsysLoadLibrary(const char * name, char *err_buf, int err_buflen)
125{
126    void *result = LoadLibrary(name);
127    if (result == NULL) {
128        /* Error message is pretty lame, try to make a better guess. */
129        long errcode = GetLastError();
130        if (errcode == ERROR_MOD_NOT_FOUND) {
131            strncpy(err_buf, "Can't find dependent libraries", err_buflen-2);
132            err_buf[err_buflen-1] = '\0';
133        } else {
134            dbgsysGetLastErrorString(err_buf, err_buflen);
135        }
136    }
137    return result;
138}
139
140void dbgsysUnloadLibrary(void *handle)
141{
142    FreeLibrary(handle);
143}
144
145void * dbgsysFindLibraryEntry(void *handle, const char *name)
146{
147    return GetProcAddress(handle, name);
148}
149