#!/usr/local/bin/perl

$pwd = `pwd`; chomp $pwd;
$TARGET = "$pwd/../psyc";

require 'find.pl';

$flags = '';
$flags = shift if $ARGV[0] =~ /^-/;
$verbose = $flags !~ /s/;

system("mkdir $TARGET 2>/dev/null");
$|=1;
&find('.');
print STDERR '=' x 78, "\n" if $verbose;
exit;


sub wanted {
	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
	 $atime,$mtime,$ctime,$blksize,$blocks)
		= lstat;

	if ( -d _ ) {
	}
	# return unless $blocks;			# skip symlinks

	if ($verbose) {
		$len = length $name;
		print STDERR $name, ' ', '=' x (77-$len), "\r" if $len < 77;
	}

	if ( /\.class$/ ) {
		system("mkdirhier $TARGET/$dir >/dev/null");
		rename($_, "$TARGET/$name") or die $!;
	}
}