Как выполнить поиск по всему хранилищу CVS (все ветки / история / комментарии)? - PullRequest
3 голосов
/ 27 августа 2009

Если я хочу по существу выполнить grep для каждой строки в хранилище, есть ли способ сделать это? Я знаю, что это займет много времени для крупных проектов.

Если не все включено, хотя бы только текущая ветка и вся ее история исходников?

Редактировать: я должен был быть более явным. Что если у меня нет прямого доступа к серверу, на котором находится репозиторий CVS? Так что я не могу напрямую grep файловой системы, в которой находится репозиторий CVS.

Ответы [ 3 ]

1 голос
/ 28 августа 2009

Невозможно сделать это с помощью стандартных инструментов CVS без доступа к хранилищу. Это может сделать сторонний инструмент (я не знаю ни одного, хотя CS-CVS, похоже, претендует на ), но чтобы сделать это программно, вам придется делать журналы CVS на всех соответствующие файлы, а затем извлекать и искать каждую версию, сообщаемую cvs в журналах (cvs log - это опция командной строки в CVS, которая показывает историю изменений любого файла, но не показывает содержимое).

1 голос
/ 01 ноября 2012

Вот то, что я недавно использовал, в случае, когда у меня не было доступа к серверу. Казалось, это сработало в то время. Вызовите его из рабочей копии, используя cvs в PATH. Обратите внимание, что это не поиск сообщений коммита, но вы можете просто выполнить команду grep 'cvs log'.

#!/usr/bin/perl

# Searches CVS diffs and first revisions behind the current working
# directory for an expression (perlre syntax).

# Synopsis: cvsgrep [-n] <search-expression> [<file_1> ... <file_n>]

# -n means that contents of matching files should not be printed to stdout.

use Getopt::Std;

my %options=();
getopts("n",\%options);
my $no_content_dump=$options{"n"};

my $search_term=shift
    or die "Error: usage is: cvsgrep [-n] <search-expression>".
    " [<file_1> ... <file_n>]";

sub quote_fn
{
    my $fn=shift;
    $fn =~ s/\'/\'\"\'\"\'/g;
    "'".$fn."'";
}

my $args_str;
while(@ARGV)
{
    my $arg=shift;
    $args_str.=' ' if $args_str;
    $args_str.=&quote_fn($arg);
}

print 
    "Searching for term: $search_term",
    ($args_str?" in: $args_str":""),
    "\n";

open CVSLOGH,"cvs log -N $args_str|" or die "Cannot execute cvs log: $!";

my @files_revisions=();

my $cur_file;
my $cur_revision;

while(<CVSLOGH>)
{
    chop;
    if(/^Working file\:\s*(.*)$/)
    {
        $cur_file=$1;
        $cur_revision='';
    }
    elsif(/^revision\s+(.*)$/)
    {
        $cur_revision=$1;
    }
    elsif((/^\=\=\=\=/ || /^\-\-\-\-/) && $cur_revision)
    {
        push @files_revisions,{file=>$cur_file,rev=>$cur_revision};
    }
}

close CVSLOGH;

my $matchcount=0;
my $count=0;
my $progress_msg="Scanned %d out of %d commit(s)\r";
my $erase_ln=(" " x (length($progress_msg)+20)) . "\r";

foreach my $file_revision(@files_revisions)
{
    printf($progress_msg,$count++,scalar(@files_revisions));

    my($file,$rev) = ($file_revision->{file},$file_revision->{rev});

    $rev =~ /^(.*\.)([0-9]+)/;
    my $revbase=$1;
    my $revlastdigit=$2;
    my $rev1=$revbase.($revlastdigit - 1);
    my $diffcommand = "cvs diff -N -r $rev1 -r $rev ".&quote_fn($file);
    open CVSDIFFH,"$diffcommand|" or die "Cannot execute cvs diff: $!";

    my $diffresult;
    while(<CVSDIFFH>)
    {
        if(/^[\<\>]/)
        {
            s/^.//;
            $diffresult.=$_;
        }
    }
    close CVSDIFFH;

    if($diffresult =~ /$search_term/s)
    {
        print "${erase_ln}FOUND: in diff for $file $rev1:$rev\n";
        $matchcount++;
        system($diffcommand) unless $no_content_dump;
    }
}

print "${erase_ln}Done ($matchcount match(es)).\n";
0 голосов
/ 27 августа 2009

Это зависит от того, что вы ищете. Файлы версий CVS содержат все правки, которые когда-либо происходили с файлом, в виде открытого текста. Поэтому, если вы просто ищете все файлы, содержащие определенное слово, выполните рекурсивный grep в хранилище.

Если вы ищете конкретные версии, содержащие эти слова, то вам придется извлечь версии из хранилища, что дорого. Однако, если вы можете ограничить набор файлов, отключив хранилище, это не так уж и плохо.

...