Return to xp_dl.c CVS log

Up to [Synchronet] / sbbs / src / xpdev

Annotation of sbbs/src/xpdev/xp_dl.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "dirwrap.h"
        !             3: #include "xp_dl.h"
        !             4: 
        !             5: #ifndef STATIC_LINK
        !             6: #if defined(__unix__)
        !             7: 
        !             8: DLLEXPORT dll_handle DLLCALL xp_dlopen(const char **names, int mode, int major)
        !             9: {
        !            10:        const char      *name;
        !            11:        char            fname[MAX_PATH+1];
        !            12:        dll_handle      ret=NULL;
        !            13:        int                     i;
        !            14: 
        !            15:        for(; *names && (*names)[0]; names++) {
        !            16:                name=*names;
        !            17:                /* Try for version match */
        !            18:                sprintf(fname, "lib%s.so.%d", name, major);
        !            19:                if((ret=dlopen(fname, mode))!=NULL)
        !            20:                        return(ret);
        !            21: 
        !            22:                /* Try for name match */
        !            23:                sprintf(fname, "lib%s.so", name, major);
        !            24:                if((ret=dlopen(fname, mode))!=NULL)
        !            25:                        return(ret);
        !            26: 
        !            27:                /* Try for name match without the prefix */
        !            28:                sprintf(fname, "%s.so", name, major);
        !            29:                if((ret=dlopen(fname, mode))!=NULL)
        !            30:                        return(ret);
        !            31: 
        !            32:                /* Try all previous major versions */
        !            33:                for(i=major-1; i>=0; i--) {
        !            34:                        sprintf(fname, "lib%s.so.%d", name, i);
        !            35:                        if((ret=dlopen(fname, mode))!=NULL)
        !            36:                                return(ret);
        !            37:                }
        !            38: 
        !            39: #if defined(__APPLE__) && defined(__MACH__)
        !            40:                /* Try for version match */
        !            41:                sprintf(fname, "lib%s.%d.dylib", name, major);
        !            42:                if((ret=dlopen(fname, mode))!=NULL)
        !            43:                        return(ret);
        !            44: 
        !            45:                /* Try for name match */
        !            46:                sprintf(fname, "lib%s.dylib", name, major);
        !            47:                if((ret=dlopen(fname, mode))!=NULL)
        !            48:                        return(ret);
        !            49: 
        !            50:                /* Try all previous major versions */
        !            51:                for(i=major-1; i>=0; i--) {
        !            52:                        sprintf(fname, "lib%s.%d.dylib", name, i);
        !            53:                        if((ret=dlopen(fname, mode))!=NULL)
        !            54:                                return(ret);
        !            55:                }
        !            56: #endif /* OS X */
        !            57:        }
        !            58: 
        !            59:        return(NULL);
        !            60: }
        !            61: #elif defined(_WIN32)
        !            62: DLLEXPORT dll_handle DLLCALL xp_dlopen(const char **names, int mode, int major)
        !            63: {
        !            64:        char            fname[MAX_PATH+1];
        !            65:        dll_handle      ret=NULL;
        !            66: 
        !            67:        for(; *names && (*names)[0]; names++) {
        !            68:                sprintf(fname, "%s.dll", *names);
        !            69:                if((ret=LoadLibrary(fname))!=NULL)
        !            70:                        return(ret);
        !            71:        }
        !            72:        return(NULL);
        !            73: }
        !            74: #endif /* __unix__,_WIN32 */
        !            75: 
        !            76: #endif /* STATIC_LINK */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.