texlive[44138] Master/tlpkg/bin/update-commit-svn-list.pl: remove
commits+preining at tug.org
commits+preining at tug.org
Mon May 1 21:44:54 CEST 2017
Revision: 44138
http://tug.org/svn/texlive?view=revision&revision=44138
Author: preining
Date: 2017-05-01 21:44:54 +0200 (Mon, 01 May 2017)
Log Message:
-----------
remove dummy file
Removed Paths:
-------------
trunk/Master/tlpkg/bin/update-commit-svn-list.pl
Deleted: trunk/Master/tlpkg/bin/update-commit-svn-list.pl
===================================================================
--- trunk/Master/tlpkg/bin/update-commit-svn-list.pl 2017-05-01 19:44:08 UTC (rev 44137)
+++ trunk/Master/tlpkg/bin/update-commit-svn-list.pl 2017-05-01 19:44:54 UTC (rev 44138)
@@ -1,63 +0,0 @@
-#!/usr/bin/perl
-
-$^W = 1;
-
-use strict;
-
-if ($#ARGV < 1) {
- die("usage: $0 git-dir commit-rev-file");
-}
-
-my $svnroot = $ARGV[0];
-my $comrevfile = $ARGV[1];
-
-init_from_git($svnroot, $comrevfile);
-
-sub find_last_done_com {
- my $lastrev = "";
- my $comrevfile = shift;
- if (open (COMREV, "<$comrevfile")) {
- my $foo = <COMREV>;
- chomp($foo);
- ($lastrev, undef) = split(" ", $foo);
- close(COMREV);
- }
- return $lastrev;
-}
-
-sub init_from_git {
- my ($svnroot, $comrevfile) = @_;
-
- my $lastrev = find_last_done_com($comrevfile);
- printf STDERR "calling cd $svnroot; git --no-pager log --pretty=format:%%h $lastrev..HEAD\n";
- my @foo = `cd $svnroot; git --no-pager log --pretty=format:%h $lastrev..HEAD`;
- chomp(@foo);
- my $retval = $?;
- if ($retval != 0) {
- $retval /= 256 if $retval > 0;
- die("TLTree: git log in $svnroot returned $retval, stopping.\n");
- }
- for my $c (@foo) {
- print STDERR "calling cd $svnroot; git --no-pager svn find-rev $c\n";
- my $r = `cd $svnroot; git --no-pager svn find-rev $c`;
- chomp($r);
- if (!$r) {
- # found a commit without svn rev, try to find it under the parents
- my $foo = $c;
- my $nr = 0;
- while (1) {
- $foo .= "^";
- $nr++;
- my $tr = `cd $svnroot; git --no-pager svn find-rev $foo`;
- chomp($tr);
- if ($tr) {
- # we add the number of parents to the currev
- $r = "$c+$nr"; # that is NOT addition!
- last;
- }
- }
- }
- print "$c $r\n";
- }
-}
-
More information about the tex-live-commits
mailing list