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
|
const tau: float = 2.0*3.14159265358979323;
type point = {x: float, y: float};
type size = {w: float, h: float};
enum shape {
circle(point, float),
rectangle(point, size)
}
fn compute_area(shape: &shape) -> float {
match *shape {
circle(_, radius) => 0.5 * tau * radius * radius,
rectangle(_, ref size) => size.w * size.h
}
}
impl shape {
// self is in the implicit self region
fn select<T>(&self, threshold: float,
a: &r/T, b: &r/T) -> &r/T {
if compute_area(self) > threshold {a} else {b}
}
}
fn select_based_on_unit_circle<T>(
threshold: float, a: &r/T, b: &r/T) -> &r/T {
let shape = &circle({x: 0.0, y: 0.0}, 1.0);
shape.select(threshold, a, b)
}
struct thing {
x: {mut a: @int}
}
fn thing(x: {mut a: @int}) -> thing {
thing {
x: copy x
}
}
impl thing {
fn foo(@self) -> int { *self.x.a }
fn bar(~self) -> int { *self.x.a }
fn quux(&self) -> int { *self.x.a }
fn baz(&self) -> &self/{mut a: @int} { &self.x }
fn spam(self) -> int { *self.x.a }
}
trait Nus { fn f(&self); }
impl thing: Nus { fn f(&self) {} }
fn main() {
let x = @thing({mut a: @10});
assert x.foo() == 10;
assert x.quux() == 10;
let y = ~thing({mut a: @10});
assert y.bar() == 10;
assert y.quux() == 10;
let z = thing({mut a: @11});
assert z.spam() == 11;
}
|
