bin/kernel/kernelcvsignore

   1 #! /usr/bin/perl
   2 #
   3 # $Id$
   4 #
   5 # Generate .cvsignore files in the specified (or current) Linux kernel directory tree.
   6
   7
   8 use strict;
   9 use warnings;
  10
  11 BEGIN {
  12         my $macros_env="LACE_MACROS_DIR";
  13         my $macros_dir_default=$ENV{"HOME"}."/src/macros";
  14         unshift @INC,$_ for $ENV{$macros_env}||$macros_dir_default;
  15         eval "use AutoGen;1;" or die <<"HERE";
  16 $@
  17 Missing "Autogen.pm". Please download the directory 'macros':
  18         cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout macros
  19 and place it to '$macros_dir_default' or point \$ENV{"$macros_env"} variable there.
  20 HERE
  21 }
  22
  23 use File::Basename;     # &basename,&dirname
  24
  25
  26 require "".dirname($0)."/My-KernelIgnoreList.pm";
  27 # Prevent: Name ... used only once: possible typo
  28 1 if @My::KernelIgnoreList::list;
  29 my @cleanfiles=@My::KernelIgnoreList::list;
  30
  31 for my $cvsdir (@ARGV ? @ARGV : ".") {
  32         for my $dir (AutoGen::_cvsdirs($cvsdir)) {
  33                 my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;
  34                 AutoGen::_writefile $dir."/.cvsignore",map("$_\n",grep(!/^CVS$/,@cleanfilesfordir));
  35         }
  36 }