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