pub(crate) unsafe fn show_cur_cmd_chr(cmd: Cmd, chr: i32) {
    diagnostic(false, || {
        t_print_nl!("{{");
        if cur_list.mode != shown_mode {
            print_mode(cur_list.mode);
            t_print!(": ");
            shown_mode = cur_list.mode
        }
        t_print!("{}", CmdChr(cmd, chr));
        if get_int_par(IntPar::tracing_ifs) > 0 && cmd >= Cmd::IfTest && cmd <= Cmd::FiOrElse {
            t_print!(": ");
            let mut n;
            let l;
            if cmd == Cmd::FiOrElse {
                t_print!("{} ", CmdChr(Cmd::IfTest, cur_if as i32));
                n = 0;
                l = if_line
            } else {
                n = 1;
                l = line
            }
            let mut popt = cond_ptr;
            while let Some(p) = popt {
                n += 1;
                popt = llist_link(p)
            }
            t_print!("(level {})", n);
            if l != 0 {
                t_print!(" entered on line {}", l);
            }
        }
        print_chr('}');
    });
}
/// Here is a procedure that displays the current command
Here is a procedure that displays the current command
Here is a procedure that displays the current command
pub(crate) unsafe fn show_cur_cmd_chr(cmd: Cmd, chr: i32) {
    diagnostic(false, || {
        t_print_nl!("{{");
        if cur_list.mode != shown_mode {
            print_mode(cur_list.mode);
            t_print!(": ");
            shown_mode = cur_list.mode
        }
        t_print!("{}", CmdChr(cmd, chr));
        if get_int_par(IntPar::tracing_ifs) > 0 && cmd >= Cmd::IfTest && cmd <= Cmd::FiOrElse {
            t_print!(": ");
            let mut n;
            let l;
            if cmd == Cmd::FiOrElse {
                t_print!("{} ", CmdChr(Cmd::IfTest, cur_if as i32));
                n = 0;
                l = if_line
            } else {
                n = 1;
                l = line
            }
            let mut popt = cond_ptr;
            while let Some(p) = popt {
                n += 1;
                popt = llist_link(p)
            }
            t_print!("(level {})", n);
            if l != 0 {
                t_print!(" entered on line {}", l);
            }
        }
        print_chr('}');
    });
}
pub ( crate ) unsafe fn show_cur_cmd_chr ( cmd : Cmd , chr : i32 ) { diagnostic ( false , | | { t_print_nl ! ( " " ) ; if cur_list . mode != shown_mode { print_mode ( cur_list . mode ) ; t_print ! ( " " ) ; shown_mode = cur_list . mode } t_print ! ( " " CmdChr ( cmd chr ) ) ; if get_int_par ( IntPar :: tracing_ifs ) > 0 && cmd >= Cmd :: IfTest && cmd <= Cmd :: FiOrElse { t_print ! ( " " ) ; let mut n ; let l ; if cmd == Cmd :: FiOrElse { t_print ! ( " " CmdChr ( Cmd IfTest cur_if as i32 ) ) ; n = 0 ; l = if_line } else { n = 1 ; l = line } let mut popt = cond_ptr ; while let Some ( p ) = popt { n += 1 ; popt = llist_link ( p ) } t_print ! ( " " n ) ; if l != 0 { t_print ! ( " " l ) ; } } print_chr ( '}' ) ; } ) ; }
Here is a procedure that displays the current command
Here is a procedure that displays the current command
cmd
Cmd
chr
i32