Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 1 | /* Configurable Python configuration file */ |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 2 | |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 3 | #ifdef USE_STDWIN |
| 4 | #include <stdwin.h> |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 5 | |
| 6 | static int use_stdwin; |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 7 | #endif |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 8 | |
| 9 | /*ARGSUSED*/ |
| 10 | void |
| 11 | initargs(p_argc, p_argv) |
| 12 | int *p_argc; |
| 13 | char ***p_argv; |
| 14 | { |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 15 | #ifdef USE_STDWIN |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 16 | extern char *getenv(); |
| 17 | char *display; |
Guido van Rossum | 6607f44 | 1991-01-02 13:50:48 +0000 | [diff] [blame] | 18 | |
| 19 | /* Ignore an initial argument of '-s', for backward compatibility */ |
| 20 | if (*p_argc > 1 && strcmp((*p_argv)[1], "-s") == 0) { |
| 21 | (*p_argv)[1] = (*p_argv)[0]; |
| 22 | (*p_argc)--, (*p_argv)++; |
| 23 | } |
| 24 | |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 25 | /* Assume we have to initialize stdwin if either of the following |
| 26 | conditions holds: |
| 27 | - the environment variable $DISPLAY is set |
| 28 | - there is an argument "-display" somewhere |
| 29 | */ |
| 30 | |
| 31 | display = getenv("DISPLAY"); |
| 32 | if (display != 0) |
| 33 | use_stdwin = 1; |
| 34 | else { |
| 35 | int i; |
| 36 | /* Scan through the arguments looking for "-display" */ |
| 37 | for (i = 1; i < *p_argc; i++) { |
| 38 | if (strcmp((*p_argv)[i], "-display") == 0) { |
| 39 | use_stdwin = 1; |
| 40 | break; |
| 41 | } |
| 42 | } |
| 43 | } |
| 44 | |
| 45 | if (use_stdwin) |
| 46 | winitargs(p_argc, p_argv); |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 47 | #endif |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 48 | } |
| 49 | |
| 50 | void |
| 51 | initcalls() |
| 52 | { |
| 53 | inittime(); |
| 54 | initmath(); |
Guido van Rossum | 6607f44 | 1991-01-02 13:50:48 +0000 | [diff] [blame] | 55 | initregexp(); |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 56 | initposix(); |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 57 | |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 58 | #ifdef USE_AUDIO |
| 59 | initaudio(); |
| 60 | #endif |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 61 | |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 62 | #ifdef USE_AMOEBA |
| 63 | initamoeba(); |
| 64 | #endif |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 65 | |
| 66 | #ifdef USE_GL |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 67 | initgl(); |
| 68 | #ifdef USE_PANEL |
| 69 | initpanel(); |
| 70 | #endif |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 71 | #endif |
| 72 | |
| 73 | #ifdef USE_STDWIN |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 74 | if (use_stdwin) |
| 75 | initstdwin(); |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 76 | #endif |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 77 | } |
| 78 | |
| 79 | void |
| 80 | donecalls() |
| 81 | { |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 82 | #ifdef USE_STDWIN |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 83 | if (use_stdwin) |
| 84 | wdone(); |
Guido van Rossum | 28a83ab | 1991-01-18 15:32:01 +0000 | [diff] [blame^] | 85 | #endif |
Guido van Rossum | aec7855 | 1990-12-20 23:03:58 +0000 | [diff] [blame] | 86 | #ifdef USE_AUDIO |
| 87 | asa_done(); |
| 88 | #endif |
| 89 | } |
| 90 | |
| 91 | #ifndef PYTHONPATH |
| 92 | #define PYTHONPATH ".:/usr/local/lib/python" |
| 93 | #endif |
| 94 | |
| 95 | extern char *getenv(); |
| 96 | |
| 97 | char * |
| 98 | getpythonpath() |
| 99 | { |
| 100 | char *path = getenv("PYTHONPATH"); |
| 101 | if (path == 0) |
| 102 | path = PYTHONPATH; |
| 103 | return path; |
| 104 | } |