test/simpledynamic.c

   1 /*
   2  * Copyright 2016-2021 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the Apache License 2.0 (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 #include <string.h>
  11 #include <stdlib.h>              /* For NULL */
  12 #include <openssl/macros.h>      /* For NON_EMPTY_TRANSLATION_UNIT */
  13 #include <openssl/e_os2.h>
  14 #include "simpledynamic.h"
  15
  16 #if defined(DSO_DLFCN) || defined(DSO_VMS)
  17
  18 int sd_load(const char *filename, SD *lib, int type)
  19 {
  20     int dl_flags = type;
  21 #ifdef _AIX
  22     if (filename[strlen(filename) - 1] == ')')
  23         dl_flags |= RTLD_MEMBER;
  24 #endif
  25     *lib = dlopen(filename, dl_flags);
  26     return *lib == NULL ? 0 : 1;
  27 }
  28
  29 int sd_sym(SD lib, const char *symname, SD_SYM *sym)
  30 {
  31     *sym = dlsym(lib, symname);
  32     return *sym != NULL;
  33 }
  34
  35 int sd_close(SD lib)
  36 {
  37     return dlclose(lib) != 0 ? 0 : 1;
  38 }
  39
  40 const char *sd_error(void)
  41 {
  42     return dlerror();
  43 }
  44
  45 #elif defined(DSO_WIN32)
  46
  47 int sd_load(const char *filename, SD *lib, ossl_unused int type)
  48 {
  49     *lib = LoadLibraryA(filename);
  50     return *lib == NULL ? 0 : 1;
  51 }
  52
  53 int sd_sym(SD lib, const char *symname, SD_SYM *sym)
  54 {
  55     *sym = (SD_SYM)GetProcAddress(lib, symname);
  56     return *sym != NULL;
  57 }
  58
  59 int sd_close(SD lib)
  60 {
  61     return FreeLibrary(lib) == 0 ? 0 : 1;
  62 }
  63
  64 const char *sd_error(void)
  65 {
  66     static char buffer[255];
  67
  68     buffer[0] = '\0';
  69     FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError(), 0,
  70                    buffer, sizeof(buffer), NULL);
  71     return buffer;
  72 }
  73
  74 #else
  75
  76 NON_EMPTY_TRANSLATION_UNIT
  77
  78 #endif