ferth 0.2.0

A safe, native-sized Forth. no_std compatible.
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

//! Forth double types, sized for the target system.

#[cfg(target_pointer_width = "64")]
type DoubleInner = u128;

#[cfg(target_pointer_width = "32")]
type DoubleInner = u64;

#[cfg(target_pointer_width = "64")]
type SignedDoubleInner = i128;

#[cfg(target_pointer_width = "32")]
type SignedDoubleInner = i64;

/// A signed double-cell value (*d*).
#[derive(Debug, Clone, Copy, Default, PartialEq, Eq, PartialOrd, Ord, Hash)]
#[repr(transparent)]
pub struct SignedDouble(pub SignedDoubleInner);

impl SignedDouble {
    pub const MAX: Self = Self(SignedDoubleInner::MAX);
}

/// A double-cell value (*ud*).
///
/// |Word size (bits)|Type|
/// |---|---|
/// |32|`u64`|
/// |64|`u128`|
#[derive(Debug, Clone, Copy, Default, PartialEq, Eq, PartialOrd, Ord, Hash)]
#[repr(transparent)]
pub struct Double(pub DoubleInner);

impl Double {
    pub const MAX: Self = Self(DoubleInner::MAX);
}

impl From<usize> for Double {
    #[inline]
    fn from(u: usize) -> Self {
        Self(u as DoubleInner)
    }
}

impl From<u32> for Double {
    #[inline]
    fn from(u: u32) -> Self {
        Self(u as DoubleInner)
    }
}

impl From<u64> for Double {
    #[inline]
    fn from(u: u64) -> Self {
        Self(u as DoubleInner)
    }
}

impl From<(usize, usize)> for Double {
    #[inline]
    fn from((lo, hi): (usize, usize)) -> Self {
        Self((hi as DoubleInner) << usize::BITS | lo as DoubleInner)
    }
}

impl From<Double> for (usize, usize) {
    #[inline]
    fn from(d: Double) -> Self {
        (d.0 as usize, (d.0 >> usize::BITS) as usize)
    }
}