extendr_api/wrapper/
promise.rs
1use super::*;
2
3#[derive(PartialEq, Clone)]
5pub struct Promise {
6 pub(crate) robj: Robj,
7}
8
9impl Promise {
10 #[cfg(feature = "non-api")]
21 pub fn from_parts(code: Robj, environment: Environment) -> Result<Self> {
22 single_threaded(|| unsafe {
23 let sexp = extendr_ffi::Rf_allocSExp(SEXPTYPE::PROMSXP);
24 let robj = Robj::from_sexp(sexp);
25 extendr_ffi::SET_PRCODE(sexp, code.get());
26 extendr_ffi::SET_PRENV(sexp, environment.robj.get());
27 extendr_ffi::SET_PRVALUE(sexp, extendr_ffi::R_UnboundValue);
28 Ok(Promise { robj })
29 })
30 }
31
32 #[cfg(feature = "non-api")]
33 pub fn code(&self) -> Robj {
35 unsafe {
36 let sexp = self.robj.get();
37 Robj::from_sexp(extendr_ffi::PRCODE(sexp))
38 }
39 }
40
41 #[cfg(feature = "non-api")]
42 pub fn environment(&self) -> Environment {
44 unsafe {
45 let sexp = self.robj.get();
46 Robj::from_sexp(extendr_ffi::PRENV(sexp))
47 .try_into()
48 .unwrap()
49 }
50 }
51
52 #[cfg(feature = "non-api")]
53 pub fn value(&self) -> Robj {
55 unsafe {
56 let sexp = self.robj.get();
57 Robj::from_sexp(extendr_ffi::PRVALUE(sexp))
58 }
59 }
60
61 #[cfg(feature = "non-api")]
62 pub fn seen(&self) -> i32 {
64 unsafe {
65 let sexp = self.robj.get();
66 extendr_ffi::PRSEEN(sexp)
67 }
68 }
69
70 #[cfg(feature = "non-api")]
71 pub fn eval(&self) -> Result<Robj> {
81 assert!(self.is_promise());
82 if !self.value().is_unbound_value() {
83 Ok(self.value())
84 } else {
85 self.robj.eval()
86 }
87 }
88}
89
90impl std::fmt::Debug for Promise {
91 fn fmt(&self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
92 let mut result = f.debug_struct("Promise");
93
94 #[cfg(feature = "non-api")]
95 {
96 let result = result.field("code", &self.code());
97 let result = result.field("environment", &self.environment());
98 }
99 result.finish()
100 }
101}