arch/nios2nommu/scripts/nios2_system.h/altera_avalon_lan91c111.pm

   1 package altera_avalon_lan91c111;
   2
   3 require PTF::SystemPTF;
   4 require PTF::SystemPTF::Module;
   5 use base qw(BasicModule);
   6 use strict;
   7
   8 sub required_module_names {
   9         "enet"
  10 }
  11
  12 sub required_class_name {
  13         "altera_avalon_lan91c111"
  14 }
  15
  16 sub translate {
  17         my $class = shift;
  18         my ($system, $required_module_name, $module_name) = @_;
  19         $class->SUPER::translate (@_);
  20
  21         my $module = $system->getModule ($module_name);
  22
  23         my $offset_keyword = "LAN91C111_REGISTERS_OFFSET";
  24         my $offset = $module->getWSAConstant ($offset_keyword);
  25         printf ("%-41s %30s\n", "#define $offset_keyword", $offset);
  26
  27         my $width_keyword = "LAN91C111_DATA_BUS_WIDTH";
  28         my $width = $module->getWSAConstant ($width_keyword);
  29         printf ("%-41s %30s\n", "#define $width_keyword", $width);
  30
  31         print "\n";
  32 }
  33
  34 sub run {
  35         altera_avalon_lan91c111->run2 (@_);
  36 }
  37
  38 1;