savvy 0.9.3

A simple R extension interface
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

type PanicHookInfo<'a> = std::panic::PanicHookInfo<'a>;

pub fn panic_hook(panic_info: &PanicHookInfo) {
    // Add indent
    let panic_info_indented = format!("{panic_info}")
        .lines()
        .map(|x| format!("{:indent$}{x}", "", indent = 4))
        .collect::<Vec<String>>()
        .join("\n");

    // Backtrace is available only when the debug info is available.
    #[cfg(debug_assertions)]
    let bt = get_backtrace();
    #[cfg(not(debug_assertions))]
    let bt = "    (Backtrace is not available on the release build)";

    crate::io::r_eprint(
        &format!(
            "panic occured!

Original message:
{panic_info_indented}

Backtrace:
{bt}
"
        ),
        true,
    );
}

// Since savvy generates many wrappers, the backtrace is boringly deep. Try
// cutting the uninteresting part.
#[cfg(debug_assertions)]
fn get_backtrace() -> String {
    let show_full = if let Ok(v) = std::env::var("RUST_BACKTRACE") {
        &v == "1"
    } else {
        false
    };

    // Forcibly captures a full backtrace regardless of RUST_BACKTRACE
    let bt = std::backtrace::Backtrace::force_capture().to_string();

    // try to shorten if the user doesn't require the full backtrace
    if !show_full {
        let bt_short = bt
            .lines()
            .skip_while(|line| !line.contains("std::panic::catch_unwind"))
            // C stacks are not visible from Rust's side and shown as `<unknown>`.
            .take_while(|line| !line.contains("<unknown>"))
            // Add indent
            .map(|x| format!("{:indent$}{x}", "", indent = 4))
            .collect::<Vec<String>>()
            .join("\n");

        if !bt_short.is_empty() {
            return format!(
                "    ...
{bt_short}
    ...

note: Run with `RUST_BACKTRACE=1` for a full backtrace.
"
            );
        }
    }

    // if the user require the full backtrace or the shortened backtrace became mistakenly empty string, show the full backtrace.
    bt.lines()
        .map(|x| format!("{:indent$}{x}", "", indent = 4))
        .collect::<Vec<String>>()
        .join("\n")
}