kolibrios/programs/develop/ktcc/trunk/libc/dlfcn/dlfcn.c

#include <kos32sys1.h>

#include <stdlib.h>
#include <string.h>
#include <dlfcn.h>

typedef struct {
    char *name;
    void *ptr;
} KosExp;

typedef struct {
    void **importNames;
    char * libraryName;
} KosImp;

static int stdcall dll_Load(KosImp *importTableEntry);

static const char *__error;

static int stdcall dll_Load(KosImp *importTableEntry) {
    for (; importTableEntry->importNames; importTableEntry++) {
        char libPath[256] = "/sys/lib/";
        KosExp *exports = NULL;
        void **libImports = importTableEntry->importNames;
        
        strcat(libPath, importTableEntry->libraryName);
        if (!(exports = dlopen(libPath, 0))) { return 1; }
        for (; *libImports; libImports++) {
            if (!(*libImports = dlsym(exports, *libImports))) { return 1; }
        }
    }
    return 0;
}

// https://pubs.opengroup.org/onlinepubs/007908799/xsh/dlopen.html
// Current implementation fully ignores "mode" parameter
void *dlopen(const char *name, int mode) {
    KosExp *exports = NULL;

    // load library using syscall
    asm volatile ("int $0x40":"=a"(exports):"a"(68), "b"(19), "c"(name));
    if (!exports) {
        char libPath[256] = "/sys/lib/";

        strcat(libPath, name);
        asm volatile ("int $0x40":"=a"(exports):"a"(68), "b"(19), "c"(libPath));
        if (!exports) {
            __error = "Library not found in \"/sys/lib/\" nor current folder";
            return NULL;
        }
    }
    // call anything starting with "lib_"
    for (KosExp *export = exports; export->name; export++) {
        if (!memcmp(export->name, "lib_", 4)) {
            asm volatile (
                "call *%4" ::
                "a"(sysmalloc),
                "b"(sysfree),
                "c"(sysrealloc),
                "d"(dll_Load),
                "r"(export->ptr));
        }
    }
    return exports;
}

// https://pubs.opengroup.org/onlinepubs/007908799/xsh/dlsym.html
void *dlsym(void *handle, const char *name) {
    KosExp *exp = handle;

    for (; exp->name; exp++) {
        if (!strcmp(exp->name, name)) {
            return exp->ptr;
        }
    }
    __error = "Symbol not found";
    return NULL;
}

// https://pubs.opengroup.org/onlinepubs/007908799/xsh/dlclose.html
int dlclose(void *handle) {
    return 0;
}

// https://pubs.opengroup.org/onlinepubs/007908799/xsh/dlerror.html
char *dlerror(void) {
    char *ret = __error ? strdup(__error) : NULL;
    __error = NULL;
    return ret;
}