comparison Python/pythonrun.c @ 1319:cd397266dc1c legacy-trunk

* Makefile: added all: and default: targets. * many files: made some functions static; removed "extern int errno;". * frozenmain.c: fixed bugs introduced on 24 June... * flmodule.c: remove 1.5 bw compat hacks, add new functions in 2.2a (and some old functions that were omitted). * timemodule.c: added MSDOS floatsleep version . * pgenmain.c: changed exit() to goaway() and added defn of goaway(). * intrcheck.c: add hack (to UNIX only) so interrupting 3 times will exit from a hanging program. The second interrupt prints a message explaining this to the user.
author Guido van Rossum <guido@python.org>
date Mon, 05 Jul 1993 10:31:29 +0000
parents 4d292c7857d4
children a22a350d3a5d
comparison
equal deleted inserted replaced
1318:92e6a8cf14be 1319:cd397266dc1c
282 int err; 282 int err;
283 err = parse_file(fp, filename, start, &n); 283 err = parse_file(fp, filename, start, &n);
284 return run_err_node(err, n, filename, globals, locals); 284 return run_err_node(err, n, filename, globals, locals);
285 } 285 }
286 286
287 object * 287 static object *
288 run_err_node(err, n, filename, globals, locals) 288 run_err_node(err, n, filename, globals, locals)
289 int err; 289 int err;
290 node *n; 290 node *n;
291 char *filename; 291 char *filename;
292 object *globals, *locals; 292 object *globals, *locals;
296 return NULL; 296 return NULL;
297 } 297 }
298 return run_node(n, filename, globals, locals); 298 return run_node(n, filename, globals, locals);
299 } 299 }
300 300
301 object * 301 static object *
302 run_node(n, filename, globals, locals) 302 run_node(n, filename, globals, locals)
303 node *n; 303 node *n;
304 char *filename; 304 char *filename;
305 object *globals, *locals; 305 object *globals, *locals;
306 { 306 {
307 return eval_node(n, filename, globals, locals); 307 return eval_node(n, filename, globals, locals);
308 } 308 }
309 309
310 object * 310 static object *
311 eval_node(n, filename, globals, locals) 311 eval_node(n, filename, globals, locals)
312 node *n; 312 node *n;
313 char *filename; 313 char *filename;
314 object *globals; 314 object *globals;
315 object *locals; 315 object *locals;
390 390
391 #ifdef USE_THREAD 391 #ifdef USE_THREAD
392 extern int threads_started; 392 extern int threads_started;
393 #endif 393 #endif
394 394
395 void 395 static void
396 cleanup() 396 cleanup()
397 { 397 {
398 object *exitfunc = sysget("exitfunc"); 398 object *exitfunc = sysget("exitfunc");
399 399
400 if (exitfunc) { 400 if (exitfunc) {
459 #endif /* USE_THREAD */ 459 #endif /* USE_THREAD */
460 /*NOTREACHED*/ 460 /*NOTREACHED*/
461 } 461 }
462 462
463 #ifdef HANDLE_SIGNALS 463 #ifdef HANDLE_SIGNALS
464 SIGTYPE 464 static SIGTYPE
465 sighandler(sig) 465 sighandler(sig)
466 int sig; 466 int sig;
467 { 467 {
468 signal(sig, SIG_DFL); /* Don't catch recursive signals */ 468 signal(sig, SIG_DFL); /* Don't catch recursive signals */
469 cleanup(); /* Do essential clean-up */ 469 cleanup(); /* Do essential clean-up */
470 kill(getpid(), sig); /* Pretend the signal killed us */ 470 kill(getpid(), sig); /* Pretend the signal killed us */
471 /*NOTREACHED*/ 471 /*NOTREACHED*/
472 } 472 }
473 #endif 473 #endif
474 474
475 void 475 static void
476 initsigs() 476 initsigs()
477 { 477 {
478 initintr(); 478 initintr();
479 #ifdef HANDLE_SIGNALS 479 #ifdef HANDLE_SIGNALS
480 if (signal(SIGHUP, SIG_IGN) != SIG_IGN) 480 if (signal(SIGHUP, SIG_IGN) != SIG_IGN)