/usr/share/perl5/GraphViz/Parse/Yapp.pm is in libgraphviz-perl 2.16-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | package GraphViz::Parse::Yapp;
use strict;
use warnings;
use vars qw($VERSION);
use Carp;
use lib '../..';
use lib '..';
use GraphViz;
our $VERSION = '2.16';
=head1 NAME
GraphViz::Parse::Yapp - Visualise grammars
=head1 SYNOPSIS
use GraphViz::Parse::Yapp;
# Pass in a file generated via yapp -v
my $g = GraphViz::Parse::Yapp->new('Yapp.output');
print $g->as_png;
=head1 DESCRIPTION
This module makes it easy to visualise Parse::Yapp grammars.
Writing Parse::Yapp grammars is tricky at the best of times, and
grammars almost always evolve in ways unforseen at the start. This
module aims to visualise a grammar as a graph in order to make the
structure clear and aid in understanding the grammar.
Rules are represented as nodes, which have their name on the left of
the node and their productions on the right of the node. The subrules
present in the productions are represented by edges to the subrule
nodes.
Thus, every node (rule) should be connected to the graph - otherwise a
rule is not part of the grammar.
This uses the GraphViz module to draw the graph. Thanks to Damian
Conway for the original idea.
=head1 METHODS
=head2 new
This is the constructor. It takes one mandatory argument, which is a
filename of the output file generated by running "yapp -v " on the
grammar file. For example, if your Parse::Yapp grammar file is called
"calc.yp", you would run "yapp -v calc.yp" and pass in "calc.output"
as an argument here. A GraphViz object is returned.
# Pass in a file generated via yapp -v
my $graph = GraphViz::Parse::Yapp->new('Yapp.output');
print $g->as_png;
=cut
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $filename = shift;
return _init($filename);
}
=head2 as_*
The grammar can be visualised in a number of different graphical
formats. Methods include as_ps, as_hpgl, as_pcl, as_mif, as_pic,
as_gd, as_gd2, as_gif, as_jpeg, as_png, as_wbmp, as_ismap, as_imap,
as_vrml, as_vtx, as_mp, as_fig, as_svg. See the GraphViz documentation
for more information. The two most common methods are:
# Print out a PNG-format file
print $g->as_png;
# Print out a PostScript-format file
print $g->as_ps;
=cut
sub _init {
my $filename = shift;
my ( @links, %edges, %labels, %is_rule );
my $graph = GraphViz->new();
open( IN, $filename ) || carp("Couldn't read file $filename");
foreach my $line (<IN>) {
chomp $line;
next unless $line =~ /\w/;
next unless $line =~ s/^\d+:\s+//;
my ( $rule, $text ) = $line =~ /^(.+) -> (.+)$/;
$is_rule{$rule}++;
$text = "(empty)" if $text eq '/* empty */';
my $rule_label;
foreach my $item ( split ' ', $text ) {
$edges{$rule}{$item}++;
$rule_label .= $item . " ";
}
$rule_label .= '\n';
$labels{$rule} .= $rule_label;
}
foreach my $from ( keys %edges ) {
next unless $is_rule{$from};
foreach my $to ( keys %{ $edges{$from} } ) {
next unless $is_rule{$to};
$graph->add_edge( $from => $to );
}
}
foreach my $rule ( keys %labels ) {
$graph->add_node( $rule, label => [ $rule, $labels{$rule} ] );
}
close(IN);
return $graph;
}
=head1 AUTHOR
Leon Brocard E<lt>F<acme@astray.com>E<gt>
=head1 COPYRIGHT
Copyright (C) 2001, Leon Brocard
This module is free software; you can redistribute it or modify it
under the same terms as Perl itself.
=cut
1;
|