| #!/usr/bin/perl |
| |
| my $dtc_old = "/home/jdl/FSL/dtc/dtc-old"; |
| my $dtc_new = "/home/jdl/FSL/dtc/dtc-new"; |
| |
| my $basic_options = "-b 0 -f -I dts -O dtb"; |
| |
| my $linux_dts_dir = "/usr/src/linux-2.6/arch/powerpc/boot/dts"; |
| |
| # Yeah, sure, we could, like, readdir() this instead... |
| my @boards = ( |
| "bamboo", |
| "ebony", |
| "ep88xc", |
| "holly", |
| "kilauea", |
| "kuroboxHD", |
| "kuroboxHG", |
| "lite5200", |
| "lite5200b", |
| "mpc7448hpc2", |
| "mpc8272ads", |
| "mpc8313erdb", |
| "mpc832x_mds", |
| "mpc832x_rdb", |
| "mpc8349emitx", |
| "mpc8349emitxgp", |
| "mpc834x_mds", |
| "mpc836x_mds", |
| "mpc8540ads", |
| "mpc8541cds", |
| "mpc8544ds", |
| "mpc8548cds", |
| "mpc8555cds", |
| "mpc8560ads", |
| "mpc8568mds", |
| "mpc8572ds", |
| "mpc8610_hpcd", |
| "mpc8641_hpcn", |
| "mpc866ads", # Feh. Bad node references... |
| "mpc885ads", |
| "pq2fads", |
| "prpmc2800", |
| "ps3", |
| "sequoia", |
| "walnut", |
| ); |
| |
| foreach my $board (@boards) { |
| my $dts_file = "$linux_dts_dir/$board.dts"; |
| |
| my $old_dtb_file = "/tmp/$board.dtb.old"; |
| my $new_dtb_file = "/tmp/$board.dtb.new"; |
| |
| my $cmd_old = "$dtc_old $basic_options -o $old_dtb_file $dts_file"; |
| my $cmd_new = "$dtc_new $basic_options -o $new_dtb_file $dts_file"; |
| my $cmd_cmp = "cmp $old_dtb_file $new_dtb_file"; |
| |
| print "------------------------------------------------\n"; |
| print "OLD: $cmd_old\n"; |
| unlink($old_dtb_file) if (-f $old_dtb_file); |
| system("$cmd_old >& /dev/null"); |
| my $status = $?; |
| if ($status) { |
| print " FAILED to run old DTC on $board\n"; |
| } |
| |
| print "NEW: $cmd_new\n"; |
| unlink($new_dtb_file) if (-f $new_dtb_file); |
| system("$cmd_new >& /dev/null"); |
| $status = $?; |
| if ($status) { |
| print " FAILED to run new DTC on $board\n"; |
| } |
| |
| if (-f $old_dtb_file && -f $new_dtb_file) { |
| print "CMP: $cmd_cmp\n"; |
| system($cmd_cmp); |
| $status = $?; |
| if ($status) { |
| print " FAILED $board\n"; |
| } |
| } else { |
| printf " FAILED: Missing dtb file\n"; |
| } |
| } |