displayr-rustr 0.2.0

Rust and R integration
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

//! R Memory Protection Functions
//!
//!

use ::rdll::*;

#[inline]
pub unsafe fn rustr_release_object(x: SEXP) -> SEXP {
    if x != R_NilValue {
        R_ReleaseObject(x);
    }
    x
}


#[inline]
pub unsafe fn rustr_preserve_object(x: SEXP) -> SEXP {
    if x != R_NilValue {
        R_PreserveObject(x);
    }
    x
}

#[inline]
pub unsafe fn rustr_replace_object(x: SEXP, y: SEXP) -> SEXP {
    if Rf_isNull(x) == Rboolean::TRUE {
        rustr_preserve_object(y);
    } else if Rf_isNull(y) == Rboolean::TRUE {
        rustr_release_object(x);
    } else if x != y {
        // if we are setting to the same SEXP as we already have, do nothing


        // the previous SEXP was not NULL, so release it
        rustr_release_object(x);

        // the new SEXP is not NULL, so preserve it
        rustr_preserve_object(y);


    }
    y
}

pub mod stackp;
pub mod indexp;
pub mod countp;