| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | /***********************************************************
 | 
					
						
							| 
									
										
										
										
											1995-01-04 19:12:13 +00:00
										 |  |  | Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, | 
					
						
							|  |  |  | The Netherlands. | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  |                         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. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | ******************************************************************/ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | /* Python interpreter main program for frozen scripts */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #include "allobjects.h"
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | extern char *getenv(); | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | extern char *getversion(); | 
					
						
							|  |  |  | extern char *getcopyright(); | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | extern int debugging; | 
					
						
							|  |  |  | extern int verbose; | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | extern int suppress_print; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | static char *argv0; | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | main(argc, argv) | 
					
						
							|  |  |  | 	int argc; | 
					
						
							|  |  |  | 	char **argv; | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | 	char *p; | 
					
						
							| 
									
										
										
										
											1993-11-05 10:16:09 +00:00
										 |  |  | 	int n, sts; | 
					
						
							|  |  |  | 	int inspect = 0; | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | 	int unbuffered = 0; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	argv0 = argv[0]; | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 	if ((p = getenv("PYTHONDEBUG")) && *p != '\0') | 
					
						
							|  |  |  | 		debugging = 1; | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | 	if ((p = getenv("PYTHONSUPPRESS")) && *p != '\0') | 
					
						
							|  |  |  | 		suppress_print = 1; | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 	if ((p = getenv("PYTHONVERBOSE")) && *p != '\0') | 
					
						
							|  |  |  | 		verbose = 1; | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 	if ((p = getenv("PYTHONINSPECT")) && *p != '\0') | 
					
						
							|  |  |  | 		inspect = 1; | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | 	if ((p = getenv("PYTHONUNBUFFERED")) && *p != '\0') | 
					
						
							|  |  |  | 		unbuffered = 1; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	if (unbuffered) { | 
					
						
							|  |  |  | 		setbuf(stdout, (char *)NULL); | 
					
						
							|  |  |  | 		setbuf(stderr, (char *)NULL); | 
					
						
							|  |  |  | 	} | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | 	if (verbose) | 
					
						
							|  |  |  | 		fprintf(stderr, "Python %s\n%s\n", | 
					
						
							|  |  |  | 			getversion(), getcopyright()); | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 	initall(); | 
					
						
							|  |  |  | 	setpythonargv(argc, argv); | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 	n = init_frozen("__main__"); | 
					
						
							|  |  |  | 	if (n == 0) | 
					
						
							|  |  |  | 		fatal("__main__ not frozen"); | 
					
						
							|  |  |  | 	if (n < 0) { | 
					
						
							|  |  |  | 		print_error(); | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 		sts = 1; | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 	} | 
					
						
							|  |  |  | 	else | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 		sts = 0; | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1993-07-05 10:31:29 +00:00
										 |  |  | 	if (inspect && isatty((int)fileno(stdin))) | 
					
						
							| 
									
										
										
										
											1993-06-24 11:10:19 +00:00
										 |  |  | 		sts = run(stdin, "<stdin>") != 0; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	goaway(sts); | 
					
						
							| 
									
										
										
										
											1993-04-01 20:59:32 +00:00
										 |  |  | 	/*NOTREACHED*/ | 
					
						
							|  |  |  | } | 
					
						
							| 
									
										
										
										
											1994-08-30 08:27:36 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | char * | 
					
						
							|  |  |  | getprogramname() | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | 	return argv0; | 
					
						
							|  |  |  | } |