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

use savvy_ffi::SEXP;

use super::impl_common_sexp_ops;
use crate::Sexp;

/// An object SEXP (`OBJSXP`).
///
/// # Note
///
/// Historically, R's internals often refer to this as "S4", but the newer S7
/// OOP system is also built on top of `OBJSXP`. Therefore, this type can
/// represent both S4 and S7 objects.
pub struct ObjSexp(pub SEXP);

// implement inner(), len(), empty(), and name()
impl_common_sexp_ops!(ObjSexp);

impl TryFrom<Sexp> for ObjSexp {
    type Error = crate::error::Error;

    fn try_from(value: Sexp) -> crate::error::Result<Self> {
        value.assert_obj()?;
        Ok(Self(value.0))
    }
}

// Conversion into Sexp is infallible as it's just extracting the inner one.
impl From<ObjSexp> for Sexp {
    fn from(value: ObjSexp) -> Self {
        Self(value.0)
    }
}

impl From<ObjSexp> for crate::error::Result<Sexp> {
    fn from(value: ObjSexp) -> Self {
        Ok(<Sexp>::from(value))
    }
}

// Conversion into SEXP is infallible as it's just extracting the inner one.
impl From<ObjSexp> for SEXP {
    fn from(value: ObjSexp) -> Self {
        value.0
    }
}