1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
RISCOS/Modules/getpath_riscos.c
#include "Python.h"
#include "osdefs.h"

static char *prefix, *exec_prefix, *progpath, *module_search_path=NULL;

static void
calculate_path()
{
    char *pypath = getenv("Python$Path");
    if (pypath) {
        int pathlen = strlen(pypath);
        module_search_path = malloc(pathlen + 1);
        if (module_search_path)
            strncpy(module_search_path, pypath, pathlen + 1);
        else {
            fprintf(stderr,
                "Not enough memory for dynamic PYTHONPATH.\n"
                "Using default static PYTHONPATH.\n");
        }
    }
    if (!module_search_path)
        module_search_path = "<Python$Dir>.Lib";
    prefix = "<Python$Dir>";
    exec_prefix = prefix;
    progpath = Py_GetProgramName();
}

/* External interface */

char *
Py_GetPath()
{
    if (!module_search_path)
        calculate_path();
    return module_search_path;
}

char *
Py_GetPrefix()
{
    if (!module_search_path)
        calculate_path();
    return prefix;
}

char *
Py_GetExecPrefix()
{
    if (!module_search_path)
        calculate_path();
    return exec_prefix;
}

char *
Py_GetProgramFullPath()
{
    if (!module_search_path)
        calculate_path();
    return progpath;
}