# HG changeset patch
# User kazz <kazz@cr.ie.u-ryukyu.ac.jp>
# Date 1327054538 -32400
# Node ID 7e99ae6e4c7d42e7a1027961fc474290dbb576bb
# Parent  ebd44d3e857865230b98904cc8cf3e4e26d478fb
add tree script

diff -r ebd44d3e8578 -r 7e99ae6e4c7d scripts/topology/treen.rb
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/topology/treen.rb	Fri Jan 20 19:15:38 2012 +0900
@@ -0,0 +1,47 @@
+def create_nodes(node_num)
+  (0..node_num - 1).map { |i|
+    i = "node" + i.to_s
+  }
+end
+
+def print_dot(connections)
+  puts "digraph test {"
+  connections.each { |connection|
+    print "\t"
+    print connection[0]
+    print " -> "
+    print connection[1]
+    print ' [label="' + connection[2] + '"]'
+    puts
+  }
+  puts "}"
+end
+
+node_num = ARGV[0].to_i
+child_num = ARGV[1].to_i
+nodes = create_nodes(node_num)
+connections = Array.new
+nodes.each_with_index { |node, i|
+  child1 = child_num * i + 1
+  if child1 >= node_num then
+    nodes[i] = "cli" + i.to_s
+  end
+}
+nodes.each_with_index { |node, i|
+  parent = (i - 1) / child_num;
+  child = Array.new
+  for n in 1..child_num
+    child[n] = child_num * i + n
+  end
+
+  if parent >= 0 then
+    connections << [nodes[i], nodes[parent], "parent"]
+  end
+  for n in 1..child_num
+    if child[n] < node_num then
+      connections << [nodes[i], nodes[child[n]], "child"+(n-1).to_s]
+    end
+  end
+}
+print_dot(connections)
+