pr47 0.0.1

A semi-experimental programming language. Still working in progress.
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

use std::raw::TraitObject;
use std::mem::transmute;

pub trait Taggable {
    fn get_untagged(&self) -> Self where Self: Sized;

    fn get_tag_bit0(&self) -> bool;
    fn get_tag_bit1(&self) -> bool;
    fn get_tag_bit2(&self) -> bool;

    fn set_tag_bit0(&mut self);
    fn set_tag_bit1(&mut self);
    fn set_tag_bit2(&mut self);
}

impl<T> Taggable for *mut T {
    fn get_untagged(&self) -> Self {
        let self_usize: usize = unsafe { transmute(self) };
        ((self_usize >> 3) << 3) as *mut T
    }

    fn get_tag_bit0(&self) -> bool {
        let self_usize: usize = unsafe { transmute(self) };
        self_usize & 0b001 == 1
    }

    fn get_tag_bit1(&self) -> bool {
        let self_usize: usize = unsafe { transmute(self) };
        self_usize & 0b010 == 1
    }

    fn get_tag_bit2(&self) -> bool {
        let self_usize: usize = unsafe { transmute(self) };
        self_usize & 0b100 == 1
    }

    fn set_tag_bit0(&mut self) {
        let self_usize: usize = unsafe { transmute(self.clone()) };
        *self = (self_usize | 0b001) as *mut T;
    }

    fn set_tag_bit1(&mut self) {
        let self_usize: usize = unsafe { transmute(self.clone()) };
        *self = (self_usize | 0b010) as *mut T;
    }

    fn set_tag_bit2(&mut self) {
        let self_usize: usize = unsafe { transmute(self.clone()) };
        *self = (self_usize | 0b100) as *mut T;
    }
}

impl Taggable for TraitObject {
    fn get_untagged(&self) -> Self {
        TraitObject {
            data: self.data.get_untagged(),
            vtable: self.vtable
        }
    }

    fn get_tag_bit0(&self) -> bool {
        self.data.get_tag_bit0()
    }

    fn get_tag_bit1(&self) -> bool {
        self.data.get_tag_bit1()
    }

    fn get_tag_bit2(&self) -> bool {
        self.data.get_tag_bit2()
    }

    fn set_tag_bit0(&mut self) {
        self.data.set_tag_bit0();
    }

    fn set_tag_bit1(&mut self) {
        self.data.set_tag_bit1();
    }

    fn set_tag_bit2(&mut self) {
        self.data.set_tag_bit2();
    }
}