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