Archipelago » qemu

#ifdef _WIN32

/* Look for support files in the same directory as the executable.  */

static char *find_datadir(const char *argv0)

{

    char *p;

    char buf[MAX_PATH];

    DWORD len;

    len = GetModuleFileName(NULL, buf, sizeof(buf) - 1);

    if (len == 0) {

        return NULL;

    }

    buf[len] = 0;

    p = buf + len - 1;

    while (p != buf && *p != '\\')

        p--;

    *p = 0;

    if (access(buf, R_OK) == 0) {

        return qemu_strdup(buf);

    }

    return NULL;

}

#else /* !_WIN32 */

/* Find a likely location for support files using the location of the binary.

   For installed binaries this will be "$bindir/../share/qemu".  When

   running from the build tree this will be "$bindir/../pc-bios".  */

#define SHARE_SUFFIX "/share/qemu"

#define BUILD_SUFFIX "/pc-bios"

static char *find_datadir(const char *argv0)

{

    char *dir;

    char *p = NULL;

    char *res;

    char buf[PATH_MAX];

    size_t max_len;

#if defined(__linux__)

    {

        int len;

        len = readlink("/proc/self/exe", buf, sizeof(buf) - 1);

        if (len > 0) {

            buf[len] = 0;

            p = buf;

        }

    }

#elif defined(__FreeBSD__)

    {

        static int mib[4] = {CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1};

        size_t len = sizeof(buf) - 1;

        *buf = '\0';

        if (!sysctl(mib, sizeof(mib)/sizeof(*mib), buf, &len, NULL, 0) &&

            *buf) {

            buf[sizeof(buf) - 1] = '\0';

            p = buf;

        }

    }

#endif

    /* If we don't have any way of figuring out the actual executable

       location then try argv[0].  */

    if (!p) {

        p = realpath(argv0, buf);

        if (!p) {

            return NULL;

        }

    }

    dir = dirname(p);

    dir = dirname(dir);

    max_len = strlen(dir) +

        MAX(strlen(SHARE_SUFFIX), strlen(BUILD_SUFFIX)) + 1;

    res = qemu_mallocz(max_len);

    snprintf(res, max_len, "%s%s", dir, SHARE_SUFFIX);

    if (access(res, R_OK)) {

        snprintf(res, max_len, "%s%s", dir, BUILD_SUFFIX);

        if (access(res, R_OK)) {

            qemu_free(res);

            res = NULL;

        }

    }

    return res;

}

#undef SHARE_SUFFIX

#undef BUILD_SUFFIX

#endif

        data_dir = find_datadir(argv[0]);