| 1 |
wakaba |
1.1 |
=head1 NAME |
| 2 |
|
|
|
| 3 |
|
|
Regexp::Visualize::Simple - Regular expression visualization using Graph::Easy |
| 4 |
|
|
|
| 5 |
|
|
=head1 SYNOPSIS |
| 6 |
|
|
|
| 7 |
|
|
use Regexp::Visualize::Simple |
| 8 |
|
|
|
| 9 |
|
|
$parser = ... Regexp::Parser object ...; |
| 10 |
|
|
|
| 11 |
|
|
my $v = Regexp::Visualize::Simple->new; |
| 12 |
|
|
$v->push_regexp_node ($parser->root); |
| 13 |
|
|
|
| 14 |
|
|
while ($v->has_regexp_node) { |
| 15 |
|
|
my ($g, $index) = $v->next_graph; |
| 16 |
|
|
|
| 17 |
|
|
# $g is a Graph::Easy object |
| 18 |
|
|
print "$index:\n"; |
| 19 |
|
|
print $g->as_svg; |
| 20 |
|
|
} |
| 21 |
|
|
|
| 22 |
|
|
=head1 DESCRIPTION |
| 23 |
|
|
|
| 24 |
|
|
The C<Regexp::Visualize::Simple> generates a series of C<Graph::Easy> |
| 25 |
|
|
objects, which as a whole represents a regular expression parsed by |
| 26 |
|
|
C<Regexp::Parser>. Generated graphs can be exported to arbitrary |
| 27 |
|
|
image format, such as PNG and SVG, supported by C<Graph::Easy>. As an |
| 28 |
|
|
input any regular expression dialect supported by C<Regexp::Parser> or |
| 29 |
|
|
its subclasses can be used. |
| 30 |
|
|
|
| 31 |
|
|
It is sometimes impossible or undesired to represents a regular |
| 32 |
|
|
expression as one complete graph. For example, if a regular |
| 33 |
|
|
expression containing C<(?!...)> segment were represented as a graph, |
| 34 |
|
|
it would be difficult to understand. Therefore, the result |
| 35 |
|
|
visualization might sometimes be split into multiple graphs. This is |
| 36 |
|
|
why this module defines iterator methods C<has_regexp_node> and |
| 37 |
|
|
C<next_graph>. |
| 38 |
|
|
|
| 39 |
|
|
=head1 METHODS |
| 40 |
|
|
|
| 41 |
|
|
=over 4 |
| 42 |
|
|
|
| 43 |
|
|
=item I<$v> = Regexp::Visualize::Simple->new; |
| 44 |
|
|
|
| 45 |
|
|
Creates a new instance of the regular expression visualizer. |
| 46 |
|
|
|
| 47 |
|
|
=item I<$v>->push_regexp_node (I<$node>); |
| 48 |
|
|
|
| 49 |
|
|
Push a regular expression node that represents a subgraph to be |
| 50 |
|
|
visualized. |
| 51 |
|
|
|
| 52 |
|
|
=item I<$node> = I<$v>->shift_regexp_node (); |
| 53 |
|
|
|
| 54 |
|
|
Shifts a regular expression node from the queue hold by the visualizer |
| 55 |
|
|
object, if any, or returns C<undef>. |
| 56 |
|
|
|
| 57 |
|
|
=item I<$boolean> = I<$v>->has_regexp_node (); |
| 58 |
|
|
|
| 59 |
|
|
Returns whether the visualizer object contains one or more nodes in |
| 60 |
|
|
the queue of regular expression nodes to be graphized. |
| 61 |
|
|
|
| 62 |
|
|
=item (I<$g>, I<$index>) = I<$v>->next_graph (); |
| 63 |
|
|
|
| 64 |
|
|
Generates a graph from the first node in the queue o the regular |
| 65 |
|
|
expression node hold by the visualizer object. |
| 66 |
|
|
|
| 67 |
|
|
If there is no node to be graphized in the queue, then a list of two |
| 68 |
|
|
C<undef> values is returned. |
| 69 |
|
|
|
| 70 |
|
|
Otherwise, a list of the C<Graph::Easy> object generated from the |
| 71 |
|
|
regular expression node and the index number of the graph is returned. |
| 72 |
|
|
The first graph generated by the visualizer object has the index of |
| 73 |
|
|
zero (C<0>), and the next graph has one (C<1>). |
| 74 |
|
|
|
| 75 |
|
|
=back |
| 76 |
|
|
|
| 77 |
|
|
=head1 DEPENDENCY |
| 78 |
|
|
|
| 79 |
|
|
This module requires Perl 5.10.0 or later. |
| 80 |
|
|
|
| 81 |
|
|
This module depends on the C<Graph::Easy> module. |
| 82 |
|
|
|
| 83 |
|
|
This module assumes the input regular expression nodes implementing |
| 84 |
|
|
C<Regexp::Parser>-compatible interface. Such modules include |
| 85 |
|
|
C<Regexp::Parser::Perl58> and C<Regexp::Parser::JavaScript>. |
| 86 |
|
|
|
| 87 |
|
|
=head1 SEE ALSO |
| 88 |
|
|
|
| 89 |
|
|
The latest version of this module is available at |
| 90 |
|
|
L<http://suika.fam.cx/regexp/>. |
| 91 |
|
|
|
| 92 |
|
|
Regular expression visualizer |
| 93 |
|
|
L<http://suika.fam.cx/regexp/visualizer/input>. This is a Web |
| 94 |
|
|
interface for this module. Its source code is available at |
| 95 |
|
|
L<http://suika.fam.cx/regexp/visualizer/regexp.cgi,cvslog>. |
| 96 |
|
|
|
| 97 |
|
|
L<Regexp::Parser::Perl58> - A subclass of C<Regexp::Parser> supporting |
| 98 |
|
|
Perl 5.8 regular expression syntax. |
| 99 |
|
|
|
| 100 |
|
|
L<Regexp::Parser::JavaScript> - A subclass of C<Regexp::Parser> |
| 101 |
|
|
supporting JavaScript regular expression syntax. |
| 102 |
|
|
|
| 103 |
|
|
These two modules above are available at |
| 104 |
|
|
L<http://suika.fam.cx/regexp/>. |
| 105 |
|
|
|
| 106 |
|
|
L<Graph::Easy>. This module is available from CPAN. |
| 107 |
|
|
|
| 108 |
|
|
=head1 DEVELOPMENT |
| 109 |
|
|
|
| 110 |
|
|
CVS log: |
| 111 |
|
|
L<http://suika.fam.cx/regexp/lib/Regexp/Visualize/Simple.pm,cvslog>. |
| 112 |
|
|
|
| 113 |
|
|
Bug tracking system: L<http://manakai.g.hatena.ne.jp/task/7/>. |
| 114 |
|
|
|
| 115 |
|
|
=head2 TODO |
| 116 |
|
|
|
| 117 |
|
|
Localization / customization support. |
| 118 |
|
|
|
| 119 |
|
|
=head1 AUTHOR |
| 120 |
|
|
|
| 121 |
|
|
Wakaba <w@suika.fam.cx>. |
| 122 |
|
|
|
| 123 |
|
|
=head1 LICENSE |
| 124 |
|
|
|
| 125 |
|
|
Copyright 2008-2009 Wakaba <w@suika.fam.cx>. |
| 126 |
|
|
|
| 127 |
|
|
This library is free software; you can redistribute it and/or modify |
| 128 |
|
|
it under the same terms as Perl itself. |
| 129 |
|
|
|
| 130 |
|
|
=cut |
| 131 |
|
|
|
| 132 |
|
|
# $Date:$ |