tools/dev/pmctree.pl

   1 #! perl
   2 # Copyright (C) 2001-2007, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( lib );
   8 use Parrot::Pmc2c::PMC::PrintTree;
   9
  10 my ( %action, %options, @pmc_include_paths );
  11
  12 my @args = @ARGV;
  13
  14 my $self = Parrot::Pmc2c::PMC::PrintTree->new(
  15     {
  16         include => [ qw( src/pmc src/dynpmc ) ],
  17         opt     => {},
  18         args    => \@args,
  19         bin     => q{},
  20     }
  21 );
  22
  23 $self->print_tree();
  24 exit;
  25
  26 # Local Variables:
  27 #   mode: cperl
  28 #   cperl-indent-level: 4
  29 #   fill-column: 100
  30 # End:
  31 # vim: expandtab shiftwidth=4: