Changeset 5161

Timestamp:

03/24/08 17:16:15 (5 years ago)

Author:

khali

Message:

Cache the parsed hexdumps so that each dump file is only parsed once.

Files:

• i2c-tools/trunk/eeprom/decode-dimms.pl (modified) (3 diffs)

i2c-tools/trunk/eeprom/decode-dimms.pl

@@ -41 +41 @@
 use Fcntl qw(:DEFAULT :seek);
 use vars qw($opt_html $opt_bodyonly $opt_igncheck $use_sysfs $use_hexdump
-            @vendors %decode_callback $revision @dimm_list);
+            @vendors %decode_callback $revision @dimm_list %hexdump_cache);
 
 $revision = '$Revision$ ($Date$)';
@@ -1105 +1105 @@
         my $word = 0;
 
+        # Look in the cache first
+        return @{$hexdump_cache{$_[0]}} if exists $hexdump_cache{$_[0]};
+
         open F, '<', $_[0] or die "Unable to open: $_[0]";
         while (<F>) {
@@ -1139 +1142 @@
         $header and die "Unable to parse any data from hexdump '$_[0]'";
         $word and printc "Warning: Assuming big-endian order 16-bit hex dump";
+
+        # Cache the data for later use
+        $hexdump_cache{$_[0]} = \@bytes;
         return @bytes;
 }