#!/usr/bin/perl -w # Written by Antti-Juhani Kaijanaho for the GZigZag project use strict 'vars'; sub main { my @dirs = (); my $dn = ""; push @dirs, "."; DIRS : while ($#dirs >= 0) { $dn = pop @dirs; print STDERR "Finding files in `$dn'..."; open(ENTRIES, "<$dn/CVS/Entries") || next DIRS; while () { if (m|^(D?)/([^/]+)/([0-9]+(\.[0-9]+)*)?/[^/]*/[^/]*/.*$|) { my $dir = ($1 eq "D"); my $name = $2; if ($dir) { push @dirs, "$dn/$name"; } else { print "$dn/$name\n"; } } elsif (/^D$/) { # ignore } else { print STDERR "###$_###"; die "syntax error" } } close(ENTRIES); print STDERR "done.\n"; } } main();