1 package altera_avalon_lan91c111
;
3 require PTF
::SystemPTF
;
4 require PTF
::SystemPTF
::Module
;
5 use base
qw(BasicModule);
8 sub required_module_names
{
12 sub required_class_name
{
13 "altera_avalon_lan91c111"
18 my ($system, $required_module_name, $module_name) = @_;
19 $class->SUPER::translate
(@_);
21 my $module = $system->getModule ($module_name);
23 my $offset_keyword = "LAN91C111_REGISTERS_OFFSET";
24 my $offset = $module->getWSAConstant ($offset_keyword);
25 printf ("%-41s %30s\n", "#define $offset_keyword", $offset);
27 my $width_keyword = "LAN91C111_DATA_BUS_WIDTH";
28 my $width = $module->getWSAConstant ($width_keyword);
29 printf ("%-41s %30s\n", "#define $width_keyword", $width);
35 altera_avalon_lan91c111
->run2 (@_);