ruschm 0.2.0

Scheme(R7RS-small) interpretor/compiler rust implementation
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

use thiserror::Error;

use std::fmt;
use std::{error::Error, fmt::Debug, ops::Deref, ops::DerefMut};

use fmt::Display;

use crate::{interpreter::error::LogicError, parser::error::SyntaxError};

#[derive(Debug, Clone, Copy)]
pub struct Located<T> {
    pub data: T,
    pub location: Option<[u32; 2]>,
}

pub trait ToLocated {
    fn locate(self, location: Option<[u32; 2]>) -> Located<Self>
    where
        Self: Sized,
    {
        Located::<Self> {
            data: self,
            location,
        }
    }

    fn no_locate(self) -> Located<Self>
    where
        Self: Sized,
    {
        Located::<Self> {
            data: self,
            location: None,
        }
    }
}
impl<T> Located<T> {
    pub fn extract_data(self) -> T {
        self.data
    }
}

impl<T> From<T> for Located<T> {
    fn from(data: T) -> Self {
        Self {
            data,
            location: None,
        }
    }
}

impl<T: PartialEq> PartialEq for Located<T> {
    fn eq(&self, other: &Self) -> bool {
        self.data == other.data
    }
}

impl<T: Display> Display for Located<T> {
    fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
        self.data.fmt(f)
    }
}

impl<T> Deref for Located<T> {
    type Target = T;

    fn deref(&self) -> &Self::Target {
        &self.data
    }
}
impl<T> DerefMut for Located<T> {
    fn deref_mut(&mut self) -> &mut Self::Target {
        &mut self.data
    }
}
#[derive(PartialEq, Error, Clone)]
pub enum ErrorData {
    #[error("syntax error: {0}")]
    Syntax(#[from] SyntaxError),
    #[error(transparent)]
    Logic(#[from] LogicError),
    #[error("io error: {0}")]
    IO(String), // std::io::Error does not implement PartialEq and Clone, so use display message directly
}

pub type SchemeError = Located<ErrorData>;
impl From<std::io::Error> for SchemeError {
    fn from(io_error: std::io::Error) -> Self {
        ErrorData::IO(format!("{}", io_error)).no_locate()
    }
}

impl ToLocated for ErrorData {}

impl Debug for ErrorData {
    fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
        Display::fmt(&self, f)
    }
}

impl Error for SchemeError {
    fn source(&self) -> Option<&(dyn Error + 'static)> {
        Some(&self.data)
    }
}

#[cfg(test)]
pub(crate) fn convert_located<T>(datas: Vec<T>) -> Vec<Located<T>> {
    datas.into_iter().map(|d| Located::from(d)).collect()
}

macro_rules! error {
    ($arg:expr) => {
        Err(ErrorData::from($arg).no_locate());
    };
}

macro_rules! located_error {
    ($arg:expr, $loc:expr) => {
        Err(ErrorData::from($arg).locate($loc));
    };
}