From 2714cfb5211b28c1c2f4e57c3cb072ed4de15209 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Fri, 10 Feb 2017 02:34:23 -0500
Subject: research/oop3.sh: New file

---
diff --git a/research/oop3.sh b/research/oop3.sh
new file mode 100644
index 0000000..fe35d01
--- /dev/null
+++ b/research/oop3.sh
@@ -0,0 +1,74 @@
+# Color.esh
+
+# Functions in a namespace are never exported to other namespaces.
+namespace Color
+
+equal(a b)
+{
+	[ "x$[${a}->get_r]" = "x$[${b}->get_r]" ] && return 1
+	[ "x$[${a}->get_g]" = "x$[${b}->get_g]" ] && return 1
+	[ "x$[${a}->get_b]" = "x$[${b}->get_b]" ] && return 1
+	return 0
+}
+
+new(class r g b)
+{
+	self=(r=${r} g=${g} b=${b})
+	classify ${self} ${class}
+	return ${self}
+}
+
+get_r(self)
+{
+	return ${self[r]}
+}
+
+set_r(self r)
+{
+	self[r]=${r}
+}
+
+get_g(self)
+{
+	return ${self[g]}
+}
+
+set_g(self g)
+{
+	self[g]=${g}
+}
+
+get_b(self)
+{
+	return ${self[b]}
+}
+
+set_b(self b)
+{
+	self[b]=${b}
+}
+
+print(self)
+{
+	printf '(%d, %d, %d)' ${self[r]} ${self[g]} ${self[b]}
+}
+
+RED=$[Color->new 255 0 0]
+GREEN=$[Color->new 0 255 0]
+BLUE=$[Color->new 0 0 255]
+
+# 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
+printf '\n'
+
+${Color::RED}->print
+printf '\n'
+
+if Color::equal ${c} ${Color::RED}; then
+	printf '%s is red\n' "$[${c}->print]"
+fi
--
cgit v0.9.1