rubbos/app/httpd-2.0.64/srclib/apr/dso/unix/dso.c

   1 /* Licensed to the Apache Software Foundation (ASF) under one or more
   2  * contributor license agreements.  See the NOTICE file distributed with
   3  * this work for additional information regarding copyright ownership.
   4  * The ASF licenses this file to You under the Apache License, Version 2.0
   5  * (the "License"); you may not use this file except in compliance with
   6  * the License.  You may obtain a copy of the License at
   7  *
   8  *     http://www.apache.org/licenses/LICENSE-2.0
   9  *
  10  * Unless required by applicable law or agreed to in writing, software
  11  * distributed under the License is distributed on an "AS IS" BASIS,
  12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13  * See the License for the specific language governing permissions and
  14  * limitations under the License.
  15  */
  16
  17 #include "apr_arch_dso.h"
  18 #include "apr_strings.h"
  19 #include "apr_portable.h"
  20
  21 #if APR_HAS_DSO
  22
  23 #if !defined(DSO_USE_DLFCN) && !defined(DSO_USE_SHL) && !defined(DSO_USE_DYLD)
  24 #error No DSO implementation specified.
  25 #endif
  26
  27 #ifdef HAVE_STDDEF_H
  28 #include <stddef.h>
  29 #endif
  30 #if APR_HAVE_STDLIB_H
  31 #include <stdlib.h> /* malloc(), free() */
  32 #endif
  33 #if APR_HAVE_STRING_H
  34 #include <string.h> /* for strerror() on HP-UX */
  35 #endif
  36
  37 #if defined(DSO_USE_DYLD)
  38 #define DYLD_LIBRARY_HANDLE (void *)-1
  39 #endif
  40
  41 APR_DECLARE(apr_status_t) apr_os_dso_handle_put(apr_dso_handle_t **aprdso,
  42                                                 apr_os_dso_handle_t osdso,
  43                                                 apr_pool_t *pool)
  44 {
  45     *aprdso = apr_pcalloc(pool, sizeof **aprdso);
  46     (*aprdso)->handle = osdso;
  47     (*aprdso)->pool = pool;
  48     return APR_SUCCESS;
  49 }
  50
  51 APR_DECLARE(apr_status_t) apr_os_dso_handle_get(apr_os_dso_handle_t *osdso,
  52                                                 apr_dso_handle_t *aprdso)
  53 {
  54     *osdso = aprdso->handle;
  55     return APR_SUCCESS;
  56 }
  57
  58 static apr_status_t dso_cleanup(void *thedso)
  59 {
  60     apr_dso_handle_t *dso = thedso;
  61
  62     if (dso->handle == NULL)
  63         return APR_SUCCESS;
  64
  65 #if defined(DSO_USE_SHL)
  66     shl_unload((shl_t)dso->handle);
  67 #elif defined(DSO_USE_DYLD)
  68     if (dso->handle != DYLD_LIBRARY_HANDLE) {
  69         NSUnLinkModule(dso->handle, FALSE);
  70     }
  71 #elif defined(DSO_USE_DLFCN)
  72     if (dlclose(dso->handle) != 0)
  73         return APR_EINIT;
  74 #endif
  75     dso->handle = NULL;
  76
  77     return APR_SUCCESS;
  78 }
  79
  80 APR_DECLARE(apr_status_t) apr_dso_load(apr_dso_handle_t **res_handle,
  81                                        const char *path, apr_pool_t *pool)
  82 {
  83 #if defined(DSO_USE_SHL)
  84     shl_t os_handle = shl_load(path, BIND_IMMEDIATE, 0L);
  85
  86 #elif defined(DSO_USE_DYLD)
  87     NSObjectFileImage image;
  88     NSModule os_handle = NULL;
  89     NSObjectFileImageReturnCode dsoerr;
  90     const char* err_msg = NULL;
  91     dsoerr = NSCreateObjectFileImageFromFile(path, &image);
  92
  93     if (dsoerr == NSObjectFileImageSuccess) {
  94 #if defined(NSLINKMODULE_OPTION_RETURN_ON_ERROR) && defined(NSLINKMODULE_OPTION_NONE)
  95         os_handle = NSLinkModule(image, path,
  96                                  NSLINKMODULE_OPTION_RETURN_ON_ERROR |
  97                                  NSLINKMODULE_OPTION_NONE);
  98         /* If something went wrong, get the errors... */
  99         if (!os_handle) {
 100             NSLinkEditErrors errors;
 101             int errorNumber;
 102             const char *fileName;
 103             NSLinkEditError(&errors, &errorNumber, &fileName, &err_msg);
 104         }
 105 #else
 106         os_handle = NSLinkModule(image, path, FALSE);
 107 #endif
 108         NSDestroyObjectFileImage(image);
 109     }
 110     else if ((dsoerr == NSObjectFileImageFormat ||
 111              dsoerr == NSObjectFileImageInappropriateFile) &&
 112              NSAddLibrary(path) == TRUE) {
 113         os_handle = (NSModule)DYLD_LIBRARY_HANDLE;
 114     }
 115     else {
 116         err_msg = "cannot create object file image or add library";
 117     }
 118
 119 #elif defined(DSO_USE_DLFCN)
 120 #if defined(OSF1) || defined(SEQUENT) || defined(SNI) ||\
 121     (defined(__FreeBSD_version) && (__FreeBSD_version >= 220000))
 122     void *os_handle = dlopen((char *)path, RTLD_NOW | RTLD_GLOBAL);
 123
 124 #else
 125     int flags = RTLD_NOW | RTLD_GLOBAL;
 126     void *os_handle;
 127 #ifdef _AIX
 128     if (strchr(path + 1, '(') && path[strlen(path) - 1] == ')')
 129     {
 130         /* This special archive.a(dso.so) syntax is required for
 131          * the way libtool likes to build shared libraries on AIX.
 132          * dlopen() support for such a library requires that the
 133          * RTLD_MEMBER flag be enabled.
 134          */
 135         flags |= RTLD_MEMBER;
 136     }
 137 #endif
 138     os_handle = dlopen(path, flags);
 139 #endif
 140 #endif /* DSO_USE_x */
 141
 142     *res_handle = apr_pcalloc(pool, sizeof(**res_handle));
 143
 144     if(os_handle == NULL) {
 145 #if defined(DSO_USE_SHL)
 146         (*res_handle)->errormsg = strerror(errno);
 147         return APR_EDSOOPEN;
 148 #elif defined(DSO_USE_DYLD)
 149         (*res_handle)->errormsg = (err_msg) ? err_msg : "link failed";
 150         return APR_EDSOOPEN;
 151 #elif defined(DSO_USE_DLFCN)
 152         (*res_handle)->errormsg = dlerror();
 153         return APR_EDSOOPEN;
 154 #endif
 155     }
 156
 157     (*res_handle)->handle = (void*)os_handle;
 158     (*res_handle)->pool = pool;
 159     (*res_handle)->errormsg = NULL;
 160
 161     apr_pool_cleanup_register(pool, *res_handle, dso_cleanup, apr_pool_cleanup_null);
 162
 163     return APR_SUCCESS;
 164 }
 165
 166 APR_DECLARE(apr_status_t) apr_dso_unload(apr_dso_handle_t *handle)
 167 {
 168     return apr_pool_cleanup_run(handle->pool, handle, dso_cleanup);
 169 }
 170
 171 APR_DECLARE(apr_status_t) apr_dso_sym(apr_dso_handle_sym_t *ressym,
 172                                       apr_dso_handle_t *handle,
 173                                       const char *symname)
 174 {
 175 #if defined(DSO_USE_SHL)
 176     void *symaddr = NULL;
 177     int status;
 178
 179     errno = 0;
 180     status = shl_findsym((shl_t *)&handle->handle, symname, TYPE_PROCEDURE, &symaddr);
 181     if (status == -1 && errno == 0) /* try TYPE_DATA instead */
 182         status = shl_findsym((shl_t *)&handle->handle, symname, TYPE_DATA, &symaddr);
 183     if (status == -1)
 184         return APR_ESYMNOTFOUND;
 185     *ressym = symaddr;
 186     return APR_SUCCESS;
 187
 188 #elif defined(DSO_USE_DYLD)
 189     void *retval = NULL;
 190     NSSymbol symbol;
 191     char *symname2 = (char*)malloc(sizeof(char)*(strlen(symname)+2));
 192     sprintf(symname2, "_%s", symname);
 193 #ifdef NSLINKMODULE_OPTION_PRIVATE
 194     if (handle->handle == DYLD_LIBRARY_HANDLE) {
 195         symbol = NSLookupAndBindSymbol(symname2);
 196     }
 197     else {
 198         symbol = NSLookupSymbolInModule((NSModule)handle->handle, symname2);
 199     }
 200 #else
 201     symbol = NSLookupAndBindSymbol(symname2);
 202 #endif
 203     free(symname2);
 204     if (symbol == NULL) {
 205         handle->errormsg = "undefined symbol";
 206         return APR_ESYMNOTFOUND;
 207     }
 208     retval = NSAddressOfSymbol(symbol);
 209     if (retval == NULL) {
 210         handle->errormsg = "cannot resolve symbol";
 211         return APR_ESYMNOTFOUND;
 212     }
 213     *ressym = retval;
 214     return APR_SUCCESS;
 215 #elif defined(DSO_USE_DLFCN)
 216
 217 #if defined(DLSYM_NEEDS_UNDERSCORE)
 218     void *retval;
 219     char *symbol = (char*)malloc(sizeof(char)*(strlen(symname)+2));
 220     sprintf(symbol, "_%s", symname);
 221     retval = dlsym(handle->handle, symbol);
 222     free(symbol);
 223 #elif defined(SEQUENT) || defined(SNI)
 224     void *retval = dlsym(handle->handle, (char *)symname);
 225 #else
 226     void *retval = dlsym(handle->handle, symname);
 227 #endif /* DLSYM_NEEDS_UNDERSCORE */
 228
 229     if (retval == NULL) {
 230         handle->errormsg = dlerror();
 231         return APR_ESYMNOTFOUND;
 232     }
 233
 234     *ressym = retval;
 235
 236     return APR_SUCCESS;
 237 #endif /* DSO_USE_x */
 238 }
 239
 240 APR_DECLARE(const char *) apr_dso_error(apr_dso_handle_t *dso, char *buffer,
 241                                         apr_size_t buflen)
 242 {
 243     if (dso->errormsg) {
 244         apr_cpystrn(buffer, dso->errormsg, buflen);
 245         return dso->errormsg;
 246     }
 247     return "No Error";
 248 }
 249
 250 #endif