package/uboot-lantiq/gct

   1 #!/usr/bin/perl
   2
   3 #use strict;
   4 #use Cwd;
   5 #use Env;
   6
   7 my $aline;
   8 my $lineid;
   9 my $length;
  10 my $address;
  11 my @bytes;
  12 my $addstr;
  13 my $chsum=0;
  14 my $count=0;
  15 my $firstime=1;
  16 my $i;
  17 my $currentaddr;
  18 my $tmp;
  19 my $holder="";
  20 my $loadaddr;
  21
  22 if(@ARGV < 2){
  23         die("\n Syntax: ./program_SDRAM input1(memory setup) input2(*\.srec) output\n");
  24 }
  25
  26 open(INFILE1, "<$ARGV[0]") || die("\ninput1 open fail\n");
  27 open(INFILE2, "<$ARGV[1]") || die("\ninput2 open fail\n");
  28 open(OUTFILE, ">$ARGV[2]") || die("\nOutput file open fail\n");
  29
  30 $i=0;
  31 while ($line = <INFILE1>){
  32         if($line=~/\w/){
  33                 if($line!~/[;#\*]/){
  34                         if($i eq 0){
  35                                 printf OUTFILE ("33333333");
  36                         }
  37                         chomp($line);
  38                         $line=~s/\t//;
  39                         @array=split(/ +/,$line);
  40                         $j=0;
  41                         while(@array[$j]!~/\w/){
  42                                 $j=$j+1;
  43                         }
  44                         $addr=@array[$j];
  45                         $regval=@array[$j+1];
  46                         $addr=~s/0x//;
  47                         $regval=~s/0x//;
  48                         printf OUTFILE ("%08x%08x",hex($addr),hex($regval));
  49                         $i=$i+1;
  50                         if($i eq 8){
  51                                 $i=0;
  52                                 printf OUTFILE ("\n");
  53                         }
  54                 }
  55         }
  56 }
  57
  58 while($i lt 8 && $i gt 0){
  59         printf OUTFILE "00"x8;
  60         $i=$i+1;
  61 }
  62
  63 if($i eq 8){
  64         printf OUTFILE ("\n");
  65 }
  66
  67 while($aline=<INFILE2>){
  68         $aline=uc($aline);
  69         chomp($aline);
  70         next if(($aline=~/^S0/) || ($aline=~/^S7/));
  71         ($lineid, $length, $address, @bytes) = unpack"A2A2A8"."A2"x300, $aline;
  72         $length = hex($length);
  73         $address = hex($address);
  74         $length -=5;
  75         $i=0;
  76
  77         while($length>0){
  78                 if($firstime==1){
  79                         $addstr = sprintf("%x", $address);
  80                         $addstr = "0"x(8-length($addstr)).$addstr;
  81                         print OUTFILE $addstr;
  82                         addchsum($addstr);
  83                         $firstime=0;
  84                         $currentaddr=$address;
  85                         $loadaddr = $addstr;
  86                 }
  87                 else{
  88                         if($count==64){
  89                                 $addstr = sprintf("%x", $currentaddr);
  90                                 $addstr = "0"x(8-length($addstr)).$addstr;
  91                                 print OUTFILE $addstr;
  92                                 addchsum($addstr);
  93                                 $count=0;
  94                         }
  95                         #printf("*** %x != %x\n", $address, $currentaddr) if $address != $currentaddr;
  96                 }
  97                 if($currentaddr < $address) {
  98                         print OUTFILE "00";
  99                         addchsum("00");
 100                         $count++;
 101                         $currentaddr++;
 102                 }
 103                 else {
 104                         while($count<64){
 105                                 $bytes[$i]=~tr/ABCDEF/abcdef/;
 106                                 print OUTFILE "$bytes[$i]";
 107                                 addchsum($bytes[$i]);
 108                                 $i++;
 109                                 $count++;
 110                                 $currentaddr++;
 111                                 $length--;
 112                                 last if($length==0);
 113                         }
 114                 }
 115                 if($count==64){
 116                         print OUTFILE "\n";
 117                         #print OUTFILE "\r";
 118                 }
 119         }
 120 }
 121 if($count != 64){
 122         $tmp = "00";
 123         for($i=0;$i<(64-$count);$i++){
 124                 print OUTFILE "00";
 125                 addchsum($tmp);
 126         }
 127         print OUTFILE "\n";
 128         #print OUTFILE "\r";
 129 }
 130
 131
 132 print OUTFILE "11"x4;
 133 use integer;
 134 $chsum=$chsum & 0xffffffff;
 135 $chsum = sprintf("%X", $chsum);
 136 $chsum = "0"x(8-length($chsum)).$chsum;
 137 $chsum =~tr/ABCDEF/abcdef/;
 138 print OUTFILE $chsum;
 139 print OUTFILE "00"x60;
 140 print OUTFILE "\n";
 141 #print OUTFILE "\r";
 142
 143 print OUTFILE "99"x4;
 144 print OUTFILE $loadaddr;
 145 print OUTFILE "00"x60;
 146 print OUTFILE "\n";
 147 #print OUTFILE "\r";
 148
 149
 150 close OUTFILE;
 151 #END of Program
 152
 153
 154
 155 sub addchsum{
 156         my $cc=$_[0];
 157         $holder=$holder.$cc;
 158         if(length($holder)==8){
 159                 $holder = hex($holder);
 160                 $chsum+=$holder;
 161                 $holder="";
 162         }
 163 }
 164 #END
 165