ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Graph/DFS.pm
(Generate patch)

Comparing COMP/SCRAM/src/Graph/DFS.pm (file contents):
Revision 1.1 by sashby, Tue Jul 20 12:02:52 2004 UTC vs.
Revision 1.2 by sashby, Fri Dec 10 13:41:40 2004 UTC

# Line 0 | Line 1
1 + package Graph::DFS;
2 + use strict;
3 + local $^W = 1;
4 + use Graph::Traversal;
5 + use vars qw(@ISA);
6 + @ISA = qw(Graph::Traversal);
7 +
8 + sub new
9 +   {
10 +   my $class = shift;
11 +   my $graph = shift;
12 +  
13 +   Graph::Traversal::new( $class,
14 +                          $graph,
15 +                          current =>
16 +                          sub { $_[0]->{ active_list }->[ -1 ] },
17 +                          finish  =>
18 +                          sub { pop @{ $_[0]->{ active_list } } },
19 +                          @_);
20 +   }
21 +
22 + 1;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines