sim_do_depth 377 src/simh/scp.c static int32 sim_do_depth = 0; sim_do_depth 2637 src/simh/scp.c snprintf (cbuf, sizeof (cbuf), "%s%s%s-%d", sim_do_filename[sim_do_depth], sim_do_depth 2638 src/simh/scp.c sim_do_label[sim_do_depth] ? "::" : "", sim_do_depth 2639 src/simh/scp.c sim_do_label[sim_do_depth] ? sim_do_label[sim_do_depth] : "", sim_do_depth 2640 src/simh/scp.c sim_goto_line[sim_do_depth]); sim_do_depth 2699 src/simh/scp.c ++sim_do_depth; sim_do_depth 2701 src/simh/scp.c sim_on_check[sim_do_depth] = sim_on_check[sim_do_depth-1]; /* inherit On mode */ sim_do_depth 2703 src/simh/scp.c if (sim_on_actions[sim_do_depth-1][i]) { sim_do_depth 2704 src/simh/scp.c sim_on_actions[sim_do_depth][i] = (char *)malloc(1+strlen(sim_on_actions[sim_do_depth-1][i])); sim_do_depth 2705 src/simh/scp.c if (NULL == sim_on_actions[sim_do_depth][i]) { sim_do_depth 2707 src/simh/scp.c FREE(sim_on_actions[sim_do_depth][i]); sim_do_depth 2708 src/simh/scp.c sim_on_actions[sim_do_depth][i] = NULL; sim_do_depth 2710 src/simh/scp.c sim_on_check[sim_do_depth] = 0; sim_do_depth 2712 src/simh/scp.c --sim_do_depth; /* unwind nesting */ sim_do_depth 2716 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][i], sim_on_actions[sim_do_depth-1][i]); sim_do_depth 2722 src/simh/scp.c strcpy( sim_do_filename[sim_do_depth], do_arg[0]); /* stash away do file name for possible use by 'call' command */ sim_do_depth 2723 src/simh/scp.c sim_do_label[sim_do_depth] = label; /* stash away do label for possible use in messages */ sim_do_depth 2724 src/simh/scp.c sim_goto_line[sim_do_depth] = 0; sim_do_depth 2740 src/simh/scp.c sim_do_ocptr[sim_do_depth] = cptr = sim_brk_getact (cbuf, sizeof(cbuf)); /* get bkpt action */ sim_do_depth 2741 src/simh/scp.c if (!sim_do_ocptr[sim_do_depth]) { /* no pending action? */ sim_do_depth 2742 src/simh/scp.c sim_do_ocptr[sim_do_depth] = cptr = read_line (cbuf, sizeof(cbuf), fpin);/* get cmd line */ sim_do_depth 2743 src/simh/scp.c sim_goto_line[sim_do_depth] += 1; sim_do_depth 2764 src/simh/scp.c if (sim_do_depth >= MAX_DO_NEST_LVL) /* nest too deep? */ sim_do_depth 2767 src/simh/scp.c stat = do_cmd (sim_do_depth+1, cptr); /* exec DO cmd */ sim_do_depth 2786 src/simh/scp.c staying = (sim_on_check[sim_do_depth] && /* if trap action defined */ sim_do_depth 2787 src/simh/scp.c sim_on_actions[sim_do_depth][stat]); /* use it, otherwise exit */ sim_do_depth 2803 src/simh/scp.c sim_printf("%s> %s\n", do_position(), sim_do_ocptr[sim_do_depth]); sim_do_depth 2808 src/simh/scp.c cmdp->message ((!echo && !sim_quiet) ? sim_do_ocptr[sim_do_depth] : NULL, stat); sim_do_depth 2816 src/simh/scp.c (sim_on_check[sim_do_depth]) && sim_do_depth 2819 src/simh/scp.c if ((stat <= SCPE_MAX_ERR) && sim_on_actions[sim_do_depth][stat]) sim_do_depth 2820 src/simh/scp.c sim_brk_setact (sim_on_actions[sim_do_depth][stat]); sim_do_depth 2822 src/simh/scp.c sim_brk_setact (sim_on_actions[sim_do_depth][0]); sim_do_depth 2839 src/simh/scp.c FREE (sim_on_actions[sim_do_depth][i]); sim_do_depth 2840 src/simh/scp.c sim_on_actions[sim_do_depth][i] = NULL; sim_do_depth 2842 src/simh/scp.c sim_on_check[sim_do_depth] = 0; /* clear on mode */ sim_do_depth 2845 src/simh/scp.c --sim_do_depth; /* unwind nesting */ sim_do_depth 3562 src/simh/scp.c int32 saved_goto_line = sim_goto_line[sim_do_depth]; sim_do_depth 3569 src/simh/scp.c sim_goto_line[sim_do_depth] = 0; /* reset line number */ sim_do_depth 3574 src/simh/scp.c sim_goto_line[sim_do_depth] += 1; /* record line number */ sim_do_depth 3590 src/simh/scp.c sim_goto_line[sim_do_depth] = saved_goto_line; /* restore start line number */ sim_do_depth 3634 src/simh/scp.c snprintf(cbuf, sizeof (cbuf), "%s %s", sim_do_filename[sim_do_depth], cptr); sim_do_depth 3654 src/simh/scp.c FREE(sim_on_actions[sim_do_depth][cond]); /* Clear existing condition */ sim_do_depth 3655 src/simh/scp.c sim_on_actions[sim_do_depth][cond] = NULL; } sim_do_depth 3657 src/simh/scp.c sim_on_actions[sim_do_depth][cond] = sim_do_depth 3658 src/simh/scp.c (char *)realloc(sim_on_actions[sim_do_depth][cond], 1+strlen(cptr)); sim_do_depth 3659 src/simh/scp.c if (!sim_on_actions[sim_do_depth][cond]) sim_do_depth 3671 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][cond], cptr); sim_do_depth 3705 src/simh/scp.c sim_on_check[sim_do_depth] = flag; sim_do_depth 3706 src/simh/scp.c if ((sim_do_depth != 0) && sim_do_depth 3707 src/simh/scp.c (NULL == sim_on_actions[sim_do_depth][0])) { /* default handler set? */ sim_do_depth 3708 src/simh/scp.c sim_on_actions[sim_do_depth][0] = /* No, so make "RETURN" */ sim_do_depth 3710 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][0], "RETURN"); sim_do_depth 3712 src/simh/scp.c if ((sim_do_depth != 0) && sim_do_depth 3713 src/simh/scp.c (NULL == sim_on_actions[sim_do_depth][SCPE_AFAIL])) {/* handler set for AFAIL? */ sim_do_depth 3714 src/simh/scp.c sim_on_actions[sim_do_depth][SCPE_AFAIL] = /* No, so make "RETURN" */ sim_do_depth 3716 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][SCPE_AFAIL], "RETURN"); sim_do_depth 5098 src/simh/scp.c for (lvl=sim_do_depth; lvl >= 0; --lvl) { sim_do_depth 8799 src/simh/scp.c if (sim_brk_act[sim_do_depth] == NULL) /* any action? */ sim_do_depth 8801 src/simh/scp.c while (sim_isspace (*sim_brk_act[sim_do_depth])) /* skip spaces */ sim_do_depth 8802 src/simh/scp.c sim_brk_act[sim_do_depth]++; sim_do_depth 8803 src/simh/scp.c if (*sim_brk_act[sim_do_depth] == 0) { /* now empty? */ sim_do_depth 8806 src/simh/scp.c if ((ep = strchr (sim_brk_act[sim_do_depth], ';'))) { /* cmd delimiter? */ sim_do_depth 8807 src/simh/scp.c lnt = ep - sim_brk_act[sim_do_depth]; /* cmd length */ sim_do_depth 8808 src/simh/scp.c memcpy (buf, sim_brk_act[sim_do_depth], lnt + 1); /* copy with ; */ sim_do_depth 8810 src/simh/scp.c sim_brk_act[sim_do_depth] += lnt + 1; /* adv ptr */ sim_do_depth 8813 src/simh/scp.c strncpy (buf, sim_brk_act[sim_do_depth], size); /* copy action */ sim_do_depth 8823 src/simh/scp.c FREE (sim_brk_act_buf[sim_do_depth]); sim_do_depth 8824 src/simh/scp.c return sim_brk_act[sim_do_depth] = sim_brk_act_buf[sim_do_depth] = NULL; sim_do_depth 8832 src/simh/scp.c sim_brk_act_buf[sim_do_depth] = (char *)realloc (sim_brk_act_buf[sim_do_depth], strlen (action) + 1); sim_do_depth 8833 src/simh/scp.c if (!sim_brk_act_buf[sim_do_depth]) sim_do_depth 8845 src/simh/scp.c strcpy (sim_brk_act_buf[sim_do_depth], action); sim_do_depth 8846 src/simh/scp.c sim_brk_act[sim_do_depth] = sim_brk_act_buf[sim_do_depth]; sim_do_depth 9718 src/simh/scp.c if (sim_do_ocptr[sim_do_depth]) { sim_do_depth 9720 src/simh/scp.c sim_printf("%s> %s\n", do_position(), sim_do_ocptr[sim_do_depth]); sim_do_depth 9723 src/simh/scp.c fprintf (sim_deb, "%s> %s\n", do_position(), sim_do_ocptr[sim_do_depth]);