| /* Configurable Python configuration file */ |
| |
| #ifdef USE_STDWIN |
| #include <stdwin.h> |
| |
| static int use_stdwin; |
| #endif |
| |
| /*ARGSUSED*/ |
| void |
| initargs(p_argc, p_argv) |
| int *p_argc; |
| char ***p_argv; |
| { |
| #ifdef USE_STDWIN |
| extern char *getenv(); |
| char *display; |
| |
| /* Ignore an initial argument of '-s', for backward compatibility */ |
| if (*p_argc > 1 && strcmp((*p_argv)[1], "-s") == 0) { |
| (*p_argv)[1] = (*p_argv)[0]; |
| (*p_argc)--, (*p_argv)++; |
| } |
| |
| /* Assume we have to initialize stdwin if either of the following |
| conditions holds: |
| - the environment variable $DISPLAY is set |
| - there is an argument "-display" somewhere |
| */ |
| |
| display = getenv("DISPLAY"); |
| if (display != 0) |
| use_stdwin = 1; |
| else { |
| int i; |
| /* Scan through the arguments looking for "-display" */ |
| for (i = 1; i < *p_argc; i++) { |
| if (strcmp((*p_argv)[i], "-display") == 0) { |
| use_stdwin = 1; |
| break; |
| } |
| } |
| } |
| |
| if (use_stdwin) |
| winitargs(p_argc, p_argv); |
| #endif |
| } |
| |
| void |
| initcalls() |
| { |
| inittime(); |
| initmath(); |
| initregexp(); |
| initposix(); |
| |
| #ifdef USE_AUDIO |
| initaudio(); |
| #endif |
| |
| #ifdef USE_AMOEBA |
| initamoeba(); |
| #endif |
| |
| #ifdef USE_GL |
| initgl(); |
| #ifdef USE_PANEL |
| initpanel(); |
| #endif |
| #endif |
| |
| #ifdef USE_STDWIN |
| if (use_stdwin) |
| initstdwin(); |
| #endif |
| } |
| |
| void |
| donecalls() |
| { |
| #ifdef USE_STDWIN |
| if (use_stdwin) |
| wdone(); |
| #endif |
| #ifdef USE_AUDIO |
| asa_done(); |
| #endif |
| } |
| |
| #ifndef PYTHONPATH |
| #define PYTHONPATH ".:/usr/local/lib/python" |
| #endif |
| |
| extern char *getenv(); |
| |
| char * |
| getpythonpath() |
| { |
| char *path = getenv("PYTHONPATH"); |
| if (path == 0) |
| path = PYTHONPATH; |
| return path; |
| } |