view RISCOS/Modules/getpath_riscos.c @ 28646:193b8aec00ce legacy-trunk

Changes from Jonathan Riehl to allow his pgen extension (PEP 269) to work. This includes some more code that used to be part of pgen in the main parser; I'm okay with that. I'll see if the Windows build needs work next.
author Guido van Rossum <guido@python.org>
date Thu, 17 Apr 2003 14:55:42 +0000
parents f546623ef0c6
children fd25030223b0
line wrap: on
line source

#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;
}