#! /usr/bin/perl
#
# $Id$
#
# Generate .cvsignore files in the specified (or current) Linux kernel directory tree.


use strict;
use warnings;

BEGIN {
	my $macros_env="LACE_MACROS_DIR";
	my $macros_dir_default=$ENV{"HOME"}."/src/macros";
	unshift @INC,$_ for $ENV{$macros_env}||$macros_dir_default;
	eval "use AutoGen;1;" or die <<"HERE";
$@
Missing "Autogen.pm". Please download the directory 'macros':
	cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout macros
and place it to '$macros_dir_default' or point \$ENV{"$macros_env"} variable there.
HERE
}

use File::Basename;	# &basename,&dirname


require "".dirname($0)."/My-KernelIgnoreList.pm";
# Prevent: Name ... used only once: possible typo
1 if @My::KernelIgnoreList::list;
my @cleanfiles=@My::KernelIgnoreList::list;

for my $cvsdir (@ARGV ? @ARGV : ".") {
	for my $dir (AutoGen::_cvsdirs($cvsdir)) {
		my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;
		AutoGen::_writefile $dir."/.cvsignore",map("$_\n",grep(!/^CVS$/,@cleanfilesfordir));
	}
}