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

//! # Standard `Error`s for the library
//!
//! A lot TODO

use std::io;

use clojure::rust::*;
// use clojure::lang::*;
use intertrait::*;

// use intertrait::cast::*;
use crate::*;
castable_to!(SObjError => [sync] IObject, ObjError);

pub type ObjResult<T> = std::result::Result<T, SObjError>;

#[derive(Debug)]
pub enum ErrorType {
    BadCast,
    NotFound,
    Arity,
    Error,
}

#[derive(Debug)]
/// Standard error for the library
pub struct SObjError {
    /// Error message with format
    msg: String,
    err: ErrorType,
}

/// `Protocol` ObjError
pub trait ObjError: CastFromSync {}

impl ObjError {}

impl ObjError for SObjError {}

impl From<io::Error> for SObjError {
    fn from(_: io::Error) -> Self {
        SObjError {
            msg: String::from("Error"),
            err: ErrorType::Error,
        }
    }
}

impl IObject for SObjError {
    fn getClass<'a>(&self) -> &'a SClass { todo!() }

    fn hashCode(&self) -> usize { todo!() }

    fn equals(
        &self,
        other: &Object,
    ) -> bool {
        todo!()
    }

    fn toString(&self) -> String { todo!() }
}

pub fn err<T>(msg: &str) -> ObjResult<T> {
    Err(SObjError {
        msg: String::from(msg),
        err: ErrorType::Error,
    })
}

pub fn err_cast<T>(
    from: &Object,
    to: &str,
) -> ObjResult<T> {
    Err(SObjError {
        msg: format!("Cannot cast {:?} to {:?}", from.toString(), to),
        err: ErrorType::BadCast,
    })
}

pub fn err_not_found<T>(
    what: &Object,
    into: &Object,
) -> ObjResult<T> {
    Err(SObjError {
        msg: format!(
            "Not found {:?} in {:?}",
            what.toString(),
            into.toString()
        ),
        err: ErrorType::NotFound,
    })
}

pub fn err_arity<T>(
    arity: usize,
    obj: &Object,
) -> ObjResult<T> {
    Err(SObjError {
        msg: format!("Bad Arity {:?} on {:?}", arity, obj.toString()),
        err: ErrorType::Arity,
    })
}

#[test]
fn error_test() {}