symbian-qemu-0.9.1-12/python-2.6.1/RISCOS/Modules/getpath_riscos.c
changeset 1 2fb8b9db1c86
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/symbian-qemu-0.9.1-12/python-2.6.1/RISCOS/Modules/getpath_riscos.c	Fri Jul 31 15:01:17 2009 +0100
@@ -0,0 +1,60 @@
+#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;
+}