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

//! # Class module
//!
//! This defines the `Class` name of the object and its `Protocol`s

use std::sync::*;

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

use crate::*;
castable_to!(SClass => [sync] IObject, Class);

/// ## Clojure Class descriptor for Class :
/// ``` clojure
/// {
///     :name           usize
///     :protocols      #{ Protocol }
/// }
/// ```
pub struct SClass {
    /// `usize` -> classname
    id: usize,

    /// `ObjHashMap` of `usize` -> `Protocol`s
    protocols: Object,

    /// `ObjHashMap` of `usize` -> `Member`s
    members: Object,

    /// `ObjHashMap` of `usize` -> `Member`s
    methods: Object,
}

unsafe impl Send for SClass {}

unsafe impl Sync for SClass {}

impl SClass {
    fn new(
        id: usize,
        protocols: Object,
        members: Object,
        methods: Object,
    ) -> Object {
        new_obj!(SClass {
            id,
            protocols,
            members,
            methods,
        })
    }
}

/// `Class`: `Protocol` for `Object`s and `SClass`es
pub trait Class: IObject {
    /// Call `method` by id with `Object`s arguments
    fn call(
        &self,
        obj: Object,
        id: usize,
        args: &[Object],
    ) -> ObjResult<Object>;

    /// Call getter by id
    fn get(
        &self,
        obj: Object,
        id: usize,
    ) -> ObjResult<Object>;
}

impl Class for SClass {
    /// Call named `method` with `Object`s arguments
    fn call(
        &self,
        obj: Object,
        id: usize,
        args: &[Object],
    ) -> ObjResult<Object> {
        todo!()
    }

    fn get(
        &self,
        obj: Object,
        id: usize,
    ) -> ObjResult<Object> {
        todo!()
    }
}

impl IObject for SClass {
    /// Return `Class` of `Object`
    fn getClass<'a>(&self) -> &'a SClass { todo!() }

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

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

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