erl-loader.c

/*
# _____     ___ ____     ___ ____
#  ____|   |    ____|   |        | |____|
# |     ___|   |____ ___|    ____| |    \    PS2DEV Open Source Project.
#-----------------------------------------------------------------------
# Copyright 2001-2004, ps2dev - http://www.ps2dev.org
# Licenced under Academic Free License version 2.0
# Review ps2sdk README & LICENSE files for further details.
#
# Small erl loader to provide a startup core.
*/
 
#include <string.h>
#include <erl.h>
 
extern struct export_list_t {
    char * name;
    void * pointer;
} export_list[];
 
static void parse_boot_path(int argc, char *argv[]) {
    char * p;
 
    if (argc == 0) // Are people still using naplink ? :P
    strcpy(_init_erl_prefix, "host:");
 
    strcpy(_init_erl_prefix, argv[0]);
 
    p = strrchr(_init_erl_prefix, '/');
 
    if (!p)
    p = strrchr(_init_erl_prefix, '\\');
 
    if (!p)
    p = strrchr(_init_erl_prefix, ':');
 
    if (!p)
    return;
 
    *(++p) = 0;
    _init_erl_prefix[p - _init_erl_prefix] = 0;
}
 
static char * prohibit_list[] = {
    "_edata", "_end", "_end_bss", "_fbss", "_fdata", "_fini",
    "_ftext", "_gp", "_init", "main",
    0
};
 
static void export_symbols() {
    struct export_list_t * p;
 
    for (p = export_list; p->name; p++) {
    int i;
    int prohibit;
    prohibit = 0;
    for (i = 0; prohibit_list[i]; i++) {
        if (!(strcmp(prohibit_list[i], p->name))) {
        prohibit = 1;
        break;
        }
    }
    if (!prohibit)
        erl_add_global_symbol(p->name, (u32) p->pointer);
    }
}
 
typedef void (*func_t)(void);
 
int main(int argc, char *argv[]) {
    struct symbol_t * s;
 
    parse_boot_path(argc, argv);
 
    export_symbols();
 
    if (argc >= 2) {
    int i;
    for (i = 1; i < argc; i++) {
        _init_load_erl_from_file(argv[i], 0);
    }
    } else {
    _init_load_erl_from_file("main.erl", 0);
    }
 
    if ((s = erl_find_symbol("main"))) {
    ((func_t) s->address)();
    }
 
    return 0;
}