Show
Ignore:
Timestamp:
03/24/08 11:27:54 (5 years ago)
Author:
khali
Message:

More coding-style fixes.

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r5157 r5158  
    338338} 
    339339 
    340 sub printl ($$) # print a line w/ label and value 
     340sub printl($$) # print a line w/ label and value 
    341341{ 
    342342        my ($label, $value) = @_; 
    … …  
    356356} 
    357357 
    358 sub printl2 ($$) # print a line w/ label and value (outside a table) 
     358sub printl2($$) # print a line w/ label and value (outside a table) 
    359359{ 
    360360        my ($label, $value) = @_; 
    … …  
    370370} 
    371371 
    372 sub prints ($) # print seperator w/ given text 
     372sub prints($) # print seperator w/ given text 
    373373{ 
    374374        my ($label) = @_; 
    … …  
    383383} 
    384384 
    385 sub printh ($$) # print header w/ given text 
     385sub printh($$) # print header w/ given text 
    386386{ 
    387387        my ($header, $sub) = @_; 
    … …  
    400400} 
    401401 
    402 sub printc ($) # print comment 
     402sub printc($) # print comment 
    403403{ 
    404404        my ($comment) = @_; 
    … …  
    11041104# note that normal 'hexdump' format on a little-endian system byte-swaps 
    11051105# words, using hexdump -C is better. 
    1106 sub read_hexdump ($) 
     1106sub read_hexdump($) 
    11071107{ 
    11081108        my $addr = 0; 
    … …  
    11491149} 
    11501150 
    1151 sub readspd64 ($$) { # reads 64 bytes from SPD-EEPROM 
     1151sub readspd64($$) # reads 64 bytes from SPD-EEPROM 
     1152{ 
    11521153        my ($offset, $dimm_i) = @_; 
    11531154        my @bytes; 
    … …  
    11751176 
    11761177for (@ARGV) { 
    1177     if (/^-?-h/) { 
     1178        if (/^-?-h/) { 
    11781179                print "Usage: $0 [-c] [-f [-b]] [-x file [files..]]\n", 
    11791180                        "       $0 -h\n\n", 
    … …  
    11931194EOF 
    11941195                exit; 
    1195     } 
    1196     $opt_html = 1 if (/^-?-f/); 
    1197     $opt_bodyonly = 1 if (/^-?-b/); 
    1198     $opt_igncheck = 1 if (/^-?-c/); 
    1199     $use_hexdump = 1 if (/^-x/); 
    1200     push @dimm_list, $_ if ($use_hexdump && !/^-/); 
     1196        } 
     1197        $opt_html = 1 if (/^-?-f/); 
     1198        $opt_bodyonly = 1 if (/^-?-b/); 
     1199        $opt_igncheck = 1 if (/^-?-c/); 
     1200        $use_hexdump = 1 if (/^-x/); 
     1201        push @dimm_list, $_ if ($use_hexdump && !/^-/); 
    12011202} 
    12021203$opt_body = $opt_html && ! $opt_bodyonly; 
    12031204 
    1204 if ($opt_body) 
    1205 { 
     1205if ($opt_body) { 
    12061206        print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">\n", 
    12071207              "<html><head>\n",