Changeset 5153

Timestamp:

03/21/08 19:13:45 (8 months ago)

Author:

khali

Message:

Strip trailing whitespace.
Coding-style fixes.

Files:

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

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

@@ -33 +33 @@
-#  -h, --help              display this usage summary
-#
- 
- 
- 
+
+
+
-# 1997,1999, Rev 1.2B
-#
@@ -232 +232 @@
- "Enuclia Semiconductor, Inc.", "Virtium Technology Inc.", "Solid State System Co., Ltd.", "Kian Tech LLC",
- "Artimi", "Power Quotient International", "Avago Technologies", "ADTechnology", "Sigma Designs",
- 
- 
- 
+
+
+
- "Coney Technology Co. Ltd.", "Spans Logic", "Neterion Inc.", "Qimonda",
- "New Japan Radio Co. Ltd.", "Velogix", "Montalvo Systems", "iVivity Inc.", "Walton Chaintech",
@@ -263 +263 @@
-        my $all_00 = 1;
-        my $all_ff = 1;
-
+
-        foreach my $b (@_) {
-                $all_00 = 0 unless $b == 0x00;
@@ -293 +293 @@
-
-        return ("Undefined", []) unless spd_written(@bytes);
-
+
-        while (defined($first = shift(@bytes)) && $first == 0x7F) {
-                $ai++;
@@ -427 +427 @@
-        my $k=0;
-        my $ii=0;
-
+
-        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
-        if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
-                 $k = $bytes->[5] * $bytes->[17];
-        }
-
-
- }
-else { 
+
+ 
+
+} else {
-                printl "INVALID SIZE", $bytes->[3] . "," . $bytes->[4] . "," .
-                                       $bytes->[5] . "," . $bytes->[17];
@@ -723 +723 @@
-        my $k=0;
-        my $ii=0;
-
+
-        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
-        if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
-                 $k = $bytes->[5] * $bytes->[17];
-        }
-
-
- }
-else { 
+
+ 
+
+} else {
-                printl "INVALID SIZE", $bytes->[3] . ", " . $bytes->[4] . ", " .
-                                       $bytes->[5] . ", " . $bytes->[17];
@@ -819 +819 @@
-        my $byte = shift;
-        my $ctime;
-
+
-        $ctime = $byte >> 4;
-        if (($byte & 0xf) <= 9) { $ctime += ($byte & 0xf) * 0.1; }
@@ -834 +834 @@
-        my $byte = shift;
-        my $atime;
-
+
-        $atime = ($byte >> 4) * 0.1 + ($byte & 0xf) * 0.01;
-
@@ -908 +908 @@
-        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
-        $k = (($bytes->[5] & 0x7) + 1) * $bytes->[17];
-
+
-        if($ii > 0 && $ii <= 12 && $k > 0) {
- 
+
-        } else {
-                printl "INVALID SIZE", $bytes->[3] . "," . $bytes->[4] . "," .
@@ -954 +954 @@
-        my $trp;
-        my $tras;
-
+
-        $trcd =($bytes->[29] >> 2)+(($bytes->[29] & 3)*0.25);
-        $trp =($bytes->[27] >> 2)+(($bytes->[27] & 3)*0.25);
@@ -1033 +1033 @@
-
-        $ii = ($bytes->[4] & 0x0f) + ($bytes->[4] >> 4) + ($bytes->[5] & 0x07) - 13;
-
+
-        if ($ii > 0 && $ii < 16) {
-                printl "Size", (1 << $ii) . " MB";
@@ -1051 +1051 @@
-
-        my $ii;
-
+
-        $ii = ($bytes->[3] & 0x0f) + ($bytes->[3] >> 4) + ($bytes->[5] & 0x07) - 13;
-
+
-        if ($ii > 0 && $ii < 16) {
-                printl "Size", (1 << $ii) . " MB";
@@ -1218 +1218 @@
-                        printl $l, 2**$bytes[1];
-                } elsif ($bytes[1] == 0) {
- 
+
-                } else { printl $l, "ERROR!"; }
-
@@ -1246 +1246 @@
-
-                @bytes = readspd64(64, $dimm_list[$i]);
-
+
-                $l = "Manufacturer";
-                # $extra is a reference to an array containing up to
@@ -1256 +1256 @@
-                $temp = manufacturer_data(@{$extra});
-                printl $l, $temp if defined $temp;
-
+
-                if (spd_written($bytes[8])) {
-                        # Try the location code as ASCII first, as earlier specifications
@@ -1266 +1266 @@
-                        printl $l, $temp;
-                }
-
+
-                $l = "Part Number";
-                $temp = part_number(@bytes[9..26]);
-                printl $l, $temp;
-
+
-                if (spd_written(@bytes[27..28])) {
-                        $l = "Revision Code";
@@ -1276 +1276 @@
-                        printl $l, $temp;
-                }
-
+
-                if (spd_written(@bytes[29..30])) {
-                        $l = "Manufacturing Date";
@@ -1295 +1295 @@
-                        printl $l, $temp;
-                }
-
+
-                if (spd_written(@bytes[31..34])) {
-                        $l = "Assembly Serial Number";
@@ -1309 +1309 @@
-                        decode_intel_spec_freq(\@bytes);
-                }
-
+
-                print "</table>\n" if $opt_html;
-        }