home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _7db90879bdd3fd7e0eb8122b2a4fad8c < prev    next >
Encoding:
Text File  |  2004-06-01  |  2.6 KB  |  98 lines
  1. package B::Terse;
  2.  
  3. our $VERSION = '1.02';
  4.  
  5. use strict;
  6. use B qw(class);
  7. use B::Asmdata qw(@specialsv_name);
  8. use B::Concise qw(concise_subref set_style_standard);
  9. use Carp;
  10.  
  11. sub terse {
  12.     my ($order, $subref) = @_;
  13.     set_style_standard("terse");
  14.     if ($order eq "exec") {
  15.     concise_subref('exec', $subref);
  16.     } else {
  17.     concise_subref('basic', $subref);
  18.     }
  19.  
  20. }
  21.  
  22. sub compile {
  23.     my @args = @_;
  24.     my $order = @args ? shift(@args) : "";
  25.     $order = "-exec" if $order eq "exec";
  26.     unshift @args, $order if $order ne "";
  27.     B::Concise::compile("-terse", @args);
  28. }
  29.  
  30. sub indent {
  31.     my $level = @_ ? shift : 0;
  32.     return "    " x $level;
  33. }
  34.  
  35. # Don't use this, at least on OPs in subroutines: it has no way of
  36. # getting to the pad, and will give wrong answers or crash.
  37. sub B::OP::terse {
  38.     carp "B::OP::terse is deprecated; use B::Concise instead";
  39.     B::Concise::b_terse(@_);
  40. }
  41.  
  42. sub B::SV::terse {
  43.     my($sv, $level) = (@_, 0);
  44.     my %info;
  45.     B::Concise::concise_sv($sv, \%info);
  46.     my $s = B::Concise::fmt_line(\%info, "#svclass~(?((#svaddr))?)~#svval", 0);
  47.     print indent($level), $s, "\n";
  48. }
  49.  
  50. sub B::NULL::terse {
  51.     my ($sv, $level) = @_;
  52.     print indent($level);
  53.     printf "%s (0x%lx)\n", class($sv), $$sv;
  54. }
  55.  
  56. sub B::SPECIAL::terse {
  57.     my ($sv, $level) = @_;
  58.     print indent($level);
  59.     printf "%s #%d %s\n", class($sv), $$sv, $specialsv_name[$$sv];
  60. }
  61.  
  62. 1;
  63.  
  64. __END__
  65.  
  66. =head1 NAME
  67.  
  68. B::Terse - Walk Perl syntax tree, printing terse info about ops
  69.  
  70. =head1 SYNOPSIS
  71.  
  72.     perl -MO=Terse[,OPTIONS] foo.pl
  73.  
  74. =head1 DESCRIPTION
  75.  
  76. This version of B::Terse is really just a wrapper that calls B::Concise
  77. with the B<-terse> option. It is provided for compatibility with old scripts
  78. (and habits) but using B::Concise directly is now recommended instead.
  79.  
  80. For compatiblilty with the old B::Terse, this module also adds a
  81. method named C<terse> to B::OP and B::SV objects. The B::SV method is
  82. largely compatible with the old one, though authors of new software
  83. might be advised to choose a more user-friendly output format. The
  84. B::OP C<terse> method, however, doesn't work well. Since B::Terse was
  85. first written, much more information in OPs has migrated to the
  86. scratchpad datastructure, but the C<terse> interface doesn't have any
  87. way of getting to the correct pad. As a kludge, the new version will
  88. always use the pad for the main program, but for OPs in subroutines
  89. this will give the wrong answer or crash.
  90.  
  91. =head1 AUTHOR
  92.  
  93. The original version of B::Terse was written by Malcolm Beattie,
  94. E<lt>mbeattie@sable.ox.ac.ukE<gt>. This wrapper was written by Stephen
  95. McCamant, E<lt>smcc@MIT.EDUE<gt>.
  96.  
  97. =cut
  98.