5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenkset prototyped

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenkhdr dl,dlfcn,dll,rld_interface,mach-o/dyld

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenksys ldr

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenklib dlopen -ldl

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenklib dllload,loadbind,shl_load -ldl

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenktst dll_DYNAMIC link{

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #include <sys/types.h>

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #include <link.h>

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk extern struct link_dynamic _DYNAMIC;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk int

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk main()

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk {

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk return _DYNAMIC.ld_version;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk }

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk}end

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenktst run{

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk lib=

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk for d in /shlib /usr/shlib /lib /usr/lib

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk do if test -d $d

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk then for s in "*.*" "*[!a]*"

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk do for b in libc

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk do for i in $d/$b.$s

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk do if test -f $i

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk then lib=$i

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk fi

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk done

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case $lib in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ?*) break 3 ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk done

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk done

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk fi

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk done

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case $lib in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk *.[0-9]*.[0-9]*)

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk i=`echo $lib | sed 's,\([^0-9]*[0-9]*\).*,\1,'`

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if test -f $i

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk then lib=$i

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk fi

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk # some run time linkers barf with /lib/xxx if

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk # /usr/lib/xxx is there

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case $lib in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk /usr*) ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk *) if test -f /usr$lib

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk then lib=/usr$lib

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk fi

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case $lib in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk "") lib=/lib/libc.so.1 ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case $lib in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk /usr/lib/*)

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case `package` in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk sgi.mips3)

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk abi=/lib32

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk sgi.mips4)

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk abi=/lib64

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk *) abi=

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk case $abi in

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ?*) if test -d $abi

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk then lib=`echo $lib | sed 's,/usr/lib/,,'`

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk lib=$abi/$lib

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk fi

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk ;;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk esac

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk echo "#define _DLL_NEXT_PATH \"$lib\""

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk}end

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenktst - output{

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #if defined(__MVS__) && !defined(__SUSV3)

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #define __SUSV3 1

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #endif

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #if _hdr_dlfcn && _lib_dlopen

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #include <dlfcn.h>

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #endif

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #if _hdr_rld_interface

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #include <rld_interface.h>

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #endif

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk int

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk main()

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk {

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk int i;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #if _hdr_rld_interface

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk void* dll;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk static char* local[] = { "__elf_header", "_call_add_gp_range", "_etext" };

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #endif

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("#if defined(__MVS__) && !defined(__SUSV3)\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("#define __SUSV3 1\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("#endif\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #if _hdr_dlfcn && _lib_dlopen

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("#include <dlfcn.h>\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #endif

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #ifndef RTLD_LAZY

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk i = 0;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk printf("#define RTLD_LAZY 1\n");

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #else

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk i = 1;

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #endif

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk #ifndef RTLD_NOW

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if (i)

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk {

5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk i = 0;

printf("\n");

}

printf("#define RTLD_NOW 2\n");

#endif

#ifndef RTLD_GLOBAL

if (i)

{

i = 0;

printf("\n");

}

printf("#define RTLD_GLOBAL 0\n");

#endif

#ifndef RTLD_LOCAL

if (i)

{

i = 0;

printf("\n");

}

printf("#define RTLD_LOCAL 0\n");

#endif

#ifndef RTLD_PARENT

if (i)

{

i = 0;

printf("\n");

}

printf("#define RTLD_PARENT 0\n");

#endif

#if defined(_hdr_mach_o_dyld) && !defined(RTLD_NEXT)

if (i)

{

i = 0;

printf("\n");

}

printf("#define RTLD_NEXT ((void*)16)\n");

#endif

#if _hdr_rld_interface

if (!(dll = dlopen(0, RTLD_LAZY)))

i = -1;

else

{

for (i = 0; i < sizeof(local) / sizeof(local[0]); i++)

if (dlsym(dll, local[i]))

break;

if (i >= sizeof(local) / sizeof(local[0]))

i = -1;

}

if (i >= 0)

{

printf("\n");

printf("#define _DLL_RLD_SYM %s\n", local[i]);

printf("#define _DLL_RLD_SYM_STR \"%s\"\n", local[i]);

printf("#define _DLL_RLD_SYM_TYPE void*\n");

}

#endif

printf("\n");

printf("#define DLL_INFO_PREVER 0x0001 /* pre-suffix style version */\n");

printf("#define DLL_INFO_DOTVER 0x0002 /* post-suffix style version */\n");

printf("\n");

printf("typedef struct Dllinfo_s\n");

printf("{\n");

printf(" char** sibling; /* sibling dirs on $PATH */\n");

printf(" char* prefix; /* library name prefix */\n");

printf(" char* suffix; /* library name suffix */\n");

printf(" char* env; /* library path env var */\n");

printf(" int flags; /* DLL_INFO_* flags */\n");

printf("#ifdef _DLLINFO_PRIVATE_\n");

printf(" _DLLINFO_PRIVATE_\n");

printf("#endif\n");

printf("} Dllinfo_t;\n");

printf("\n");

printf("typedef struct Dllent_s\n");

printf("{\n");

printf(" char* path;\n");

printf(" char* name;\n");

printf("#ifdef _DLLENT_PRIVATE_\n");

printf(" _DLLENT_PRIVATE_\n");

printf("#endif\n");

printf("} Dllent_t;\n");

printf("\n");

printf("typedef struct Dllscan_s\n");

printf("{\n");

printf(" void* pad;\n");

printf("#ifdef _DLLSCAN_PRIVATE_\n");

printf(" _DLLSCAN_PRIVATE_\n");

printf("#endif\n");

printf("} Dllscan_t;\n");

#if !_hdr_dlfcn || !_lib_dlopen

printf("\n");

printf("extern void* dlopen(const char*, int);\n");

printf("extern void* dlsym(void*, const char*);\n");

printf("extern int dlclose(void*);\n");

printf("extern char* dlerror(void);\n");

#endif

printf("\n");

printf("#if _BLD_dll && defined(__EXPORT__)\n");

printf("#define extern __EXPORT__\n");

printf("#endif\n");

printf("\n");

printf("extern Dllinfo_t* dllinfo(void);\n");

printf("extern void* dllplug(const char*, const char*, const char*, int, char*, size_t);\n");

printf("extern void* dllfind(const char*, const char*, int, char*, size_t);\n");

printf("extern void* dllopen(const char*, int);\n");

printf("extern void* dllnext(int);\n");

printf("extern void* dlllook(void*, const char*);\n");

#if _hdr_rld_interface

if (i >= 0)

{

printf("\n");

printf("extern void* _dll_next(int, _DLL_RLD_SYM_TYPE*);\n");

printf("#define dllnext(f) _dll_next(f, &_DLL_RLD_SYM)\n");

}

#endif

printf("\n");

printf("extern Dllscan_t* dllsopen(const char*, const char*, const char*);\n");

printf("extern Dllent_t* dllsread(Dllscan_t*);\n");

printf("extern int dllsclose(Dllscan_t*);\n");

printf("\n");

printf("#undef extern\n");

#if _hdr_rld_interface

if (i >= 0)

{

printf("\n");

printf("extern _DLL_RLD_SYM_TYPE _DLL_RLD_SYM;\n");

}

#endif

printf("\n");

return 0;

}

}end