sim_do_depth 448 src/simh/scp.c static int32 sim_do_depth = 0; sim_do_depth 2827 src/simh/scp.c (void)snprintf (cbuf, sizeof (cbuf), "%s%s%s-%d", sim_do_filename[sim_do_depth], sim_do_depth 2828 src/simh/scp.c sim_do_label[sim_do_depth] ? "::" : "", sim_do_depth 2829 src/simh/scp.c sim_do_label[sim_do_depth] ? sim_do_label[sim_do_depth] : "", sim_do_depth 2830 src/simh/scp.c sim_goto_line[sim_do_depth]); sim_do_depth 2889 src/simh/scp.c ++sim_do_depth; sim_do_depth 2891 src/simh/scp.c sim_on_check[sim_do_depth] = sim_on_check[sim_do_depth-1]; /* inherit On mode */ sim_do_depth 2893 src/simh/scp.c if (sim_on_actions[sim_do_depth-1][i]) { sim_do_depth 2894 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 2895 src/simh/scp.c if (NULL == sim_on_actions[sim_do_depth][i]) { sim_do_depth 2897 src/simh/scp.c FREE(sim_on_actions[sim_do_depth][i]); sim_do_depth 2898 src/simh/scp.c sim_on_actions[sim_do_depth][i] = NULL; sim_do_depth 2900 src/simh/scp.c sim_on_check[sim_do_depth] = 0; sim_do_depth 2902 src/simh/scp.c --sim_do_depth; /* unwind nesting */ sim_do_depth 2906 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][i], sim_on_actions[sim_do_depth-1][i]); sim_do_depth 2912 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 2913 src/simh/scp.c sim_do_label[sim_do_depth] = label; /* stash away do label for possible use in messages */ sim_do_depth 2914 src/simh/scp.c sim_goto_line[sim_do_depth] = 0; sim_do_depth 2930 src/simh/scp.c sim_do_ocptr[sim_do_depth] = cptr = sim_brk_getact (cbuf, sizeof(cbuf)); /* get bkpt action */ sim_do_depth 2931 src/simh/scp.c if (!sim_do_ocptr[sim_do_depth]) { /* no pending action? */ sim_do_depth 2932 src/simh/scp.c sim_do_ocptr[sim_do_depth] = cptr = read_line (cbuf, sizeof(cbuf), fpin);/* get cmd line */ sim_do_depth 2933 src/simh/scp.c sim_goto_line[sim_do_depth] += 1; sim_do_depth 2954 src/simh/scp.c if (sim_do_depth >= MAX_DO_NEST_LVL) /* nest too deep? */ sim_do_depth 2957 src/simh/scp.c stat = do_cmd (sim_do_depth+1, cptr); /* exec DO cmd */ sim_do_depth 2976 src/simh/scp.c staying = (sim_on_check[sim_do_depth] && /* if trap action defined */ sim_do_depth 2977 src/simh/scp.c sim_on_actions[sim_do_depth][stat]); /* use it, otherwise exit */ sim_do_depth 2993 src/simh/scp.c sim_printf("%s> %s\n", do_position(), sim_do_ocptr[sim_do_depth]); sim_do_depth 2998 src/simh/scp.c cmdp->message ((!echo && !sim_quiet) ? sim_do_ocptr[sim_do_depth] : NULL, stat); sim_do_depth 3006 src/simh/scp.c (sim_on_check[sim_do_depth]) && sim_do_depth 3009 src/simh/scp.c if ((stat <= SCPE_MAX_ERR) && sim_on_actions[sim_do_depth][stat]) sim_do_depth 3010 src/simh/scp.c sim_brk_setact (sim_on_actions[sim_do_depth][stat]); sim_do_depth 3012 src/simh/scp.c sim_brk_setact (sim_on_actions[sim_do_depth][0]); sim_do_depth 3029 src/simh/scp.c FREE (sim_on_actions[sim_do_depth][i]); sim_do_depth 3030 src/simh/scp.c sim_on_actions[sim_do_depth][i] = NULL; sim_do_depth 3032 src/simh/scp.c sim_on_check[sim_do_depth] = 0; /* clear on mode */ sim_do_depth 3035 src/simh/scp.c --sim_do_depth; /* unwind nesting */ sim_do_depth 3788 src/simh/scp.c int32 saved_goto_line = sim_goto_line[sim_do_depth]; sim_do_depth 3795 src/simh/scp.c sim_goto_line[sim_do_depth] = 0; /* reset line number */ sim_do_depth 3800 src/simh/scp.c sim_goto_line[sim_do_depth] += 1; /* record line number */ sim_do_depth 3816 src/simh/scp.c sim_goto_line[sim_do_depth] = saved_goto_line; /* restore start line number */ sim_do_depth 3860 src/simh/scp.c (void)snprintf(cbuf, sizeof (cbuf), "%s %s", sim_do_filename[sim_do_depth], cptr); sim_do_depth 3880 src/simh/scp.c FREE(sim_on_actions[sim_do_depth][cond]); /* Clear existing condition */ sim_do_depth 3881 src/simh/scp.c sim_on_actions[sim_do_depth][cond] = NULL; } sim_do_depth 3883 src/simh/scp.c sim_on_actions[sim_do_depth][cond] = sim_do_depth 3884 src/simh/scp.c (char *)realloc(sim_on_actions[sim_do_depth][cond], 1+strlen(cptr)); sim_do_depth 3885 src/simh/scp.c if (!sim_on_actions[sim_do_depth][cond]) sim_do_depth 3897 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][cond], cptr); sim_do_depth 3931 src/simh/scp.c sim_on_check[sim_do_depth] = flag; sim_do_depth 3932 src/simh/scp.c if ((sim_do_depth != 0) && sim_do_depth 3933 src/simh/scp.c (NULL == sim_on_actions[sim_do_depth][0])) { /* default handler set? */ sim_do_depth 3934 src/simh/scp.c sim_on_actions[sim_do_depth][0] = /* No, so make "RETURN" */ sim_do_depth 3936 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][0], "RETURN"); sim_do_depth 3938 src/simh/scp.c if ((sim_do_depth != 0) && sim_do_depth 3939 src/simh/scp.c (NULL == sim_on_actions[sim_do_depth][SCPE_AFAIL])) {/* handler set for AFAIL? */ sim_do_depth 3940 src/simh/scp.c sim_on_actions[sim_do_depth][SCPE_AFAIL] = /* No, so make "RETURN" */ sim_do_depth 3942 src/simh/scp.c strcpy(sim_on_actions[sim_do_depth][SCPE_AFAIL], "RETURN"); sim_do_depth 5644 src/simh/scp.c for (lvl=sim_do_depth; lvl >= 0; --lvl) { sim_do_depth 9373 src/simh/scp.c if (sim_brk_act[sim_do_depth] == NULL) /* any action? */ sim_do_depth 9375 src/simh/scp.c while (sim_isspace (*sim_brk_act[sim_do_depth])) /* skip spaces */ sim_do_depth 9376 src/simh/scp.c sim_brk_act[sim_do_depth]++; sim_do_depth 9377 src/simh/scp.c if (*sim_brk_act[sim_do_depth] == 0) { /* now empty? */ sim_do_depth 9380 src/simh/scp.c if ((ep = strchr (sim_brk_act[sim_do_depth], ';'))) { /* cmd delimiter? */ sim_do_depth 9381 src/simh/scp.c lnt = ep - sim_brk_act[sim_do_depth]; /* cmd length */ sim_do_depth 9382 src/simh/scp.c memcpy (buf, sim_brk_act[sim_do_depth], lnt + 1); /* copy with ; */ sim_do_depth 9384 src/simh/scp.c sim_brk_act[sim_do_depth] += lnt + 1; /* adv ptr */ sim_do_depth 9387 src/simh/scp.c strncpy (buf, sim_brk_act[sim_do_depth], size); /* copy action */ sim_do_depth 9397 src/simh/scp.c FREE (sim_brk_act_buf[sim_do_depth]); sim_do_depth 9398 src/simh/scp.c return sim_brk_act[sim_do_depth] = sim_brk_act_buf[sim_do_depth] = NULL; sim_do_depth 9406 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 9407 src/simh/scp.c if (!sim_brk_act_buf[sim_do_depth]) sim_do_depth 9419 src/simh/scp.c strcpy (sim_brk_act_buf[sim_do_depth], action); sim_do_depth 9420 src/simh/scp.c sim_brk_act[sim_do_depth] = sim_brk_act_buf[sim_do_depth]; sim_do_depth 10321 src/simh/scp.c if (sim_do_ocptr[sim_do_depth]) { sim_do_depth 10323 src/simh/scp.c sim_printf("%s> %s\n", do_position(), sim_do_ocptr[sim_do_depth]); sim_do_depth 10326 src/simh/scp.c (void)fprintf (sim_deb, "%s> %s\n", do_position(), sim_do_ocptr[sim_do_depth]);