WAIT/Document/Find.pm

#!/usr/bin/perl
#                              -*- Mode: Perl -*- 
# $Basename: Find.pm $
# $Revision: 1.4 $
# Author          : Ulrich Pfeifer
# Created On      : Mon Sep 16 19:04:37 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Wed Nov  5 16:50:40 1997
# Language        : CPerl
# Update Count    : 48
# Status          : Unknown, Use with caution!
# 
# (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.
# 
# 

package WAIT::Document::Find;
@ISA = qw(WAIT::Document::Base);
require WAIT::Document::Base;

use FileHandle;
use strict;
use Carp;

sub TIEHASH {
  my $type    = shift;
  my $pred    = shift;
  my @files   = @_;

  unless (ref($pred) =~ /CODE/) {
    croak "USAGE: tie %HASH, WAIT::Document::Find, coderef, file, ...";
  }
  my $self   = {
                Pred   => $pred,
                Files  => \@files
               };
  bless $self, ref($type) || $type;
}

sub FETCH {
  my $self = shift;
  my $path = shift;

  return undef unless defined $path;
  return undef unless -f $path;

  my $fh = new FileHandle "< $path";
  
  local($/) = undef;
  <$fh>;
}

sub FIRSTKEY {
  my $self = shift;
  $self->{Pending} = [@{$self->{Files}}];
  $self->NEXTKEY;
}

sub NEXTKEY {
  my $self = shift;
  return undef unless @{$self->{Pending}};
  my $next = pop @{$self->{Pending}};
  while ($next and -f $next) {
    if (&{$self->{Pred}}($next)) {
      return $next;
    }
    $next = pop @{$self->{Pending}};
  }
  if ($next and -d $next) {
    push @{$self->{Pending}}, _expand($next);
  }
  return $self->NEXTKEY;
}

sub _expand {
  my $dir = shift;
  my @result;
  return () unless -d $dir;
  opendir(DIR, $dir) or return ();
  @result = map "$dir/$_", grep $_ !~ /^\.\.?$/, readdir(DIR);
  closedir DIR;
  return @result;
}

sub close {
  my $self = shift;

  delete $self->{Pred};
  delete $self->{Pending};
  delete $self->{Files};        # no need at query time
}

1;
1	ulpfr	10	#!/usr/bin/perl
2			# -- Mode: Perl --
3			# $Basename: Find.pm $
4			# $Revision: 1.4 $
5			# Author : Ulrich Pfeifer
6			# Created On : Mon Sep 16 19:04:37 1996
7			# Last Modified By: Ulrich Pfeifer
8			# Last Modified On: Wed Nov 5 16:50:40 1997
9			# Language : CPerl
10			# Update Count : 48
11			# Status : Unknown, Use with caution!
12			#
13			# (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.
14			#
15			#
16
17			package WAIT::Document::Find;
18			@ISA = qw(WAIT::Document::Base);
19			require WAIT::Document::Base;
20
21			use FileHandle;
22			use strict;
23			use Carp;
24
25			sub TIEHASH {
26			my $type = shift;
27			my $pred = shift;
28			my @files = @_;
29
30			unless (ref($pred) =~ /CODE/) {
31			croak "USAGE: tie %HASH, WAIT::Document::Find, coderef, file, ...";
32			}
33			my $self = {
34			Pred => $pred,
35			Files => \@files
36			};
37			bless $self, ref($type) \|\| $type;
38			}
39
40			sub FETCH {
41			my $self = shift;
42			my $path = shift;
43
44			return undef unless defined $path;
45			return undef unless -f $path;
46
47			my $fh = new FileHandle "< $path";
48
49			local($/) = undef;
50			<$fh>;
51			}
52
53			sub FIRSTKEY {
54			my $self = shift;
55			$self->{Pending} = [@{$self->{Files}}];
56			$self->NEXTKEY;
57			}
58
59			sub NEXTKEY {
60			my $self = shift;
61			return undef unless @{$self->{Pending}};
62			my $next = pop @{$self->{Pending}};
63			while ($next and -f $next) {
64			if (&{$self->{Pred}}($next)) {
65			return $next;
66			}
67			$next = pop @{$self->{Pending}};
68			}
69			if ($next and -d $next) {
70			push @{$self->{Pending}}, _expand($next);
71			}
72			return $self->NEXTKEY;
73			}
74
75			sub _expand {
76			my $dir = shift;
77			my @result;
78			return () unless -d $dir;
79			opendir(DIR, $dir) or return ();
80			@result = map "$dir/$_", grep $_ !~ /^\.\.?$/, readdir(DIR);
81			closedir DIR;
82			return @result;
83			}
84
85			sub close {
86			my $self = shift;
87
88			delete $self->{Pred};
89			delete $self->{Pending};
90			delete $self->{Files}; # no need at query time
91			}
92
93			1;