| 
									
										
										
										
											1991-02-19 12:39:46 +00:00
										 |  |  | /***********************************************************
 | 
					
						
							|  |  |  | Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The | 
					
						
							|  |  |  | Netherlands. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |                         All Rights Reserved | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | Permission to use, copy, modify, and distribute this software and its  | 
					
						
							|  |  |  | documentation for any purpose and without fee is hereby granted,  | 
					
						
							|  |  |  | provided that the above copyright notice appear in all copies and that | 
					
						
							|  |  |  | both that copyright notice and this permission notice appear in  | 
					
						
							|  |  |  | supporting documentation, and that the names of Stichting Mathematisch | 
					
						
							|  |  |  | Centrum or CWI not be used in advertising or publicity pertaining to | 
					
						
							|  |  |  | distribution of the software without specific, written prior permission. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO | 
					
						
							|  |  |  | THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND | 
					
						
							|  |  |  | FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE | 
					
						
							|  |  |  | FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | 
					
						
							|  |  |  | WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | 
					
						
							|  |  |  | ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT | 
					
						
							|  |  |  | OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | ******************************************************************/ | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1991-01-18 15:32:01 +00:00
										 |  |  | /* Configurable Python configuration file */ | 
					
						
							| 
									
										
										
										
											1990-12-20 23:03:58 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | #include <stdio.h>
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1991-01-18 15:32:01 +00:00
										 |  |  | #ifdef USE_STDWIN
 | 
					
						
							|  |  |  | #include <stdwin.h>
 | 
					
						
							|  |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1990-12-20 23:03:58 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | /*ARGSUSED*/ | 
					
						
							|  |  |  | void | 
					
						
							|  |  |  | initargs(p_argc, p_argv) | 
					
						
							|  |  |  | 	int *p_argc; | 
					
						
							|  |  |  | 	char ***p_argv; | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											1991-01-18 15:32:01 +00:00
										 |  |  | #ifdef USE_STDWIN
 | 
					
						
							| 
									
										
										
										
											1991-06-07 13:55:41 +00:00
										 |  |  | 	wargs(p_argc, p_argv); | 
					
						
							| 
									
										
										
										
											1991-01-18 15:32:01 +00:00
										 |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1990-12-20 23:03:58 +00:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | void | 
					
						
							|  |  |  | initcalls() | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | void | 
					
						
							|  |  |  | donecalls() | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											1991-01-18 15:32:01 +00:00
										 |  |  | #ifdef USE_STDWIN
 | 
					
						
							| 
									
										
										
										
											1991-06-07 13:55:41 +00:00
										 |  |  | 	wdone(); | 
					
						
							| 
									
										
										
										
											1991-01-18 15:32:01 +00:00
										 |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1990-12-20 23:03:58 +00:00
										 |  |  | #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; | 
					
						
							|  |  |  | } | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | /* Table of built-in modules.
 | 
					
						
							|  |  |  |    These are initialized when first imported. */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | /* Standard modules */ | 
					
						
							|  |  |  | extern void inittime(); | 
					
						
							|  |  |  | extern void initmath(); | 
					
						
							|  |  |  | extern void initregexp(); | 
					
						
							|  |  |  | extern void initposix(); | 
					
						
							| 
									
										
										
										
											1991-04-16 08:39:39 +00:00
										 |  |  | extern void initpwd(); | 
					
						
							|  |  |  | extern void initgrp(); | 
					
						
							| 
									
										
										
										
											1991-06-04 19:47:46 +00:00
										 |  |  | extern void initmarshal(); | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | #ifdef USE_AUDIO
 | 
					
						
							|  |  |  | extern void initaudio(); | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | #ifdef USE_AMOEBA
 | 
					
						
							|  |  |  | extern void initamoeba(); | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | #ifdef USE_GL
 | 
					
						
							|  |  |  | extern void initgl(); | 
					
						
							| 
									
										
										
										
											1991-04-03 19:01:18 +00:00
										 |  |  | #ifdef USE_FM
 | 
					
						
							|  |  |  | extern void initfm(); | 
					
						
							| 
									
										
										
										
											1991-08-16 08:58:56 +00:00
										 |  |  | #ifdef USE_FL
 | 
					
						
							|  |  |  | extern void initfl(); | 
					
						
							|  |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1991-04-03 19:01:18 +00:00
										 |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | #ifdef USE_PANEL
 | 
					
						
							|  |  |  | extern void initpanel(); | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | #ifdef USE_STDWIN
 | 
					
						
							| 
									
										
										
										
											1991-06-07 13:55:41 +00:00
										 |  |  | extern void initstdwin(); | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1991-07-01 18:45:17 +00:00
										 |  |  | #ifdef USE_SOCKET
 | 
					
						
							|  |  |  | extern void initsocket(); | 
					
						
							|  |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | struct { | 
					
						
							|  |  |  | 	char *name; | 
					
						
							|  |  |  | 	void (*initfunc)(); | 
					
						
							|  |  |  | } inittab[] = { | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	/* Standard modules */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	{"time",	inittime}, | 
					
						
							|  |  |  | 	{"math",	initmath}, | 
					
						
							|  |  |  | 	{"regexp",	initregexp}, | 
					
						
							|  |  |  | 	{"posix",	initposix}, | 
					
						
							| 
									
										
										
										
											1991-04-16 08:39:39 +00:00
										 |  |  | 	{"pwd",		initpwd}, | 
					
						
							|  |  |  | 	{"grp",		initgrp}, | 
					
						
							| 
									
										
										
										
											1991-06-04 19:47:46 +00:00
										 |  |  | 	{"marshal",	initmarshal}, | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	/* Optional modules */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #ifdef USE_AUDIO
 | 
					
						
							|  |  |  | 	{"audio",	initaudio}, | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #ifdef USE_AMOEBA
 | 
					
						
							|  |  |  | 	{"amoeba",	initamoeba}, | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #ifdef USE_GL
 | 
					
						
							|  |  |  | 	{"gl",		initgl}, | 
					
						
							| 
									
										
										
										
											1991-04-03 19:01:18 +00:00
										 |  |  | #ifdef USE_FM
 | 
					
						
							|  |  |  | 	{"fm",		initfm}, | 
					
						
							| 
									
										
										
										
											1991-08-16 08:58:56 +00:00
										 |  |  | #ifdef USE_FL
 | 
					
						
							|  |  |  | 	{"fl",		initfl}, | 
					
						
							|  |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1991-04-03 19:01:18 +00:00
										 |  |  | #endif
 | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | #ifdef USE_PANEL
 | 
					
						
							|  |  |  | 	{"pnl",		initpanel}, | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #ifdef USE_STDWIN
 | 
					
						
							| 
									
										
										
										
											1991-06-07 13:55:41 +00:00
										 |  |  | 	{"stdwin",	initstdwin}, | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1991-07-01 18:45:17 +00:00
										 |  |  | #ifdef USE_SOCKET
 | 
					
						
							|  |  |  | 	{"socket",	initsocket}, | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1991-02-19 12:22:24 +00:00
										 |  |  | 	{0,		0}		/* Sentinel */ | 
					
						
							|  |  |  | }; |