summaryrefslogtreecommitdiffstats
path: root/RISCOS/Modules/getpath_riscos.c
blob: 8705e2c4e76e85d28f150e6870eebf2e1d72e95a (plain)
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
#include "Python.h"
#include "osdefs.h"

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

static void
calculate_path()
{ char *pypath=getenv("Python$Path");
  if(pypath)
  { module_search_path=malloc(strlen(pypath)+1);
    if (module_search_path) sprintf(module_search_path,"%s",pypath);
    else
    {  /* We can't exit, so print a warning and limp along */
       fprintf(stderr, "Not enough memory for dynamic PYTHONPATH.\n");
       fprintf(stderr, "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;
}