From 6175ca03be6d0d51359f9017123708987d0f5eb7 Mon Sep 17 00:00:00 2001
From: shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 15 Aug 2007 23:23:39 +0000
Subject: add tag v1_8_5_91

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_91@13046 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ruby_1_8_5/sample/list.rb | 80 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 ruby_1_8_5/sample/list.rb

(limited to 'ruby_1_8_5/sample/list.rb')

diff --git a/ruby_1_8_5/sample/list.rb b/ruby_1_8_5/sample/list.rb
new file mode 100644
index 0000000000..221f7edb16
--- /dev/null
+++ b/ruby_1_8_5/sample/list.rb
@@ -0,0 +1,80 @@
+# Linked list example
+class MyElem
+  # object initializer called from Class#new
+  def initialize(item)
+    # @variables are instance variable, no declaration needed
+    @data = item
+    @succ = nil
+  end
+
+  def data
+    @data
+  end
+
+  def succ
+    @succ
+  end
+
+  # the method invoked by ``obj.data = val''
+  def succ=(new)
+    @succ = new
+  end
+end
+
+class MyList
+  def add_to_list(obj)
+    elt = MyElem.new(obj)
+    if @head
+      @tail.succ = elt
+    else
+      @head = elt
+    end
+    @tail = elt
+  end
+
+  def each
+    elt = @head
+    while elt
+      yield elt
+      elt = elt.succ
+    end
+  end
+
+  # the method to convert object into string.
+  # redefining this will affect print.
+  def to_s
+    str = "<MyList:\n";
+    for elt in self
+      # short form of ``str = str + elt.data.to_s + "\n"''
+      str += elt.data.to_s + "\n"
+    end
+    str += ">"
+    str
+  end
+end
+
+class Point
+  def initialize(x, y)
+    @x = x; @y = y
+    self
+  end
+
+  def to_s
+    sprintf("%d@%d", @x, @y)
+  end
+end
+
+# global variable name starts with `$'.
+$list1 = MyList.new
+$list1.add_to_list(10)
+$list1.add_to_list(20)
+$list1.add_to_list(Point.new(2, 3))
+$list1.add_to_list(Point.new(4, 5))
+$list2 = MyList.new
+$list2.add_to_list(20)
+$list2.add_to_list(Point.new(4, 5))
+$list2.add_to_list($list1)
+
+# parenthesises around method arguments can be ommitted unless ambiguous.
+print "list1:\n", $list1, "\n"
+print "list2:\n", $list2, "\n"
-- 
cgit v1.2.3