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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
#[macro_export]
macro_rules! typefact {
(_) => {
$crate::analyser::types::TypeFact::default()
};
($arg:expr) => {{
let fact: $crate::analyser::types::TypeFact =
$crate::analyser::types::GenericFact::Only($arg);
fact
}};
}
#[macro_export]
macro_rules! shapefact {
() =>
($crate::analyser::types::ShapeFact::closed(tvec![]));
(..) =>
($crate::analyser::types::ShapeFact::open(tvec![]));
($($arg:tt),+; ..) =>
($crate::analyser::types::ShapeFact::open(tvec![$(dimfact!($arg)),+]));
($($arg:tt),+) =>
($crate::analyser::types::ShapeFact::closed(tvec![$(dimfact!($arg)),+]));
}
#[macro_export]
macro_rules! dimfact {
(_) => {
$crate::analyser::types::DimFact::default()
};
(S) => {
$crate::analyser::types::GenericFact::Only(TDim::s())
};
($arg:expr) => {
$crate::analyser::types::GenericFact::Only($arg.to_dim())
};
}
#[macro_export]
macro_rules! valuefact {
(_) => {
$crate::analyser::types::ValueFact::default()
};
($arg:expr) => {{
let fact: $crate::analyser::types::ValueFact =
$crate::analyser::types::GenericFact::Only($arg);
fact
}};
}
#[macro_export]
macro_rules! unwrap_or_none {
($e:expr) => {{
let e = $e;
if e.is_none() {
return Ok(None);
} else {
e.unwrap()
}
}};
}
#[cfg(tests)]
mod tests {
#[test]
fn shape_macro_closed_1() {
assert_eq!(shapefact![], ShapeFact::closed(tvec![]));
}
#[test]
fn shape_macro_closed_2() {
assert_eq!(
shapefact![1],
ShapeFact::closed(tvec![GenericFact::Only(1)])
);
}
#[test]
fn shape_macro_closed_3() {
assert_eq!(
shapefact![(1 + 1)],
ShapeFact::closed(vec![GenericFact::Only(2)])
);
}
#[test]
fn shape_macro_closed_4() {
assert_eq!(
shapefact![_, 2],
ShapeFact::closed(vec![GenericFact::Any, GenericFact::Only(2)])
);
}
#[test]
fn shape_macro_closed_5() {
assert_eq!(
shapefact![(1 + 1), _, 2],
ShapeFact::closed(vec![
GenericFact::Only(2),
GenericFact::Any,
GenericFact::Only(2),
])
);
}
#[test]
fn shape_macro_open_1() {
assert_eq!(shapefact![..], ShapeFact::open(tvec![]));
}
#[test]
fn shape_macro_open_2() {
assert_eq!(
shapefact![1; ..],
ShapeFact::open(vec![GenericFact::Only(1)])
);
}
#[test]
fn shape_macro_open_3() {
assert_eq!(
shapefact![(1 + 1); ..],
ShapeFact::open(vec![GenericFact::Only(2)])
);
}
#[test]
fn shape_macro_open_4() {
assert_eq!(
shapefact![_, 2; ..],
ShapeFact::open(vec![GenericFact::Any, GenericFact::Only(2)])
);
}
#[test]
fn shape_macro_open_5() {
assert_eq!(
shapefact![(1 + 1), _, 2; ..],
ShapeFact::open(tvec![
GenericFact::Only(2),
GenericFact::Any,
GenericFact::Only(2),
])
);
}
}