Changeset 964

Timestamp:

12/24/07 22:09:47 (2 years ago)

Author:

vasi

Message:

bag printing

Files:

• gdb-mi/trunk/lib/gdb/mi/bag.rb (modified) (2 diffs)

gdb-mi/trunk/lib/gdb/mi/bag.rb

@@ -41 +41 @@
         
         def to_set; to_uniq(Set) { |u, x| !u.add?(x) }; end
+        
+        # Shamelessly stolen from Set's pretty_print
+        def pretty_print(pp)
+                pp.group(1, '#<Bag [', ']>') do
+                        pp.seplist(self) do |x|
+                                pp.pp x
+                        end
+                end
+        end
+        def inspect
+                '#<Bag [' + map { |x| x.inspect }.join(', ') + ']>'
+        end
 end
 
@@ -51 +63 @@
         def keys; map { |x| ikey(x) }; end
         def values; map { |x| ival(x) }; end
+        def each_pair; each { |k, v| yield(k, v) }; end
         
         def to_hash; to_uniq(Hash) { |h, (k, v)| (pr, h[k] = h[k], v)[0] }; end
+        # Shamelessly stolen from pp_hash
+        def pretty_print(pp)
+                pp.group(1, '#<MultiMap: {', '}>') do
+                        pp.seplist(self, nil, :each_pair) do |k, v|
+                                pp.group do
+                                        pp.pp k
+                                        pp.text '=>'
+                                        pp.group(1) do
+                                                pp.breakable ''
+                                                pp.pp v
+                                        end
+                                end
+                        end
+                end
+        end
+        def inspect
+                '#<MultiMap {' +
+                        map { |k, v| k.inspect + '=>' + v.inspect }.join(', ') + '}>'
+        end
 end