arch/nios2nommu/scripts/hwselect.pl

   1 # This script generates arch/nios2nommu/hardware.mk based on user input
   2
   3 # usage:
   4 #
   5 #  [SOPC Builder]$ perl hwselect.pl <ptf file path> <target file path>
   6 #
   7
   8 use PTF::SystemPTF;
   9 use strict;
  10 use integer;
  11
  12 my $ptf_filename;
  13 my $target_filename;
  14 my $index;
  15 my $system;
  16
  17 #
  18 # Subroutine: Prompt user for an answer
  19 #
  20
  21 sub request_answer {
  22         my ($min, $max) = @_;
  23         my $answer;
  24
  25         do {
  26                 print "Selection: ";
  27                 $answer = <STDIN>;
  28                 if (! ($answer >= $min && $answer <= $max)) {
  29                         print "Invalid response, please try again.\n";
  30                 }
  31         } until $answer >= $min && $answer <= $max;
  32
  33         return $answer;
  34 }
  35
  36 #
  37 # Check for correct number of args
  38 #
  39
  40 if (scalar (@ARGV) != 2) {
  41         print STDERR "ERROR: Invalid number of parameters.\n";
  42         exit;
  43 } else {
  44         $ptf_filename = $ARGV[0];
  45         $target_filename = $ARGV[1];
  46 }
  47
  48 #
  49 # Check to see if the specified file exists
  50 #
  51
  52 if (! -e $ptf_filename) {
  53         print STDERR "ERROR: Could not open SYSTEM ptf file.\n";
  54         exit;
  55 }
  56
  57 #
  58 # startup the parser.
  59 #
  60 $system = SystemPTF->new (filename => $ptf_filename);
  61 if (!$system) {
  62         print STDERR "ERROR: Specified file is not a SYSTEM ptf file.\n";
  63         exit;
  64 }
  65
  66 #
  67 # Grab listing of Nios II processors and force user to select one:
  68 #
  69
  70 print "\n--- Please select which CPU you wish to build the kernel against:\n\n";
  71
  72 my @cpulist = $system->getCPUList ('altera_nios2');
  73 my %cpuinfo;
  74
  75 $index = 1;
  76 foreach my $cpu (@cpulist) {
  77         my $cpu_module = $system->getCPU ($cpu);
  78         if ($cpu_module->isEnabled ()) {
  79                 my $class = $cpu_module->getClass();
  80                 my $type = $cpu_module->getWSAAssignment('cpu_selection');
  81                 my $version = $cpu_module->getVersion();
  82
  83                 print "($index) $cpu - Class: $class Type: $type Version: $version\n";
  84         }
  85         $index += 1;
  86 }
  87
  88 print "\n";
  89
  90 my $cpu_selection = $cpulist[request_answer (1, $index - 1) - 1];
  91
  92 #
  93 # Grab list of memory devices that $cpu_selection is hooked up to:
  94 #
  95 my @modulelist = $system->getSlaveModules ($cpu_selection);
  96 my %cfiinfo;
  97 my %meminfo;
  98 foreach my $module_name (@modulelist) {
  99         my $module = $system->getModule ($module_name);
 100         my $class = $module->getClass ();
 101
 102         if ($module->isEnabled ()) {
 103                 if ($class eq 'altera_avalon_cfi_flash') {
 104                         $cfiinfo{$module_name}{class} = $class;
 105                         $cfiinfo{$module_name}{size} = $module->getSize();
 106                 }
 107
 108                 if ($module->isMemoryDevice()) {
 109                         $meminfo{$module_name}{class} = $class;
 110                         $meminfo{$module_name}{size} = $module->getSize();
 111                 }
 112         }
 113 }
 114
 115 #
 116 # Select an upload device:
 117 #
 118 print "\n--- Please select a device to upload the kernel to:\n\n";
 119
 120 $index = 1;
 121 foreach my $name (keys (%cfiinfo)) {
 122         my $size = hex ($cfiinfo{$name}{size});
 123         print "($index) $name\n\tClass: $cfiinfo{$name}{class}\n\tSize: $size bytes\n\n";
 124         $index += 1;
 125 }
 126
 127 my @cfilist = keys (%cfiinfo);
 128 my $cfi_selected = $cfilist[request_answer (1, $index - 1) - 1];
 129
 130 delete $meminfo{$cfi_selected};
 131
 132 #
 133 # Select program memory to execute kernel from:
 134 #
 135 print "\n--- Please select a device to execute kernel from:\n\n";
 136
 137 $index = 1;
 138 foreach my $name (keys (%meminfo)) {
 139         my $size = hex ($meminfo{$name}{size});
 140         print "($index) $name\n\tClass: $meminfo{$name}{class}\n\tSize: $size bytes\n\n";
 141         $index += 1;
 142 }
 143
 144 my @memlist = keys (%meminfo);
 145 my $mem_selected = $memlist[request_answer (1, $index - 1) - 1];
 146
 147 print "\n--- Summary using\n\n";
 148 print "PTF: $ptf_filename\n";
 149 print "CPU:                            $cpu_selection\n";
 150 print "Device to upload to:            $cfi_selected\n";
 151 print "Program memory to execute from: $mem_selected\n";
 152
 153 #
 154 # Write settings out to Makefile fragment
 155 #
 156 open (HWMK, ">$target_filename") ||
 157         die "Could not write to $target_filename";
 158
 159 print HWMK "SYSPTF = $ptf_filename\n";
 160 print HWMK "CPU = $cpu_selection\n";
 161 print HWMK "UPLMEM = $cfi_selected\n";
 162 print HWMK "EXEMEM = $mem_selected\n";
 163
 164 close (HWMK);
 165
 166 print "\n--- Settings written to $target_filename\n\n";