tools/sfdc/FuncTable.pl

   1
   2 ### Class FuncTable: Create a function table fragment #########################
   3
   4 BEGIN {
   5     package FuncTable;
   6
   7     sub new {
   8         my $proto  = shift;
   9         my %params = @_;
  10         my $class  = ref($proto) || $proto;
  11         my $self   = {};
  12         $self->{SFD} = $params{'sfd'};
  13         bless ($self, $class);
  14         return $self;
  15     }
  16
  17     sub header {
  18         my $self = shift;
  19         my $sfd  = $self->{SFD};
  20
  21         print "/* Automatically generated function table! Do not edit! */\n";
  22         print "\n";
  23     }
  24
  25     sub function {
  26         my $self      = shift;
  27         my %params    = @_;
  28         my $prototype = $params{'prototype'};
  29
  30         if ($prototype->{type} eq 'function' ||
  31             $prototype->{type} eq 'cfunction') {
  32             print "     $gateprefix$prototype->{funcname},\n";
  33         }
  34     }
  35
  36     sub footer {
  37         my $self = shift;
  38         my $sfd  = $self->{SFD};
  39
  40         print "\n";
  41     }
  42 }