sdl-ios-xcode: src/loadso/macosx/SDL

author	Ryan C. Gordon <icculus@icculus.org>
date	Wed, 21 Dec 2005 18:02:36 +0000 (2005-12-21)
parents	173c063d4f55
children	c9b51268668f

rev	line source
1173 e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1 /*
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	3 Copyright (C) 1997-2004 Sam Lantinga
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	4
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	6 modify it under the terms of the GNU Library General Public
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	8 version 2 of the License, or (at your option) any later version.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	9
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	13 Library General Public License for more details.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	14
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	15 You should have received a copy of the GNU Library General Public
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	16 License along with this library; if not, write to the Free
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	18
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	19 Sam Lantinga
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	20 slouken@libsdl.org
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	21 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	22
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	23 #ifdef SAVE_RCSID
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	24 static char rcsid =
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	25 "@(#) $Id$";
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	26 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	27
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	28 /* Please note that dlcompat apparently ships in current Mac OS X versions
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	29 * as a system library that provides compatibility with the Unix "dlopen"
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	30 * interface. In order to allow SDL to work on older OS X releases and also
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	31 * not conflict with the system lib on newer versions, we include dlcompat
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	32 * in SDL and change the symbols to prevent symbol clash with any existing
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	33 * system libraries. --ryan.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	34 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	35
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	36 /* here is the dlcompat license: */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	37
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	38 /*
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	39 Copyright (c) 2002 Jorge Acereda <jacereda@users.sourceforge.net> &
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	40 Peter O'Gorman <ogorman@users.sourceforge.net>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	41
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	42 Portions may be copyright others, see the AUTHORS file included with this
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	43 distribution.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	44
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	45 Maintained by Peter O'Gorman <ogorman@users.sourceforge.net>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	46
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	47 Bug Reports and other queries should go to <ogorman@users.sourceforge.net>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	48
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	49 Permission is hereby granted, free of charge, to any person obtaining
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	50 a copy of this software and associated documentation files (the
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	51 "Software"), to deal in the Software without restriction, including
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	52 without limitation the rights to use, copy, modify, merge, publish,
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	53 distribute, sublicense, and/or sell copies of the Software, and to
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	54 permit persons to whom the Software is furnished to do so, subject to
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	55 the following conditions:
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	56
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	57 The above copyright notice and this permission notice shall be
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	58 included in all copies or substantial portions of the Software.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	59
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	60 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	61 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	62 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	63 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	64 LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	65 OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	66 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	67 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	68
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	69 #include <pthread.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	70 #include <stdio.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	71 #include <stdlib.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	72 #include <string.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	73 #include <sys/types.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	74 #include <sys/stat.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	75 #include <stdarg.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	76 #include <limits.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	77 #include <mach-o/dyld.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	78 #include <mach-o/nlist.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	79 #include <mach-o/getsect.h>
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	80
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	81 /* Just playing to see if it would compile with the freebsd headers, it does,
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	82 * but because of the different values for RTLD_LOCAL etc, it would break binary
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	83 * compat... oh well
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	84 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	85 #ifndef __BSD_VISIBLE
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	86 #define __BSD_VISIBLE 1
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	87 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	88
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	89 /include "dlfcn.h"/
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	90 #ifdef __cplusplus
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	91 extern "C" {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	92 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	93
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	94 #if defined (__GNUC__) && __GNUC__ > 3
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	95 #define dl_restrict __restrict
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	96 #else
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	97 #define dl_restrict
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	98 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	99
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	100 #ifndef _POSIX_SOURCE
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	101 /*
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	102 * Structure filled in by dladdr().
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	103 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	104 typedef struct SDL_OSX_dl_info {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	105 const char dli_fname; / Pathname of shared object */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	106 void dli_fbase; / Base address of shared object */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	107 const char dli_sname; / Name of nearest symbol */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	108 void dli_saddr; / Address of nearest symbol */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	109 } SDL_OSX_Dl_info;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	110
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	111 static int SDL_OSX_dladdr(const void * dl_restrict, SDL_OSX_Dl_info * dl_restrict);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	112 #endif /* ! _POSIX_SOURCE */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	113
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	114 static int SDL_OSX_dlclose(void * handle);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	115 static char * SDL_OSX_dlerror(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	116 static void * SDL_OSX_dlopen(const char *path, int mode);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	117 static void * SDL_OSX_dlsym(void * dl_restrict handle, const char * dl_restrict symbol);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	118
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	119 #define RTLD_LAZY 0x1
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	120 #define RTLD_NOW 0x2
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	121 #define RTLD_LOCAL 0x4
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	122 #define RTLD_GLOBAL 0x8
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	123
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	124 #ifndef _POSIX_SOURCE
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	125 #define RTLD_NOLOAD 0x10
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	126 #define RTLD_NODELETE 0x80
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	127
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	128 /*
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	129 * Special handle arguments for SDL_OSX_dlsym().
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	130 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	131 #define RTLD_NEXT ((void ) -1) / Search subsequent objects. */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	132 #define RTLD_DEFAULT ((void ) -2) / Use default search algorithm. */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	133 #endif /* ! _POSIX_SOURCE */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	134
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	135 #ifdef __cplusplus
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	136 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	137 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	138
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	139 #ifndef dl_restrict
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	140 #define dl_restrict __restrict
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	141 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	142 /* This is not available on 10.1 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	143 #ifndef LC_LOAD_WEAK_DYLIB
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	144 #define LC_LOAD_WEAK_DYLIB (0x18 \| LC_REQ_DYLD)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	145 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	146
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	147 /* With this stuff here, this thing may actually compile/run on 10.0 systems
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	148 * Not that I have a 10.0 system to test it on anylonger
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	149 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	150 #ifndef LC_REQ_DYLD
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	151 #define LC_REQ_DYLD 0x80000000
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	152 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	153 #ifndef NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	154 #define NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED 0x4
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	155 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	156 #ifndef NSADDIMAGE_OPTION_RETURN_ON_ERROR
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	157 #define NSADDIMAGE_OPTION_RETURN_ON_ERROR 0x1
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	158 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	159 #ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	160 #define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND 0x0
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	161 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	162 #ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	163 #define NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR 0x4
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	164 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	165 /* These symbols will be looked for in dyld */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	166 static const struct mach_header (dyld_NSAddImage) (const char *, unsigned long) = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	167 static int (dyld_NSIsSymbolNameDefinedInImage) (const struct mach_header , const char *) = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	168 static NSSymbol(*dyld_NSLookupSymbolInImage)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	169 (const struct mach_header , const char , unsigned long) = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	170
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	171 /* Define this to make dlcompat reuse data block. This way in theory we save
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	172 * a little bit of overhead. However we then couldn't correctly catch excess
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	173 * calls to SDL_OSX_dlclose(). Hence we don't use this feature
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	174 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	175 #undef REUSE_STATUS
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	176
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	177 /* Size of the internal error message buffer (used by dlerror()) */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	178 #define ERR_STR_LEN 251
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	179
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	180 /* Maximum number of search paths supported by getSearchPath */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	181 #define MAX_SEARCH_PATHS 32
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	182
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	183
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	184 #define MAGIC_DYLIB_OFI ((NSObjectFileImage) 'DYOF')
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	185 #define MAGIC_DYLIB_MOD ((NSModule) 'DYMO')
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	186
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	187 /* internal flags */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	188 #define DL_IN_LIST 0x01
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	189
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	190 /* our mutex */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	191 static pthread_mutex_t dlcompat_mutex;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	192 /* Our thread specific storage
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	193 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	194 static pthread_key_t dlerror_key;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	195
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	196 struct dlthread
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	197 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	198 int lockcnt;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	199 unsigned char errset;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	200 char errstr[ERR_STR_LEN];
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	201 };
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	202
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	203 /* This is our central data structure. Whenever a module is loaded via
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	204 * SDL_OSX_dlopen(), we create such a struct.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	205 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	206 struct dlstatus
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	207 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	208 struct dlstatus next; / pointer to next element in the linked list */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	209 NSModule module;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	210 const struct mach_header *lib;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	211 int refs; /* reference count */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	212 int mode; /* mode in which this module was loaded */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	213 dev_t device;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	214 ino_t inode;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	215 int flags; /* Any internal flags we may need */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	216 };
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	217
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	218 /* Head node of the dlstatus list */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	219 static struct dlstatus mainStatus = { 0, MAGIC_DYLIB_MOD, NULL, -1, RTLD_GLOBAL, 0, 0, 0 };
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	220 static struct dlstatus *stqueue = &mainStatus;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	221
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	222
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	223 /* Storage for the last error message (used by dlerror()) */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	224 /* static char err_str[ERR_STR_LEN]; */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	225 /* static int err_filled = 0; */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	226
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	227 /* Prototypes to internal functions */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	228 static void debug(const char *fmt, ...);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	229 static void error(const char *str, ...);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	230 static const char safegetenv(const char s);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	231 static const char *searchList(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	232 static const char *getSearchPath(int i);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	233 static const char getFullPath(int i, const char file);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	234 static const struct stat findFile(const char file, const char **fullPath);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	235 static int isValidStatus(struct dlstatus *status);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	236 static inline int isFlagSet(int mode, int flag);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	237 static struct dlstatus lookupStatus(const struct stat sbuf);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	238 static void insertStatus(struct dlstatus dls, const struct stat sbuf);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	239 static int promoteLocalToGlobal(struct dlstatus *dls);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	240 static void reference(struct dlstatus dls, int mode);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	241 static void dlsymIntern(struct dlstatus dls, const char *symbol, int canSetError);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	242 static struct dlstatus *allocStatus(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	243 static struct dlstatus loadModule(const char path, const struct stat *sbuf, int mode);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	244 static NSSymbol search_linked_libs(const struct mach_header mh, const char *symbol);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	245 static const char get_lib_name(const struct mach_header mh);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	246 static const struct mach_header get_mach_header_from_NSModule(NSModule mod);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	247 static void dlcompat_init_func(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	248 static inline void dlcompat_init_check(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	249 static inline void dolock(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	250 static inline void dounlock(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	251 static void dlerrorfree(void *data);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	252 static void resetdlerror(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	253 static const struct mach_header my_find_image(const char name);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	254 static const struct mach_header image_for_address(const void address);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	255 static inline const char *dyld_error_str(void);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	256
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	257 #if FINK_BUILD
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	258 /* Two Global Functions */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	259 static void dlsym_prepend_underscore(void handle, const char *symbol);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	260 static void dlsym_auto_underscore(void handle, const char *symbol);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	261
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	262 /* And their _intern counterparts */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	263 static void dlsym_prepend_underscore_intern(void handle, const char *symbol);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	264 static void dlsym_auto_underscore_intern(void handle, const char *symbol);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	265 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	266
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	267 /* Functions */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	268
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	269 static void debug(const char *fmt, ...)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	270 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	271 #if DEBUG > 1
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	272 va_list arg;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	273 va_start(arg, fmt);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	274 fprintf(stderr, "DLDEBUG: ");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	275 vfprintf(stderr, fmt, arg);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	276 fprintf(stderr, "\n");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	277 fflush(stderr);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	278 va_end(arg);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	279 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	280 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	281
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	282 static void error(const char *str, ...)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	283 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	284 va_list arg;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	285 struct dlthread *tss;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	286 char * err_str;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	287 va_start(arg, str);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	288 tss = pthread_getspecific(dlerror_key);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	289 err_str = tss->errstr;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	290 strncpy(err_str, "dlcompat: ", ERR_STR_LEN);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	291 vsnprintf(err_str + 10, ERR_STR_LEN - 10, str, arg);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	292 va_end(arg);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	293 debug("ERROR: %s\n", err_str);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	294 tss->errset = 1;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	295 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	296
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	297 static void warning(const char *str)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	298 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	299 #if DEBUG > 0
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	300 fprintf(stderr, "WARNING: dlcompat: %s\n", str);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	301 #endif
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	302 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	303
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	304 static const char safegetenv(const char s)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	305 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	306 const char *ss = getenv(s);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	307 return ss ? ss : "";
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	308 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	309
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	310 /* because this is only used for debugging and error reporting functions, we
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	311 * don't really care about how elegant it is... it could use the load
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	312 * commands to find the install name of the library, but...
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	313 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	314 static const char get_lib_name(const struct mach_header mh)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	315 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	316 unsigned long count = _dyld_image_count();
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	317 unsigned long i;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	318 const char *val = NULL;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	319 if (mh)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	320 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	321 for (i = 0; i < count; i++)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	322 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	323 if (mh == _dyld_get_image_header(i))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	324 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	325 val = _dyld_get_image_name(i);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	326 break;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	327 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	328 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	329 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	330 return val;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	331 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	332
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	333 /* Returns the mach_header for the module bu going through all the loaded images
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	334 * and finding the one with the same name as the module. There really ought to be
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	335 * an api for doing this, would be faster, but there isn't one right now
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	336 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	337 static const struct mach_header get_mach_header_from_NSModule(NSModule mod)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	338 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	339 const char *mod_name = NSNameOfModule(mod);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	340 struct mach_header *mh = NULL;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	341 unsigned long count = _dyld_image_count();
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	342 unsigned long i;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	343 debug("Module name: %s", mod_name);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	344 for (i = 0; i < count; i++)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	345 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	346 if (!strcmp(mod_name, _dyld_get_image_name(i)))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	347 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	348 mh = _dyld_get_image_header(i);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	349 break;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	350 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	351 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	352 return mh;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	353 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	354
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	355
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	356 /* Compute and return a list of all directories that we should search when
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	357 * trying to locate a module. We first look at the values of LD_LIBRARY_PATH
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	358 * and DYLD_LIBRARY_PATH, and then finally fall back to looking into
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	359 * /usr/lib and /lib. Since both of the environments variables can contain a
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	360 * list of colon seperated paths, we simply concat them and the two other paths
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	361 * into one big string, which we then can easily parse.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	362 * Splitting this string into the actual path list is done by getSearchPath()
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	363 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	364 static const char *searchList()
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	365 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	366 size_t buf_size;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	367 static char *buf=NULL;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	368 const char *ldlp = safegetenv("LD_LIBRARY_PATH");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	369 const char *dyldlp = safegetenv("DYLD_LIBRARY_PATH");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	370 const char *stdpath = getenv("DYLD_FALLBACK_LIBRARY_PATH");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	371 if (!stdpath)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	372 stdpath = "/usr/local/lib:/lib:/usr/lib";
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	373 if (!buf)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	374 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	375 buf_size = strlen(ldlp) + strlen(dyldlp) + strlen(stdpath) + 4;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	376 buf = malloc(buf_size);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	377 snprintf(buf, buf_size, "%s%s%s%s%s%c", dyldlp, (dyldlp[0] ? ":" : ""), ldlp, (ldlp[0] ? ":" : ""),
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	378 stdpath, '\0');
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	379 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	380 return buf;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	381 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	382
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	383 /* Returns the ith search path from the list as computed by searchList() */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	384 static const char *getSearchPath(int i)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	385 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	386 static const char *list = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	387 static char path = (char )0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	388 static int end = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	389 static int numsize = MAX_SEARCH_PATHS;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	390 static char **tmp;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	391 /* So we can call free() in the "destructor" we use i=-1 to return the alloc'd array */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	392 if (i == -1)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	393 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	394 return (const char*)path;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	395 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	396 if (!path)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	397 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	398 path = (char )calloc(MAX_SEARCH_PATHS, sizeof(char ));
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	399 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	400 if (!list && !end)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	401 list = searchList();
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	402 if (i >= (numsize))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	403 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	404 debug("Increasing size for long PATH");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	405 tmp = (char )calloc((MAX_SEARCH_PATHS + numsize), sizeof(char ));
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	406 if (tmp)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	407 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	408 memcpy(tmp, path, sizeof(char *) numsize);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	409 free(path);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	410 path = tmp;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	411 numsize += MAX_SEARCH_PATHS;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	412 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	413 else
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	414 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	415 return 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	416 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	417 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	418
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	419 while (!path[i] && !end)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	420 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	421 path[i] = strsep((char **)&list, ":");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	422
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	423 if (path[i][0] == 0)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	424 path[i] = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	425 end = (list == 0);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	426 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	427 return path[i];
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	428 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	429
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	430 static const char getFullPath(int i, const char file)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	431 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	432 static char buf[PATH_MAX];
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	433 const char *path = getSearchPath(i);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	434 if (path)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	435 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	436 snprintf(buf, PATH_MAX, "%s/%s", path, file);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	437 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	438 return path ? buf : 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	439 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	440
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	441 /* Given a file name, try to determine the full path for that file. Starts
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	442 * its search in the current directory, and then tries all paths in the
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	443 * search list in the order they are specified there.
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	444 */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	445 static const struct stat findFile(const char file, const char **fullPath)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	446 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	447 int i = 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	448 static struct stat sbuf;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	449 char *fileName;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	450 debug("finding file %s", file);
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	451 *fullPath = file;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	452 if (0 == stat(file, &sbuf))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	453 return &sbuf;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	454 if (strchr(file, '/'))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	455 return 0; /* If the path had a / we don't look in env var places */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	456 fileName = NULL;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	457 if (!fileName)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	458 fileName = (char *)file;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	459 while ((*fullPath = getFullPath(i++, fileName)))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	460 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	461 if (0 == stat(*fullPath, &sbuf))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	462 return &sbuf;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	463 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	464 ;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	465 return 0;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	466 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	467
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	468 /* Determine whether a given dlstatus is valid or not */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	469 static int isValidStatus(struct dlstatus *status)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	470 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	471 /* Walk the list to verify status is contained in it */
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	472 struct dlstatus *dls = stqueue;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	473 while (dls && status != dls)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	474 dls = dls->next;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	475 if (dls == 0)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	476 error("invalid handle");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	477 else if ((dls->module == 0) \|\| (dls->refs == 0))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	478 error("handle to closed library");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	479 else
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	480 return TRUE;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	481 return FALSE;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	482 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	483
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	484 static inline int isFlagSet(int mode, int flag)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	485 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	486 return (mode & flag) == flag;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	487 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	488
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	489 static struct dlstatus lookupStatus(const struct stat sbuf)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	490 {
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	491 struct dlstatus *dls = stqueue;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	492 debug("looking for status");
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	493 while (dls && ( /* isFlagSet(dls->mode, RTLD_UNSHARED) */ 0
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	494 \|\| sbuf->st_dev != dls->device \|\| sbuf->st_ino != dls->inode))
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	495 dls = dls->next;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	496 return dls;
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	497 }
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	498
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	499 static void insertStatus(struct dlstatus dls, const struct stat sbuf)
e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories. Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	500 {

1173

e9cf8c1b4590 Split up src/SDL_loadso.c into platform directories.