tools/sfdc/MacroMOS.pl

   1
   2 ### Class MacroMOS: Implements MorphOS-only features for macro files ##########
   3
   4 BEGIN {
   5     package MacroMOS;
   6     use vars qw(@ISA);
   7     @ISA = qw (MacroLP);
   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} = "ppcinline/macros.h";
  16
  17         return $self;
  18     }
  19
  20     sub function_end {
  21         my $self      = shift;
  22         my %params    = @_;
  23         my $prototype = $params{'prototype'};
  24         my $sfd       = $self->{SFD};
  25
  26
  27         if ($$prototype{'type'} eq 'function') {
  28
  29             if (!$prototype->{nb}) {
  30                 print ",\\\n    , (___base)";
  31             }
  32
  33             if ($self->{FUNCARGTYPE} ne '') {
  34                 my $fa = $self->{FUNCARGTYPE};
  35
  36                 $fa =~ s/\(\*\)/(*__fpt)/;
  37
  38                 print ", $fa";
  39             }
  40
  41             print ", IF_CACHEFLUSHALL, NULL, 0, IF_CACHEFLUSHALL, NULL, 0)\n";
  42         }
  43         else {
  44             $self->SUPER::function_end (@_);
  45         }
  46     }
  47 }