Graph::Flowchart::Node - A node in a Graph::Flowchart, representing a block/expression

Graph-Flowchart documentation Contained in the Graph-Flowchart distribution.

Index

Code Index:

NAME

Top

Graph::Flowchart::Node - A node in a Graph::Flowchart, representing a block/expression

SYNOPSIS

Top

	use Devel::Graph;

	my $graph = Devel::Graph->graph( '$a = 9 if $b == 1' );

	print $graph->as_ascii();

DESCRIPTION

Top

This module is used by Devel::Graph internally, there should be no need to use it directly.

EXPORT

Exports nothing on default but can export on request the following:

  N_START N_END N_BLOCK N_IF N_THEN N_ELSE N_JOINT N_END N_FOR N_BODY
  N_SUB
  N_CONTINUE N_GOTO N_RETURN N_BREAK N_NEXT N_LAST
  N_USE

METHODS

Top

new()

	my $node = Graph::Flowchart::Node->new( $text, $type, $label);
	my $node = Graph::Flowchart::Node->new( $text, $type);

Create a new node of the given $type with the $text as label. The optional $label is the label for goto.

For instance:

	LABEL: $a = 1;
	goto LABEL;

would be turned into:

	my $n1 = Graph::Flowchart::Node->new( "$a = 1;\n", N_BLOCK, 'LABEL'); 
	my $n2 = Graph::Flowchart::Node->new( "goto LABEL;\n", N_GOTO);

SEE ALSO

Top

Devel::Graph, <Graph::Easy>.

COPYRIGHT AND LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms of the GPL version 2. See the LICENSE file for information.

gpl

AUTHOR

Top

Copyright (C) 2004-2006 by Tels http://bloodgate.com

tels

Graph-Flowchart documentation Contained in the Graph-Flowchart distribution. 
#############################################################################
# A node in the graph (includes a type field)
#
# (c) by Tels 2004-2005.
#############################################################################

package Graph::Flowchart::Node;

@ISA = qw/Graph::Easy::Node Exporter/;
$VERSION = '0.06';

use Graph::Easy::Node;
use Exporter;

@EXPORT_OK = qw/
  N_START N_END N_BLOCK N_IF N_THEN N_ELSE N_JOINT N_END N_FOR N_BODY
  N_USE
  N_SUB
  N_CONTINUE N_GOTO N_BREAK N_RETURN N_NEXT N_LAST N_WHILE N_UNTIL
  /;

#############################################################################
#############################################################################

use strict;

use constant {
  N_START	=> 1,
  N_END		=> 2,
  N_BLOCK	=> 3,
  N_IF		=> 4,
  N_THEN	=> 5,
  N_ELSE	=> 6,
  N_JOINT	=> 7,
  N_FOR		=> 8,
  N_BODY	=> 9,
  N_CONTINUE	=> 10,
  N_GOTO	=> 11,
  N_RETURN	=> 12,
  N_BREAK	=> 13,
  N_NEXT	=> 14,
  N_LAST	=> 15,
  N_SUB		=> 16,
  N_USE		=> 17,
  N_WHILE	=> 18,
  N_UNTIL	=> 19,
  };

my $subclass = {
  N_START()	=> 'start',
  N_END()	=> 'end',
  N_BLOCK()	=> 'block',
  N_BODY()	=> 'block',
  N_CONTINUE()	=> 'block',
  N_THEN()	=> 'block',
  N_IF()	=> 'if',
  N_ELSE()	=> 'else',
  N_JOINT()	=> 'joint',
  N_FOR()	=> 'for',
  N_GOTO()	=> 'goto',
  N_RETURN()	=> 'return',
  N_NEXT()	=> 'next',
  N_BREAK()	=> 'break',
  N_LAST()	=> 'last',
  N_SUB()	=> 'sub',
  N_USE()	=> 'use',
  N_WHILE()	=> 'while',
  N_UNTIL()	=> 'until',
  };

#############################################################################
#############################################################################

sub new
  {
  my ($class, $label, $type, $labelname, $group) = @_;

  my $self = bless {}, $class;

  $type = N_START() unless defined $type;

  $self->{_type} = $type;
  $self->{_label} = $labelname if defined $labelname;
  $self->{id} = Graph::Easy::Base::_new_id();

  $label = '' unless defined $label;
  # convert newlines into '\n'
  $label =~ s/\n/\\n/g;

  $self->_init( { label => $label, name => $self->{id} } );

  $self->sub_class($subclass->{$type} || 'unknown');

  if (ref $group)
    {
    $group->add_node($self);
    }

  $self;
  }

sub _set_type
  {
  my $self = shift;

  $self->{_type} = shift;

  $self;
  }

1;
__END__