1990-12-21 00:03:58 +01:00
|
|
|
/* Configuration containing EVERYTHING */
|
|
|
|
|
|
|
|
/* At CWI, this implies stdwin, audio, Amoeba and the NASA Panel Library */
|
|
|
|
#define USE_AUDIO
|
|
|
|
#define USE_AMOEBA
|
|
|
|
#define USE_PANEL
|
|
|
|
|
|
|
|
static int use_stdwin;
|
|
|
|
|
|
|
|
/*ARGSUSED*/
|
|
|
|
void
|
|
|
|
initargs(p_argc, p_argv)
|
|
|
|
int *p_argc;
|
|
|
|
char ***p_argv;
|
|
|
|
{
|
|
|
|
extern char *getenv();
|
|
|
|
char *display;
|
1991-01-02 14:50:48 +01:00
|
|
|
|
|
|
|
/* 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)++;
|
|
|
|
}
|
|
|
|
|
1990-12-21 00:03:58 +01:00
|
|
|
/* 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);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
initcalls()
|
|
|
|
{
|
|
|
|
inittime();
|
|
|
|
initmath();
|
1991-01-02 14:50:48 +01:00
|
|
|
initregexp();
|
1990-12-21 00:03:58 +01:00
|
|
|
initposix();
|
|
|
|
#ifdef USE_AUDIO
|
|
|
|
initaudio();
|
|
|
|
#endif
|
|
|
|
#ifdef USE_AMOEBA
|
|
|
|
initamoeba();
|
|
|
|
#endif
|
|
|
|
initgl();
|
|
|
|
#ifdef USE_PANEL
|
|
|
|
initpanel();
|
|
|
|
#endif
|
|
|
|
if (use_stdwin)
|
|
|
|
initstdwin();
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
donecalls()
|
|
|
|
{
|
|
|
|
if (use_stdwin)
|
|
|
|
wdone();
|
|
|
|
#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;
|
|
|
|
}
|