tin-lang 0.2.2

tin: a statically structurally typed embeddable programming language
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

use std::collections;

use specs::Component;
use specs::VecStorage;

#[derive(Component, Clone, Debug, Eq, PartialEq, VisitEntities)]
#[storage(VecStorage)]
pub enum Type {
    Boolean,
    Number(Number),
    String,
    Tuple(Tuple),
    Record(Record),
    Function(Function),
    Conflict(Conflict),
    Any,
}

#[derive(Clone, Copy, Debug, Eq, PartialEq, VisitEntities)]
pub enum ScalarClass {
    Boolean,
    Integral(IntegralScalarClass),
    Fractional,
    Complex,
    Undefined,
}

#[derive(Clone, Copy, Debug, Eq, PartialEq, VisitEntities)]
pub enum IntegralScalarClass {
    Unsigned,
    Signed,
    Any,
}

#[derive(Clone, Copy, Debug, Eq, PartialEq, VisitEntities)]
pub enum Number {
    U8,
    U16,
    U32,
    U64,
    I8,
    I16,
    I32,
    I64,
    F32,
    F64,
}

#[derive(Clone, Debug, Eq, PartialEq, VisitEntities)]
pub struct Tuple {
    pub fields: Vec<Type>,
}

#[derive(Clone, Debug, Eq, PartialEq, VisitEntities)]
pub struct Record {
    pub fields: collections::HashMap<String, Type>,
}

#[derive(Clone, Debug, Eq, PartialEq, VisitEntities)]
pub struct Function {
    pub parameters: Vec<Type>,
    pub result: Box<Type>,
}

#[derive(Clone, Debug, Eq, PartialEq, VisitEntities)]
pub struct Conflict {
    pub expected: ExpectedType,
    pub actual: Box<Type>,
}

#[derive(Clone, Debug, Eq, PartialEq, VisitEntities)]
pub enum ExpectedType {
    Specific(Box<Type>),
    ScalarClass(ScalarClass),
}

impl Type {
    pub fn scalar_class(&self) -> ScalarClass {
        match *self {
            Type::Boolean => ScalarClass::Boolean,
            Type::Number(ref n) => n.scalar_class(),
            Type::String => ScalarClass::Complex,
            Type::Tuple(_) => ScalarClass::Complex,
            Type::Record(_) => ScalarClass::Complex,
            Type::Function(_) => ScalarClass::Undefined,
            Type::Conflict(_) => ScalarClass::Undefined,
            Type::Any => ScalarClass::Undefined,
        }
    }
}

impl Number {
    pub fn scalar_class(&self) -> ScalarClass {
        match *self {
            Number::U8 => ScalarClass::Integral(IntegralScalarClass::Unsigned),
            Number::U16 => ScalarClass::Integral(IntegralScalarClass::Unsigned),
            Number::U32 => ScalarClass::Integral(IntegralScalarClass::Unsigned),
            Number::U64 => ScalarClass::Integral(IntegralScalarClass::Unsigned),
            Number::I8 => ScalarClass::Integral(IntegralScalarClass::Signed),
            Number::I16 => ScalarClass::Integral(IntegralScalarClass::Signed),
            Number::I32 => ScalarClass::Integral(IntegralScalarClass::Signed),
            Number::I64 => ScalarClass::Integral(IntegralScalarClass::Signed),
            Number::F32 => ScalarClass::Fractional,
            Number::F64 => ScalarClass::Fractional,
        }
    }
}