Catch up to the new genwrapper hook.

master
Amitai Schlair 2009-09-10 15:12:45 -04:00
parent 460b1a0deb
commit 8063bc3402
2 changed files with 8 additions and 17 deletions

View File

@ -8,7 +8,7 @@ use IkiWiki;
use File::chdir; use File::chdir;
sub import { sub import {
hook(type => "wrapperargcheck", id => "cvs", call => \&wrapperargcheck); hook(type => "genwrapper", id => "cvs", call => \&genwrapper);
hook(type => "checkconfig", id => "cvs", call => \&checkconfig); hook(type => "checkconfig", id => "cvs", call => \&checkconfig);
hook(type => "getsetup", id => "cvs", call => \&getsetup); hook(type => "getsetup", id => "cvs", call => \&getsetup);
hook(type => "rcs", id => "rcs_update", call => \&rcs_update); hook(type => "rcs", id => "rcs_update", call => \&rcs_update);
@ -23,13 +23,14 @@ sub import {
hook(type => "rcs", id => "rcs_getctime", call => \&rcs_getctime); hook(type => "rcs", id => "rcs_getctime", call => \&rcs_getctime);
} }
sub wrapperargcheck () { sub genwrapper () {
my $check_args=<<"EOF"; my $check_args=<<"EOF";
{
int j; int j;
for (j = 1; j < argc; j++) for (j = 1; j < argc; j++)
if (strstr(argv[j], "New directory") != NULL) if (strstr(argv[j], "New directory") != NULL)
return 0; exit(0);
return 1; }
EOF EOF
return $check_args; return $check_args;
} }

View File

@ -45,9 +45,6 @@ EOF
my @wrapper_hooks; my @wrapper_hooks;
run_hooks(genwrapper => sub { push @wrapper_hooks, shift->() }); run_hooks(genwrapper => sub { push @wrapper_hooks, shift->() });
my $check_args=" return 0;";
run_hooks(wrapperargcheck => sub { $check_args = shift->(); });
my $check_commit_hook=""; my $check_commit_hook="";
my $pre_exec=""; my $pre_exec="";
if ($config{post_commit}) { if ($config{post_commit}) {
@ -120,16 +117,9 @@ addenv(char *var, char *val) {
newenviron[i++]=s; newenviron[i++]=s;
} }
int checkargs(int argc, char **argv) {
$check_args
}
int main (int argc, char **argv) { int main (int argc, char **argv) {
char *s; char *s;
if (!checkargs(argc, argv))
exit(0);
$check_commit_hook $check_commit_hook
@wrapper_hooks @wrapper_hooks
$envsave $envsave