langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Inheritance-Single/REBOL/inheritance-single.rebol
+++ b/Task/Inheritance-Single/REBOL/inheritance-single.rebol
@ -0,0 +1,28 @@
+REBOL [
+	Title: "Inheritance"
+	Author: oofoe
+	Date: 2009-12-08
+	URL: http://rosettacode.org/wiki/Inheritance
+]
+
+; REBOL provides subclassing through its prototype mechanism:
+
+Animal: make object! [
+	legs: 4
+]
+
+Dog: make Animal [
+	says: "Woof!"
+]
+Cat: make Animal [
+	says: "Meow..."
+]
+
+Lab: make Dog []
+Collie: make Dog []
+
+; Demonstrate inherited properties:
+
+print ["Cat has" Cat/legs "legs."]
+
+print ["Lab says:" Lab/says]