RISCOS/Modules/getpath_riscos.c

   1 #include "Python.h"
   2 #include "osdefs.h"
   3
   4 static char *prefix, *exec_prefix, *progpath, *module_search_path=NULL;
   5
   6 static void
   7 calculate_path()
   8 {
   9         char *pypath = getenv("Python$Path");
  10         if (pypath) {
  11                 int pathlen = strlen(pypath);
  12                 module_search_path = malloc(pathlen + 1);
  13                 if (module_search_path)
  14                         strncpy(module_search_path, pypath, pathlen + 1);
  15                 else {
  16                         fprintf(stderr,
  17                                 "Not enough memory for dynamic PYTHONPATH.\n"
  18                                 "Using default static PYTHONPATH.\n");
  19                 }
  20         }
  21         if (!module_search_path)
  22                 module_search_path = "<Python$Dir>.Lib";
  23         prefix = "<Python$Dir>";
  24         exec_prefix = prefix;
  25         progpath = Py_GetProgramName();
  26 }
  27
  28 /* External interface */
  29
  30 char *
  31 Py_GetPath()
  32 {
  33         if (!module_search_path)
  34                 calculate_path();
  35         return module_search_path;
  36 }
  37
  38 char *
  39 Py_GetPrefix()
  40 {
  41         if (!module_search_path)
  42                 calculate_path();
  43         return prefix;
  44 }
  45
  46 char *
  47 Py_GetExecPrefix()
  48 {
  49         if (!module_search_path)
  50                 calculate_path();
  51         return exec_prefix;
  52 }
  53
  54 char *
  55 Py_GetProgramFullPath()
  56 {
  57         if (!module_search_path)
  58                 calculate_path();
  59         return progpath;
  60 }