| #!/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"; | |
| } | |
| } |