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

   1 package altera_avalon_uart;
   2
   3 use base qw(BasicModule);
   4 use strict;
   5
   6 sub required_module_names {
   7         ("uart0", "uart1", "uart2", "uart3")
   8 }
   9
  10 sub required_class_name {
  11         "altera_avalon_uart";
  12 }
  13
  14 sub base_address_cast {
  15         "np_uart"
  16 }
  17
  18 sub print_prefix {
  19         my ($class, $system) = @_;
  20
  21         print "#ifndef __ASSEMBLY__\n";
  22         print "#include <asm/uart_struct.h>\n";
  23         print "#endif\n\n";
  24 }
  25
  26 sub translate {
  27         my $class = shift;
  28         my ($system, $required_module_name, $module_name) = @_;
  29
  30         $class->SUPER::translate (@_);
  31
  32         if (!defined ($altera_avalon_uart::default_uart)) {
  33                 print "/* The default uart is always the first one found in the PTF file */\n";
  34                 print "#define nasys_printf_uart na_$required_module_name\n\n";
  35                 $altera_avalon_uart::default_uart = $required_module_name;
  36         }
  37
  38 }
  39
  40 sub run {
  41         altera_avalon_uart->run2 (@_);
  42 }
  43
  44 1;