Wed Sep 1 17:08:51 PDT 1999

(Mandrake)

still more bugs in ecvs.


SVN revision: 151
This commit is contained in:
Mandrake 1999-09-02 00:05:33 +00:00
parent 45374a39ee
commit 2ec4be384b
3 changed files with 72 additions and 5 deletions

View File

@ -1123,3 +1123,10 @@ Wed Sep 1 17:07:35 PDT 1999
(Mandrake)
trying this one more time (still working on ecvs)
-------------------------------------------------------------------------------
Wed Sep 1 17:08:51 PDT 1999
(Mandrake)
still more bugs in ecvs.

View File

@ -1,5 +1,6 @@
#!/usr/bin/perl
print "prepping files for cvs using indent.\n";
`indent -i3 -bl -bad -nbap -sob -ncdb -di20 -nbc -lp -nce -npcs -sc -ncs -l80 *.c *.h >& /dev/null`;
# username -> handle translations
@ -13,11 +14,9 @@ $indents{raster} = "indent -i3 -bl -bad -nbap -sob -ncdb -di20 -nbc -lp -nce -np
$indents{kimball} = "indent -bad -bap -bli0 -cli0 -ss -di20 -nbc -lp -i4 -ts4 -ncs -nce -npcs";
$indents{mike} = "indent -i2 -bl -bad -nbap -sob -ncdb -di20 -nbc -lp -nce -npcs -sc -ncs -l80";
if(($ARGV[0] == "commit") || ($ARGV[0] == "ci") || ($ARGV[0] == "com")) {
if(($ARGV[0] =~ /com/) || ($ARGV[0] =~ /ci/)) {
print "We're doing a commit, time to edit the logfile.\n";
$ARGV[0] .= " -F CommitLog";
open TS, ">timestamp.h";
print TS "#define E_CHECKOUT_DATE \"\$Date\$\"\n";
close TS;
open COMMITLOG, ">CommitLog";
print COMMITLOG `date`;
print COMMITLOG "($names{$ENV{USER}})\n";
@ -28,10 +27,69 @@ if(($ARGV[0] == "commit") || ($ARGV[0] == "ci") || ($ARGV[0] == "com")) {
} else {
system("vi CommitLog");
}
open COMMITLOG, "CommitLog";
@lines = <COMMITLOG>;
close COMMITLOG;
if($#lines < 3) {
unlink "CommitLog";
print "Obviously this was supposed to be an aborted commit.\n";
exit(0);
}
@ARGV2 = @ARGV;
$ARGV2[0] = "update";
print "Force updating ChangeLog and removing timestamp.h\n";
unlink "ChangeLog";
system("cvs -z3 update ChangeLog");
unlink "timestamp.h";
print "Updating the files you are committing.\n";
system("cvs -z3 @ARGV2 2|tee errors");
open ERRORS, "errors";
while(<ERRORS>) {
if(/conflicts during merge/) {
print "There's a conflict. Resolve and try again.\n";
unlink "errors" if(-f "errors");
exit(0);
}
}
close ERRORS;
unlink "errors" if(-f "errors");
print "Creating new timestamp.h\n";
open TS, ">timestamp.h";
print TS "#define E_CHECKOUT_DATE \"\$Date\$\"\n";
close TS;
print "Updating the ChangeLog with your entry\n";
open CHANGELOG, ">>ChangeLog";
print CHANGELOG "\n-------------------------------------------------------------------------------\n\n";
close CHANGELOG;
`cat CommitLog >> ChangeLog`;
if($#ARGV >= 1) {
$found = 0;
foreach(@ARGV) {
if(/ChangeLog$/) {
$found = 1;
}
}
push @ARGV, "ChangeLog" if(!$found);
$found = 0;
foreach(@ARGV) {
if(/timestamp\.h$/) {
$found = 1;
}
}
push @ARGV, "timestamp.h" if(!$found);
}
}
system("cvs -z3 @ARGV");
@ -41,3 +99,5 @@ unlink "CommitLog" if(-f "CommitLog");
if($indents{$ENV{USER}}) {
`$indents{$ENV{USER}} *.c *.h >& /dev/null`;
}
`rm -f *~`;

View File

@ -250,7 +250,7 @@ EShapeCombineRectangles(Display * d, Window win, int dest, int x, int y,
xid->num_rect = 0;
if (xid->rects)
XFree(xid->rects);
XShapeCombineRectangles(d, win, dest, x, y, rect, n_rects,
XShapeCombineRectangles(d, win, dest, x, y, rect, n_rects,
op, ordering);
xid->rects = XShapeGetRectangles(d, win, dest, &(xid->num_rect),
&(xid->ord));