ngrs 0.1.3

A New Rust bindings for GNU Guile Scheme
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

// SPDX-License-Identifier: MIT OR Apache-2.0
// SPDX-FileCopyrightText: 2024 MinkieYume <minkieyume@yumieko.com>
use crate::raw;
use crate::SCM;
use std::ffi::c_int;

impl From<bool> for SCM {
    fn from(value: bool) -> SCM {
        unsafe {
            let scm = if value {
                raw::ngrs_from_bool(1 as c_int)
            } else {
                raw::ngrs_from_bool(0 as c_int)
            };
            SCM::new(scm)
        }
    }
}

impl TryFrom<SCM> for bool {
    type Error = String;
    
    fn try_from(scm: SCM) -> Result<Self, Self::Error> {
        if unsafe { raw::scm_is_bool(scm.0) } != 0 {
            Ok(unsafe { raw::scm_to_bool(scm.0) } != 0)
        } else {
            Err("Wrong Type: SCM is not bool.".to_string())
        }
    }
}