tools/sfdc/MacroLP.pl

   1
   2 ### Class MacroLP: Create a LP-style macro file ###############################
   3
   4 BEGIN {
   5     package MacroLP;
   6     use vars qw(@ISA);
   7     @ISA = qw( Macro );
   8
   9     sub new {
  10         my $proto  = shift;
  11         my $class  = ref($proto) || $proto;
  12         my $self   = $class->SUPER::new( @_ );
  13         bless ($self, $class);
  14
  15         $self->{macros_h} = "inline/macros.h";
  16
  17         return $self;
  18     }
  19
  20     sub header {
  21         my $self = shift;
  22         my $sfd  = $self->{SFD};
  23
  24         $self->SUPER::header (@_);
  25
  26         print "#ifndef __INLINE_MACROS_H\n";
  27         print "#include <$self->{macros_h}>\n";
  28         print "#endif /* !__INLINE_MACROS_H */\n";
  29         print "\n";
  30
  31         if ($$sfd{'base'} ne '') {
  32             print "#ifndef $self->{BASE}\n";
  33             print "#define $self->{BASE} $$sfd{'base'}\n";
  34             print "#endif /* !$self->{BASE} */\n";
  35             print "\n";
  36         }
  37     }
  38
  39     sub function_start {
  40         my $self      = shift;
  41         my %params    = @_;
  42         my $prototype = $params{'prototype'};
  43         my $sfd       = $self->{SFD};
  44
  45         if ($$prototype{'type'} eq 'function') {
  46
  47             $self->{FUNCARGTYPE} = '';
  48             for my $argtype (@{$$prototype{'argtypes'}}) {
  49                 if ($argtype =~ /\(\*\)/) {
  50                     $self->{FUNCARGTYPE} = $argtype;
  51                     last;
  52                 }
  53             }
  54
  55             printf "    LP%d%s%s%s(0x%x, ", $$prototype{'numargs'},
  56             $prototype->{nr} ? "NR" : "",
  57             $prototype->{nb} ? "NB" : "",
  58             $self->{FUNCARGTYPE} ne '' ? "FP" : "",
  59             $$prototype{'bias'};
  60
  61             if (!$prototype->{nr}) {
  62                 print "$$prototype{'return'}, ";
  63             }
  64
  65             print "$$prototype{'funcname'}";
  66         }
  67         else {
  68             $self->SUPER::function_start (@_);
  69         }
  70     }
  71
  72     sub function_arg {
  73         my $self      = shift;
  74         my %params    = @_;
  75         my $prototype = $params{'prototype'};
  76         my $argtype   = $params{'argtype'};
  77         my $argname   = $params{'argname'};
  78         my $argreg    = $params{'argreg'};
  79         my $argnum    = $params{'argnum'};
  80         my $sfd       = $self->{SFD};
  81
  82         if ($$prototype{'type'} eq 'function') {
  83             if ($argtype =~ /\(\*\)/) {
  84                 print ", __fpt, $argname, $argreg";
  85             }
  86             else {
  87                 print ", $argtype, $argname, $argreg";
  88             }
  89         }
  90         else {
  91             $self->SUPER::function_arg (@_);
  92         }
  93     }
  94
  95     sub function_end {
  96         my $self      = shift;
  97         my %params    = @_;
  98         my $prototype = $params{'prototype'};
  99         my $sfd       = $self->{SFD};
 100
 101         if ($$prototype{'type'} eq 'function') {
 102             if (!$prototype->{nb}) {
 103                 print ", ,(___base)\\\n";
 104             }
 105
 106             if ($self->{FUNCARGTYPE} ne '') {
 107                 my $fa = $self->{FUNCARGTYPE};
 108
 109                 $fa =~ s/\(\*\)/(*__fpt)/;
 110
 111                 print ", $fa";
 112             }
 113
 114             print ")\n";
 115         }
 116         else {
 117             $self->SUPER::function_end (@_);
 118         }
 119     }
 120 }