257 lines
5.4 KiB
Plaintext
257 lines
5.4 KiB
Plaintext
|
255 longjmp(*Top_jmp_buf, JMP_RESTORE);
|
||
|
|
256 }
|
||
|
|
257 else {
|
||
|
|
258 STk_print(x, STk_curr_oport, WRT_MODE);
|
||
|
|
259 Putc('\n', STk_stdout);
|
||
|
|
260 }
|
||
|
|
261 }
|
||
|
|
262 }
|
||
|
|
263
|
||
|
|
264 static void repl_driver(int argc, char **argv)
|
||
|
|
265 {
|
||
|
|
266 static int k;
|
||
|
|
267 static char **new_argv;
|
||
|
|
268
|
||
|
|
269 new_argv = STk_process_argc_argv(argc, argv);
|
||
|
|
270
|
||
|
|
271 if (STk_arg_image) {
|
||
|
|
272 STk_save_unix_args_and_environment(argc, argv);
|
||
|
|
273 STk_restore_image(STk_arg_image);
|
||
|
|
274 }
|
||
|
|
275 else {
|
||
|
|
276 /* Normal initialisation */
|
||
|
|
277 STk_reset_eval_stack();
|
||
|
|
278 }
|
||
|
|
279
|
||
|
|
280 /* Point where we come back on errors, image restoration, ... */
|
||
|
|
281 k = setjmp(*Top_jmp_buf);
|
||
|
|
282
|
||
|
|
283 Error_context = ERR_OK;
|
||
|
|
284 STk_sigint_counter = 0;
|
||
|
|
285 STk_control_C = 0;
|
||
|
|
286
|
||
|
|
287 switch (k) {
|
||
|
|
288 case 0: init_interpreter();
|
||
|
|
289 STk_initialize_scheme_args(new_argv);
|
||
|
|
290 load_init_file();
|
||
|
|
291 #ifdef USE_TK
|
||
|
|
292 # ifdef WIN32
|
||
|
|
293 if (!STk_arg_no_tk)
|
||
|
|
294 Tk_main(STk_arg_sync,
|
||
|
|
295 STk_arg_name,
|
||
|
|
296 STk_arg_file,
|
||
|
|
297 "localhost:0",
|
||
|
|
298 STk_arg_geometry);
|
||
|
|
299 # else
|
||
|
|
300 if (!STk_arg_Xdisplay)
|
||
|
|
301 STk_arg_Xdisplay = getenv("DISPLAY");
|
||
|
|
302 if (!STk_arg_no_tk && STk_arg_Xdisplay)
|
||
|
|
303 Tk_main(STk_arg_sync,
|
||
|
|
304 STk_arg_name,
|
||
|
|
305 STk_arg_file,
|
||
|
|
306 STk_arg_Xdisplay,
|
||
|
|
307 STk_arg_geometry);
|
||
|
|
308 # endif
|
||
|
|
309 #endif
|
||
|
|
310 finish_initialisation();
|
||
|
|
311 break;
|
||
|
|
312 case JMP_RESTORE: STk_restore_unix_args_and_environment(&argc, &argv);
|
||
|
|
313 /* Process another time args since we have lost them ! */
|
||
|
|
314 new_argv = STk_process_argc_argv(argc, argv);
|
||
|
|
315 STk_initialize_scheme_args(new_argv);
|
||
|
|
316 #ifdef USE_TK
|
||
|
|
317 if (!STk_arg_no_tk && (STk_arg_Xdisplay||getenv("DISPLAY")))
|
||
|
|
318 Tk_main(STk_arg_sync,
|
||
|
|
319 STk_arg_name,
|
||
|
|
320 STk_arg_file,
|
||
|
|
321 STk_arg_Xdisplay,
|
||
|
|
322 STk_arg_geometry);
|
||
|
|
323 #endif
|
||
|
|
324 finish_initialisation();
|
||
|
|
325 break;
|
||
|
|
326 case JMP_THROW:
|
||
|
|
327 case JMP_ERROR: break;
|
||
|
|
328 }
|
||
|
|
329
|
||
|
|
330 repl_loop();
|
||
|
|
331 if (STk_interactivep) fprintf(STk_stderr, "Bye.\n");
|
||
|
|
332 STk_quit_interpreter(UNBOUND);
|
||
|
|
333 }
|
||
|
|
334
|
||
|
|
335 /******************************************************************************
|
||
|
|
336 *
|
||
|
|
337 * Toplevel
|
||
|
|
338 *
|
||
|
|
339 ******************************************************************************/
|
||
|
|
340
|
||
|
|
341 void STk_toplevel(int argc, char **argv)
|
||
|
|
342 {
|
||
|
|
343 SCM stack_start; /* Unused variable. Its the first stack allocated variable */
|
||
|
|
344
|
||
|
|
run -visual staticgray
|
||
|
|
break Tk_main
|
||
|
|
run -visual staticgray
|
||
|
|
next
|
||
|
|
step
|
||
|
|
next
|
||
|
|
break tkFrame.c:297
|
||
|
|
cont
|
||
|
|
print screenName
|
||
|
|
next
|
||
|
|
print className
|
||
|
|
next
|
||
|
|
print visualName
|
||
|
|
next
|
||
|
|
step
|
||
|
|
graph display dictPtr
|
||
|
|
next
|
||
|
|
print visInfoList
|
||
|
|
next
|
||
|
|
print new
|
||
|
|
next
|
||
|
|
run
|
||
|
|
up
|
||
|
|
down
|
||
|
|
run
|
||
|
|
cont
|
||
|
|
next
|
||
|
|
break main
|
||
|
|
break tclUnixNotfy.c:248
|
||
|
|
cont
|
||
|
|
quit
|
||
|
|
run -f T
|
||
|
|
up
|
||
|
|
run -f T
|
||
|
|
1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
||
|
|
run -f T
|
||
|
|
qqqqq
|
||
|
|
break STk_read_line
|
||
|
|
break apply_read_closure
|
||
|
|
run -f T
|
||
|
|
quit
|
||
|
|
run
|
||
|
|
run -f T
|
||
|
|
break STk_read_line
|
||
|
|
break apply_read_closure
|
||
|
|
run -f T
|
||
|
|
graph display port
|
||
|
|
next
|
||
|
|
step
|
||
|
|
next
|
||
|
|
step
|
||
|
|
next
|
||
|
|
run
|
||
|
|
all of the
|
||
|
|
517 * event sources to give them a chance to setup for the wait.
|
||
|
|
518 */
|
||
|
|
519
|
||
|
|
520 blockTimeSet = 0;
|
||
|
|
521 for (sourcePtr = tclFirstEventSourcePtr; sourcePtr != NULL;
|
||
|
|
522 sourcePtr = sourcePtr->nextPtr) {
|
||
|
|
523 (*sourcePtr->setupProc)(sourcePtr->clientData, flags);
|
||
|
|
524 }
|
||
|
|
525 if ((flags & TCL_DONT_WAIT) ||
|
||
|
|
526 ((flags & TCL_IDLE_EVENTS) && TclIdlePending())) {
|
||
|
|
527 /*
|
||
|
|
528 * Don't block: there are idle events waiting, or we don't
|
||
|
|
529 * care about idle events anyway, or the caller asked us not
|
||
|
|
530 * to block.
|
||
|
|
531 */
|
||
|
|
532
|
||
|
|
533 blockTime.sec = 0;
|
||
|
|
534 blockTime.usec = 0;
|
||
|
|
535 timePtr = &blockTime;
|
||
|
|
536 } else if (blockTimeSet) {
|
||
|
|
537 timePtr = &blockTime;
|
||
|
|
538 } else {
|
||
|
|
539 timePtr = NULL;
|
||
|
|
540 }
|
||
|
|
541
|
||
|
|
542 /*
|
||
|
|
543 * Wait until an event occurs or the timer expires.
|
||
|
|
544 */
|
||
|
|
545
|
||
|
|
546 if (Tcl_WaitForEvent(timePtr) == TCL_ERROR) {
|
||
|
|
547 return 0;
|
||
|
|
548 }
|
||
|
|
549
|
||
|
|
550 /*
|
||
|
|
551 * Give each of the event sources a chance to queue events,
|
||
|
|
552 * then call ServiceEvent and give it another chance to
|
||
|
|
553 * service events.
|
||
|
|
554 */
|
||
|
|
555
|
||
|
|
556 for (sourcePtr = tclFirstEventSourcePtr; sourcePtr != NULL;
|
||
|
|
557 sourcePtr = sourcePtr->nextPtr) {
|
||
|
|
558 (*sourcePtr->checkProc)(sourcePtr->clientData, flags);
|
||
|
|
559 }
|
||
|
|
un -f T
|
||
|
|
run -f T
|
||
|
|
next
|
||
|
|
step
|
||
|
|
next
|
||
|
|
cont
|
||
|
|
quit
|
||
|
|
run -f T < T.stk
|
||
|
|
up
|
||
|
|
quit
|
||
|
|
run
|
||
|
|
break finish_initialisation
|
||
|
|
run
|
||
|
|
next
|
||
|
|
break toplevel.c:201
|
||
|
|
run -f T < T.stk
|
||
|
|
cont
|
||
|
|
step
|
||
|
|
next
|
||
|
|
up
|
||
|
|
down
|
||
|
|
break io.c:74
|
||
|
|
run -f T < T.stk
|
||
|
|
disable 1
|
||
|
|
disable 2
|
||
|
|
quit
|
||
|
|
run
|
||
|
|
quit
|
||
|
|
break Tcl_DeleteInterp
|
||
|
|
run
|
||
|
|
bt
|
||
|
|
next
|
||
|
|
step
|
||
|
|
next
|
||
|
|
cont
|
||
|
|
next
|
||
|
|
n
|
||
|
|
s
|
||
|
|
step
|
||
|
|
next
|
||
|
|
quit
|
||
|
|
break main
|
||
|
|
break Tk_DestroyWindow
|
||
|
|
run
|
||
|
|
disable 1
|
||
|
|
cont
|
||
|
|
next
|
||
|
|
cont
|
||
|
|
next
|
||
|
|
cont
|
||
|
|
step
|
||
|
|
stepi
|
||
|
|
next
|
||
|
|
run
|
||
|
|
info line 'Tk_DestroyWindow'
|
||
|
|
break tkWindow.c:1145
|
||
|
|
cont
|
||
|
|
disable 2
|
||
|
|
cont
|
||
|
|
next
|
||
|
|
step
|
||
|
|
next
|
||
|
|
tbreak tclHash.c:190
|
||
|
|
cont
|
||
|
|
next
|
||
|
|
run
|
||
|
|
cont
|
||
|
|
quit
|
||
|
|
|