arch/nios2nommu/scripts/PTF/SystemPTF/Module.pm

   1 package Module;
   2
   3 use PTF::PTFSection;
   4
   5 sub new {
   6     my $invocant = shift;
   7     my $class = ref($invocant) || $invocant;
   8     my $self = {
   9         @_,
  10     };
  11
  12     # if no ptf section was passed in, then return undef
  13     $self->{ptf} or return;
  14
  15     bless ($self, $class);
  16     return $self;
  17 }
  18
  19 sub getClass {
  20         my ($self) = @_;
  21
  22         return $self->{ptf}->getAssignment ('class');
  23 }
  24
  25 sub getPorts {
  26         my ($self) = @_;
  27
  28         my @port_names;
  29
  30         my @ports = $self->{ptf}->getSections ('SLAVE');
  31         foreach $port (@ports) {
  32                 push @port_names, $port->name;
  33         }
  34
  35         return @port_names;
  36 }
  37
  38 sub getPort {
  39         my ($self, $port_name) = @_;
  40
  41         my $port;
  42
  43         if (! $port_name) {
  44                 # use first port found
  45                 my @port_names = $self->getPorts ();
  46                 $port = $self->{ptf}->getSection ('SLAVE', $port_names[0]);
  47         } else {
  48                 $port = $self->{ptf}->getSection ('SLAVE', $port_name);
  49                 if (! $port) {
  50                         # return undef if the PTF section doesn't exist
  51                         return;
  52                 }
  53         }
  54
  55         return $port;
  56 }
  57
  58 sub getWSAAssignment {
  59         my ($self, $assignment) = @_;
  60
  61         my $WSA = $self->{ptf}->getSection ('WIZARD_SCRIPT_ARGUMENTS', '');
  62         if (! $WSA) {
  63                 # return undef if the WSA section doesn't exist.
  64                 return;
  65         }
  66
  67         my $result = $WSA->getAssignment ($assignment);
  68
  69         return $result;
  70
  71 }
  72
  73 sub getWSAConstant {
  74         my ($self, $name) = @_;
  75
  76         my $WSA = $self->{ptf}->getSection ('WIZARD_SCRIPT_ARGUMENTS', '');
  77         if (! $WSA) {
  78                 # return undef if the WSA section doesn't exist.
  79                 return;
  80         }
  81
  82         my $constants = $WSA->getSection ('CONSTANTS', '');
  83         if (! $constants) {
  84                 # return undef if the CONSTANTS section doesn't exist.
  85                 return;
  86         }
  87
  88         my $constant = $constants->getSection ('CONSTANT', $name);
  89         if (! $constant) {
  90                 # return undef if the CONSTANT $name section doesn't exist.
  91                 return;
  92         }
  93
  94         my $result = $constant->getAssignment ('value');
  95         return $result;
  96
  97 }
  98
  99 sub isMemoryDevice {
 100         my ($self, $port_name) = @_;
 101
 102         my $port = $self->getPort ($port_name);
 103         if (! $port) {
 104                 # return undef if the PTF section doesn't exist
 105                 return;
 106         }
 107
 108         my $SBI = $port->getSection('SYSTEM_BUILDER_INFO', '');
 109         if (! $SBI) {
 110                 # return undef if the PTF section doesn't exist
 111                 return;
 112         }
 113
 114         my $result = $SBI->getAssignment('Is_Memory_Device');
 115
 116         return $result;
 117 }
 118
 119 sub isCustomInstruction {
 120         my ($self, $port_name) = @_;
 121
 122         my $port = $self->getPort ($port_name);
 123         if (! $port) {
 124                 # return undef if the PTF section doesn't exist
 125                 return;
 126         }
 127
 128         my $SBI = $port->getSection('SYSTEM_BUILDER_INFO', '');
 129         if (! $SBI) {
 130                 # return undef if the PTF section doesn't exist
 131                 return;
 132         }
 133
 134         my $result = $SBI->getAssignment('Is_Custom_Instruction');
 135
 136         return $result;
 137 }
 138
 139 sub getBaseAddress {
 140         my ($self, $port_name) = @_;
 141
 142         my $port = $self->getPort ($port_name);
 143         if (! $port) {
 144                 # return undef if the PTF section doesn't exist
 145                 return;
 146         }
 147
 148         my $SBI = $port->getSection('SYSTEM_BUILDER_INFO', '');
 149         if (! $SBI) {
 150                 # return undef if the PTF section doesn't exist
 151                 return;
 152         }
 153
 154         my $result = $SBI->getAssignment('Base_Address');
 155         if ($result eq 'N/A') {
 156                 return;
 157         }
 158         return $result;
 159 }
 160
 161 sub getSize {
 162         my ($self, $port_name) = @_;
 163
 164         my $port = $self->getPort ($port_name);
 165         $port or return;  #return undef if the ptf section doesn't exist
 166
 167         my $SBI = $port->getSection ('SYSTEM_BUILDER_INFO', '');
 168         my $data_width = $SBI->getAssignment ('Data_Width');
 169         my $addr_width = $SBI->getAssignment ('Address_Width');
 170
 171         if ($data_width == 8) {
 172                 $size = 1 << $addr_width;
 173         } elsif ($data_width == 16) {
 174                 $size = 1 << ($addr_width + 1);
 175         } elsif ($data_width == 32) {
 176                 $size = 1 << ($addr_width + 2);
 177         } elsif ($data_width == 64) {
 178                 $size = 1 << ($addr_width + 3);
 179         } elsif ($data_width == 128) {
 180                 $size = 1 << ($addr_width + 4);
 181         } else {
 182                 return;
 183         }
 184
 185         $size_text = sprintf ("%#010x", $size);
 186         return $size_text;
 187 }
 188
 189 sub getIRQ {
 190         my ($self, $port_name) = @_;
 191
 192         my $port = $self->getPort ($port_name);
 193         if (! $port) {
 194                 # return undef if the PTF section doesn't exist
 195                 return;
 196         }
 197
 198         my $SBI = $port->getSection('SYSTEM_BUILDER_INFO', '');
 199         if (! $SBI) {
 200                 # return undef if the PTF section doesn't exist
 201                 return;
 202         }
 203
 204         my $result = $SBI->getAssignment('Has_IRQ');
 205         if ($result ne "1") {
 206                 # this device has no associated IRQ
 207                 return;
 208         }
 209
 210         my @irq_masters = $SBI->getSections('IRQ_MASTER');
 211         return $irq_masters[0]->getAssignment('IRQ_Number');
 212 }
 213
 214 sub getMasters {
 215         my ($self, $type) = @_;
 216         my %masters = ();
 217
 218         # get list of all slave for device
 219         my @slaves = $self->{ptf}->getSections ('SLAVE');
 220
 221         # get list of masters of relevant type for all slaves
 222         foreach my $slave (@slaves) {
 223                 # get SBI for slave
 224                 my $SBI = $slave->getSection ('SYSTEM_BUILDER_INFO', '');
 225
 226                 # get list of all MASTERED_BY and IRQ_MASTER sections
 227                 my @mastered_bys = $SBI->getSections ('MASTERED_BY');
 228                 my @irq_masters = $SBI->getSections ('IRQ_MASTER');
 229
 230                 # start adding masters to the list
 231                 foreach my $master (@mastered_bys, @irq_masters) {
 232                         my $section_name = $master->name;
 233                         $section_name =~ /(.*)\/(.*)/;
 234                         my $master_name = $1;
 235                         my $master_type = $2;
 236
 237                         if (! $type) {
 238                                 $masters{$master_name} = ();
 239                         } else {
 240                                 if ($master_type eq $type) {
 241                                         $masters{$master_name} = ();
 242                                 }
 243                         }
 244
 245                 }
 246
 247         }
 248
 249         return keys (%masters);
 250 }
 251
 252 sub isEnabled {
 253         my ($self) = @_;
 254
 255         $sbi = $self->{ptf}->getSection('SYSTEM_BUILDER_INFO', '');
 256         $sbi or return;
 257
 258         my $enabled = $sbi->getAssignment ('Is_Enabled');
 259         if ($enabled eq "1") {
 260                 return 1;
 261         } else {
 262                 return 0;
 263         }
 264 }
 265
 266 1;
 267