tools/sfdc/MacroAOS4.pl

   1
   2 ### Class MacroAOS4: Create a AOS4-style macro file ###########################
   3
   4 BEGIN {
   5     package MacroAOS4;
   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         my $sfd    = $self->{SFD};
  14         bless ($self, $class);
  15
  16         $self->{savetype} = '';
  17         $self->{CALLBASE} = "I$sfd->{BaseName}";
  18         return $self;
  19     }
  20
  21     sub function_start {
  22         my $self      = shift;
  23         my %params    = @_;
  24         my $prototype = $params{'prototype'};
  25         my $sfd       = $self->{SFD};
  26
  27         $self->{savetype} = $prototype->{type};
  28
  29         if ($prototype->{type} eq 'function'  ||
  30             $prototype->{type} eq 'cfunction' ||
  31             $prototype->{type} eq 'varargs') {
  32             printf "    (((struct $sfd->{BaseName}IFace *)(___base))->$prototype->{funcname})(";
  33             $prototype->{type} = 'cfunction';
  34         }
  35         else {
  36             $self->SUPER::function_start (@_);
  37         }
  38     }
  39
  40     sub function_end {
  41         my $self      = shift;
  42         my %params    = @_;
  43         my $prototype = $params{'prototype'};
  44         my $sfd       = $self->{SFD};
  45
  46         $prototype->{type} = $self->{savetype};
  47
  48         if ($prototype->{type} eq 'function'  ||
  49             $prototype->{type} eq 'cfunction' ||
  50             $prototype->{type} eq 'varargs') {
  51             print ")\n";
  52         }
  53         else {
  54             $self->SUPER::function_end (@_);
  55         }
  56     }
  57 }