summaryrefslogtreecommitdiffstats
path: root/research/oop2.sh
blob: 88e06db76d7d9be80e6b7c704a17d5d1bcd709bf (plain)
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
# Color.esh

package Color

r=
g=
b=

new(string class, int r, int g, int b)
{
	local self=

	self=$[malloc]
	bless ${self} ${class}
	self->r="${r}"
	self->g="${g}"
	self->b="${b}"
}

delete(int self)
{
	unset self->r
	unset self->g
	unset self->b
	free ${self}
}

get_r(int self)
{
	retval=${self->r}
}

get_g(int self)
{
	retval=${self->g}
}

get_b(int self)
{
	retval=${self->b}
}

print(int self)
{
	printf '(%d, %d, %d)' ${self->r} ${self->g} ${self->b}
}

# main.esh

c=$[${Color::new} 255 0 0]
printf 'R: %d\n' "$[${c->get_r}]"
printf 'G: %d\n' "$[${c->get_g}]"
printf 'B: %d\n' "$[${c->get_b}]"
${c->print}