1/* $NetBSD: citrus_module.c,v 1.7.6.1 2009/01/04 17:02:19 christos Exp $ */ 2 3/*- 4 * Copyright (c)1999, 2000, 2001, 2002 Citrus Project, 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 26 * SUCH DAMAGE. 27 */ 28 29/*- 30 * Copyright (c) 1998 The NetBSD Foundation, Inc. 31 * All rights reserved. 32 * 33 * This code is derived from software contributed to The NetBSD Foundation 34 * by Paul Kranenburg. 35 * 36 * Redistribution and use in source and binary forms, with or without 37 * modification, are permitted provided that the following conditions 38 * are met: 39 * 1. Redistributions of source code must retain the above copyright 40 * notice, this list of conditions and the following disclaimer. 41 * 2. Redistributions in binary form must reproduce the above copyright 42 * notice, this list of conditions and the following disclaimer in the 43 * documentation and/or other materials provided with the distribution. 44 * 45 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 46 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 47 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 48 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 49 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 50 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 51 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 52 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 53 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 54 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 55 * POSSIBILITY OF SUCH DAMAGE. 56 */ 57 58/*- 59 * Copyright (c) 1993 60 * The Regents of the University of California. All rights reserved. 61 * 62 * This code is derived from software contributed to Berkeley by 63 * Paul Borman at Krystal Technologies. 64 * 65 * Redistribution and use in source and binary forms, with or without 66 * modification, are permitted provided that the following conditions 67 * are met: 68 * 1. Redistributions of source code must retain the above copyright 69 * notice, this list of conditions and the following disclaimer. 70 * 2. Redistributions in binary form must reproduce the above copyright 71 * notice, this list of conditions and the following disclaimer in the 72 * documentation and/or other materials provided with the distribution. 73 * 3. Neither the name of the University nor the names of its contributors 74 * may be used to endorse or promote products derived from this software 75 * without specific prior written permission. 76 * 77 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 78 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 79 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 80 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 81 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 82 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 83 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 84 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 85 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 86 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 87 * SUCH DAMAGE. 88 */ 89 90#include <sys/cdefs.h> 91#if defined(LIBC_SCCS) && !defined(lint) 92__RCSID("$NetBSD: citrus_module.c,v 1.7.6.1 2009/01/04 17:02:19 christos Exp $"); 93#endif /* LIBC_SCCS and not lint */ 94 95#include <assert.h> 96#include <errno.h> 97#include <limits.h> 98#include <string.h> 99#include <stdio.h> 100#include <stdlib.h> 101#include <unistd.h> 102#include <stddef.h> 103#include <paths.h> 104#include "citrus_namespace.h" 105#include "citrus_bcs.h" 106#include "citrus_module.h" 107 108#include <sys/types.h> 109#include <dirent.h> 110#include <dlfcn.h> 111 112#ifdef _I18N_DYNAMIC 113 114static int _getdewey(int [], char *); 115static int _cmpndewey(int [], int, int [], int); 116static const char *_findshlib(char *, int *, int *); 117 118static const char *_pathI18nModule = NULL; 119 120/* from libexec/ld.aout_so/shlib.c */ 121#undef major 122#undef minor 123#define MAXDEWEY 3 /*ELF*/ 124 125static int 126_getdewey(int dewey[], char *cp) 127{ 128 int i, n; 129 130 _DIAGASSERT(dewey != NULL); 131 _DIAGASSERT(cp != NULL); 132 133 for (n = 0, i = 0; i < MAXDEWEY; i++) { 134 if (*cp == '\0') 135 break; 136 137 if (*cp == '.') cp++; 138 if (*cp < '0' || '9' < *cp) 139 return 0; 140 141 dewey[n++] = (int)_bcs_strtol(cp, &cp, 10); 142 } 143 144 return n; 145} 146 147/* 148 * Compare two dewey arrays. 149 * Return -1 if `d1' represents a smaller value than `d2'. 150 * Return 1 if `d1' represents a greater value than `d2'. 151 * Return 0 if equal. 152 */ 153static int 154_cmpndewey(int d1[], int n1, int d2[], int n2) 155{ 156 register int i; 157 158 _DIAGASSERT(d1 != NULL); 159 _DIAGASSERT(d2 != NULL); 160 161 for (i = 0; i < n1 && i < n2; i++) { 162 if (d1[i] < d2[i]) 163 return -1; 164 if (d1[i] > d2[i]) 165 return 1; 166 } 167 168 if (n1 == n2) 169 return 0; 170 171 if (i == n1) 172 return -1; 173 174 if (i == n2) 175 return 1; 176 177 /* XXX cannot happen */ 178 return 0; 179} 180 181static const char * 182_findshlib(char *name, int *majorp, int *minorp) 183{ 184 int dewey[MAXDEWEY]; 185 int ndewey; 186 int tmp[MAXDEWEY]; 187 int i; 188 int len; 189 char *lname; 190 static char path[PATH_MAX]; 191 int major, minor; 192 const char *search_dirs[1]; 193 const int n_search_dirs = 1; 194 195 _DIAGASSERT(name != NULL); 196 _DIAGASSERT(majorp != NULL); 197 _DIAGASSERT(minorp != NULL); 198 199 major = *majorp; 200 minor = *minorp; 201 path[0] = '\0'; 202 search_dirs[0] = _pathI18nModule; 203 len = strlen(name); 204 lname = name; 205 206 ndewey = 0; 207 208 for (i = 0; i < n_search_dirs; i++) { 209 DIR *dd = opendir(search_dirs[i]); 210 struct dirent *dp; 211 int found_dot_a = 0; 212 int found_dot_so = 0; 213 214 if (dd == NULL) 215 continue; 216 217 while ((dp = readdir(dd)) != NULL) { 218 int n; 219 220 if (dp->d_namlen < len + 4) 221 continue; 222 if (strncmp(dp->d_name, lname, (size_t)len) != 0) 223 continue; 224 if (strncmp(dp->d_name+len, ".so.", 4) != 0) 225 continue; 226 227 if ((n = _getdewey(tmp, dp->d_name+len+4)) == 0) 228 continue; 229 230 if (major != -1 && found_dot_a) 231 found_dot_a = 0; 232 233 /* XXX should verify the library is a.out/ELF? */ 234 235 if (major == -1 && minor == -1) { 236 goto compare_version; 237 } else if (major != -1 && minor == -1) { 238 if (tmp[0] == major) 239 goto compare_version; 240 } else if (major != -1 && minor != -1) { 241 if (tmp[0] == major) { 242 if (n == 1 || tmp[1] >= minor) 243 goto compare_version; 244 } 245 } 246 247 /* else, this file does not qualify */ 248 continue; 249 250 compare_version: 251 if (_cmpndewey(tmp, n, dewey, ndewey) <= 0) 252 continue; 253 254 /* We have a better version */ 255 found_dot_so = 1; 256 snprintf(path, sizeof(path), "%s/%s", search_dirs[i], 257 dp->d_name); 258 found_dot_a = 0; 259 bcopy(tmp, dewey, sizeof(dewey)); 260 ndewey = n; 261 *majorp = dewey[0]; 262 *minorp = dewey[1]; 263 } 264 closedir(dd); 265 266 if (found_dot_a || found_dot_so) 267 /* 268 * There's a lib in this dir; take it. 269 */ 270 return path[0] ? path : NULL; 271 } 272 273 return path[0] ? path : NULL; 274} 275 276void * 277_citrus_find_getops(_citrus_module_t handle, const char *modname, 278 const char *ifname) 279{ 280 char name[PATH_MAX]; 281 void *p; 282 283 _DIAGASSERT(handle != NULL); 284 _DIAGASSERT(modname != NULL); 285 _DIAGASSERT(ifname != NULL); 286 287 snprintf(name, sizeof(name), _C_LABEL_STRING("_citrus_%s_%s_getops"), 288 modname, ifname); 289 p = dlsym((void *)handle, name); 290 return p; 291} 292 293int 294_citrus_load_module(_citrus_module_t *rhandle, const char *encname) 295{ 296 const char *p; 297 char path[PATH_MAX]; 298 int maj, min; 299 void *handle; 300 301 _DIAGASSERT(rhandle != NULL); 302 303 if (_pathI18nModule == NULL) { 304 p = getenv("PATH_I18NMODULE"); 305 if (p != NULL && !issetugid()) { 306 _pathI18nModule = strdup(p); 307 if (_pathI18nModule == NULL) 308 return ENOMEM; 309 } else 310 _pathI18nModule = _PATH_I18NMODULE; 311 } 312 313 (void)snprintf(path, sizeof(path), "lib%s", encname); 314 maj = I18NMODULE_MAJOR; 315 min = -1; 316 p = _findshlib(path, &maj, &min); 317 if (!p) 318 return (EINVAL); 319 handle = dlopen(p, RTLD_LAZY); 320 if (!handle) 321 return (EINVAL); 322 323 *rhandle = (_citrus_module_t)handle; 324 325 return (0); 326} 327 328void 329_citrus_unload_module(_citrus_module_t handle) 330{ 331 if (handle) 332 dlclose((void *)handle); 333} 334#else 335/* !_I18N_DYNAMIC */ 336 337void * 338/*ARGSUSED*/ 339_citrus_find_getops(_citrus_module_t handle, const char *modname, 340 const char *ifname) 341{ 342 return (NULL); 343} 344 345int 346/*ARGSUSED*/ 347_citrus_load_module(_citrus_module_t *rhandle, char const *modname) 348{ 349 return (EINVAL); 350} 351 352void 353/*ARGSUSED*/ 354_citrus_unload_module(_citrus_module_t handle) 355{ 356} 357#endif 358