From 592f6c1025a3bd9075f1ed9396b48bdf3c79cbad Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 9 May 2010 18:33:17 +0000 Subject: rename git-svn-id: svn://tug.org/texlive/trunk@18167 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/ctan-list | 97 --------------------------------------- Master/tlpkg/bin/tl-dump-for-ctan | 97 +++++++++++++++++++++++++++++++++++++++ Master/tlpkg/bin/tl-update-asy | 17 ++++--- 3 files changed, 107 insertions(+), 104 deletions(-) delete mode 100755 Master/tlpkg/bin/ctan-list create mode 100755 Master/tlpkg/bin/tl-dump-for-ctan (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/bin/ctan-list b/Master/tlpkg/bin/ctan-list deleted file mode 100755 index 4975767c89e..00000000000 --- a/Master/tlpkg/bin/ctan-list +++ /dev/null @@ -1,97 +0,0 @@ -#!/usr/bin/env perl -# Copyright 2010 Norbert Preining -# This file is licensed under the GNU General Public License version 2 -# or any later version. -# -# From an email from Karl: -# Jim Hefferon could use a dump of TL packages for CTAN with one line per -# package, showing the package name, collection it belongs to, and all its -# schemes. - -my $mydir; - -BEGIN { - $vc_id = '$Id$'; - $^W = 1; - ($mydir = $0) =~ s,/[^/]*$,,; - unshift (@INC, "$mydir/.."); -} - -use strict; -use TeXLive::TLPOBJ; -use TeXLive::TLPDB; -use TeXLive::TLUtils; - -exit (&main()); - - -sub main -{ - chomp(my $Master = `cd $mydir/../.. && pwd`); - my $tlpdb = TeXLive::TLPDB->new("root" => $Master); - die "Cannot init tlpdb from $Master ..." unless defined($tlpdb); - - # first collect for each collection the set of schemes it is contained in - my @schemes = $tlpdb->schemes; - my %col_to_schemes; - foreach my $c ($tlpdb->collections) { - @{$col_to_schemes{$c}} = (); - for my $s ($tlpdb->needed_by($c)) { - if ($s =~ m/^scheme-/) { - push @{$col_to_schemes{$c}}, $s; - } - } - } - foreach my $pkg ($tlpdb->list_packages) { - next if ($pkg =~ m/^00texlive/); - # ignore *all* arch dep pacakges (also tlpsv etc etc) - next if ($pkg =~ m/\./); - my $tlp = $tlpdb->get_package($pkg); - if (!defined($tlp)) { - printf STDERR "strange, $pkg not found but listed, continuing anyway.\n"; - next; - } - next if ($tlp->category eq "Scheme"); - next if ($tlp->category eq "Collection"); - # TODO ??? What to do with TLCore??? - # get the list of packages that depend on that one: - my @deps = $tlpdb->needed_by($pkg); - my @schemes; - my $collection = undef; - for my $p (@deps) { - my $tlpo = $tlpdb->get_package($p); - if (!defined($tlpo)) { - printf STDERR "$p seems to depend on $pkg, but $p cannot be found?\n"; - next; - } - if ($tlpo->category eq "Scheme") { - push @schemes, $p; - } elsif ($tlpo->category eq "Collection") { - if (defined($collection)) { - printf STDERR "$pkg is asked for in more than one collection: $collection, $p\n"; - next; - } else { - $collection = $p; - } - } - } - if (!defined($collection)) { - # should not happen - $collection = "(undefined)"; - } else { - push @schemes, @{$col_to_schemes{$collection}}; - } - @schemes = TeXLive::TLUtils::sort_uniq(@schemes); - print "$pkg $collection @schemes\n"; - } -} - - -__END__ - -### Local Variables: -### perl-indent-level: 2 -### tab-width: 2 -### indent-tabs-mode: nil -### End: -# vim:set tabstop=2 expandtab: # diff --git a/Master/tlpkg/bin/tl-dump-for-ctan b/Master/tlpkg/bin/tl-dump-for-ctan new file mode 100755 index 00000000000..4975767c89e --- /dev/null +++ b/Master/tlpkg/bin/tl-dump-for-ctan @@ -0,0 +1,97 @@ +#!/usr/bin/env perl +# Copyright 2010 Norbert Preining +# This file is licensed under the GNU General Public License version 2 +# or any later version. +# +# From an email from Karl: +# Jim Hefferon could use a dump of TL packages for CTAN with one line per +# package, showing the package name, collection it belongs to, and all its +# schemes. + +my $mydir; + +BEGIN { + $vc_id = '$Id$'; + $^W = 1; + ($mydir = $0) =~ s,/[^/]*$,,; + unshift (@INC, "$mydir/.."); +} + +use strict; +use TeXLive::TLPOBJ; +use TeXLive::TLPDB; +use TeXLive::TLUtils; + +exit (&main()); + + +sub main +{ + chomp(my $Master = `cd $mydir/../.. && pwd`); + my $tlpdb = TeXLive::TLPDB->new("root" => $Master); + die "Cannot init tlpdb from $Master ..." unless defined($tlpdb); + + # first collect for each collection the set of schemes it is contained in + my @schemes = $tlpdb->schemes; + my %col_to_schemes; + foreach my $c ($tlpdb->collections) { + @{$col_to_schemes{$c}} = (); + for my $s ($tlpdb->needed_by($c)) { + if ($s =~ m/^scheme-/) { + push @{$col_to_schemes{$c}}, $s; + } + } + } + foreach my $pkg ($tlpdb->list_packages) { + next if ($pkg =~ m/^00texlive/); + # ignore *all* arch dep pacakges (also tlpsv etc etc) + next if ($pkg =~ m/\./); + my $tlp = $tlpdb->get_package($pkg); + if (!defined($tlp)) { + printf STDERR "strange, $pkg not found but listed, continuing anyway.\n"; + next; + } + next if ($tlp->category eq "Scheme"); + next if ($tlp->category eq "Collection"); + # TODO ??? What to do with TLCore??? + # get the list of packages that depend on that one: + my @deps = $tlpdb->needed_by($pkg); + my @schemes; + my $collection = undef; + for my $p (@deps) { + my $tlpo = $tlpdb->get_package($p); + if (!defined($tlpo)) { + printf STDERR "$p seems to depend on $pkg, but $p cannot be found?\n"; + next; + } + if ($tlpo->category eq "Scheme") { + push @schemes, $p; + } elsif ($tlpo->category eq "Collection") { + if (defined($collection)) { + printf STDERR "$pkg is asked for in more than one collection: $collection, $p\n"; + next; + } else { + $collection = $p; + } + } + } + if (!defined($collection)) { + # should not happen + $collection = "(undefined)"; + } else { + push @schemes, @{$col_to_schemes{$collection}}; + } + @schemes = TeXLive::TLUtils::sort_uniq(@schemes); + print "$pkg $collection @schemes\n"; + } +} + + +__END__ + +### Local Variables: +### perl-indent-level: 2 +### tab-width: 2 +### indent-tabs-mode: nil +### End: +# vim:set tabstop=2 expandtab: # diff --git a/Master/tlpkg/bin/tl-update-asy b/Master/tlpkg/bin/tl-update-asy index dd0b173005b..4f6b7cca463 100755 --- a/Master/tlpkg/bin/tl-update-asy +++ b/Master/tlpkg/bin/tl-update-asy @@ -9,29 +9,32 @@ # used will be there as a starting point. # # The script uses various paths and convenience variables that I define -# for myself; feel free to peruse tug.org:~karl/.bash_login, +# for myself; feel free to peruse tug.org:~karl/.bash_login, etc. # --karl test "x$1" = x--build || exit 1 -ver=1.93 +ver=1.94 # the new version, that is. # if false && $update_sources_from_ctan; then # this part is about copying the sources from CTAN to TL. cd $B/source/utils/ edit README for asymptote$ver - (cd asymptote && make distclean) # be sure no dregs + (cd asymptote && make distclean && sat) # be sure no dregs \cp -arf /home/ftp/tex-archive/graphics/asymptote/ . cd asymptote # get list of new files to add: - svn status | sed -n 's/^\?//p | fgrep -v binaries' + svn status | sed -n 's/^\?//p' | fgrep -v binaries svn add ... # get list of files to remove: diff -qr . /home/ftp/tex-archive/graphics/asymptote/ | egrep -v '\.svn|gc-' svn rm ... + + # final check and commit: + svn status svn commit -m"asy $ver" . ../README exit $? @@ -39,8 +42,8 @@ if false && $update_sources_from_ctan; then elif test "x$1" = x--build; then # this part is about building the i386-linux asymptote on tug.org. # Despite all the dire warnings above, this part actually can be run - # as a script, because it's so often necessary to run and rerun and - # rerun the build. + # as a script, because it's so often necessary to run and rerun (and + # rerun) the build. set -e PATH=/usr/bin:/bin:/sbin; export PATH # system gcc for sake of shared libs unset GREP_OPTIONS @@ -61,7 +64,7 @@ elif test "x$1" = x--build; then make install-prebuilt strip /tmp/ainst/bin/asy mv dot.svn .svn - exit $? + exit 0 # -- cgit v1.2.3