summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-06-23 17:26:40 +0000
committerKarl Berry <karl@freefriends.org>2008-06-23 17:26:40 +0000
commit9965e48a9a77e9f40f6b5ff16bbcfdce39ab5701 (patch)
tree685a848f6e47e6ab057ab9ffdc1fe4b9d214d916
parent25effc0f11568a43788afd06d21f787a226d0155 (diff)
quick and dirty package size computation; cbfonts wins
git-svn-id: svn://tug.org/texlive/trunk@8953 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/tools/tlrebuild128
-rwxr-xr-xBuild/tools/tpm-by-size16
-rwxr-xr-xBuild/tools/update-tpm40
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-by-size12
4 files changed, 12 insertions, 184 deletions
diff --git a/Build/tools/tlrebuild b/Build/tools/tlrebuild
deleted file mode 100755
index 9647d8a9a51..00000000000
--- a/Build/tools/tlrebuild
+++ /dev/null
@@ -1,128 +0,0 @@
-#!/bin/sh
-# $Id$
-# Originally written 2004, Karl Berry. Public domain.
-#
-# Rebuild the TeX Live distribution -- no actual recompilation of
-# sources (see Build/source/Build for that), but all the infrastructure
-# files, up to and including making ISO images.
-
-mydir=`dirname $0`
-tools=`cd $mydir && pwd`
-PATH=$tools:$PATH; export PATH
-umask 0
-
-if test x$1 = x-n; then
- chicken=true
- shift
-else
- chicken=false
-fi
-#
-if test x$1 = x--no-tpm; then
- no_tpm=true
- shift
-else
- no_tpm=false
-fi
-#
-if test x$1 = x--no-images; then
- no_images=true
- shift
-else
- no_images=false
-fi
-#
-if test x$1 = x--no-test; then
- no_test=true
- shift
-else
- no_test=false
-fi
-
-message() \
-{
- printf "\f\n`date` $0: $*...\n"
-}
-
-# don't work with old stuff.
-master=`cd $tools/../../Master && pwd`
-top=`cd $master/.. && pwd`
-message "svn update"
-(cd $top && svn update) || exit 1
-
-if $no_tpm; then :; else
-# have to run multiple times to make the sizes converge, since the .tpm
-# file is itself one of the files in the package.
-# Fabrice says four times is the magic number.
-message "update-tpm regeneration #1"
-(update-tpm
-message "#2"
- update-tpm
-message "#3"
- update-tpm
-message "#4"
- update-tpm || exit 1) | grep -v '^Writing '
-
-# sanity check of tpms, hopefully nothing to report after the update.
-message "tpm-check"
-tpm-check || exit 1
-
-# just checking?
-$chicken && exit 0
-
-for dir in texmf/tpm texmf-dist/tpm texmf-doc/tpm; do
- cd $master/$dir || exit 1
- message "$dir: finding changed tpms"
- for f in "$@"; do
- diff="`svn --diff-cmd=diff -x -u0 diff $f`"
- diff_without_date=`echo "$diff" | egrep -v '^[-+=@]{2,3}|TPM:Date|^Index'`
- if test -z "$diff"; then
- svn revert $f
- elif test -z "$diff_without_date"; then
- # checking to see if this ever happens; the date should be stable?
- echo "$f diff only in date, reverted: $diff"
- svn revert $f
- else
- echo " $f diff:"
- echo "$diff"
- fi
- done
-
- # This will not svn add new tpm's, or svn remove old ones.
- # Theory is that that should be done when adding/removing packages,
- # too dangerous to do it here.
- svn commit -m"tlrebuild [tpm] autoupdate of `pwd`"
-done
-
-# lists files used by the Unix installer.
-message "update-lists for Unix installer"
-update-lists || exit 1
-
-message "ls-R updates"
-update-lsr
-
-fi # end --no-tpm
-
-#
-$no_images && exit 0
-
-message "making ISO images"
-MakeImages.sh --debug --target=/home/ftp/texlive/Images/test
-
-$no_test && exit 0
-
-message "doing test installation"
-instdir=/home/ftp/texlive/Contents/testinstalled
-rm -rf $instdir
-
-cd $master || exit
-# D/1/$instdir/R -- target directory
-# I -- do installation
-time nice sh ./install-live.sh <<EOF
-D
-1
-$instdir
-R
-I
-EOF
-chmod -R a+rwX $instdir
diff --git a/Build/tools/tpm-by-size b/Build/tools/tpm-by-size
deleted file mode 100755
index a1dde1fcc70..00000000000
--- a/Build/tools/tpm-by-size
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/bin/sh
-# $Id: //depot/Master/Tools/tpm-by-size#1 $
-# Public domain. Originally written 2004, Karl Berry.
-#
-# Simplistic script to get an idea of the biggest space consumers.
-# Just looks at the size fields in the tpm files.
-
-mydir=`dirname $0`
-cd $mydir/.. || exit 1 # assume invoked from Master/Tools
-
-find texmf*/tpm -type f \
-| xargs grep '<TPM:Size>' \
-| sed -e 's/<TPM:Size>/ /' -e 's,</TPM:Size>,,' -e 's,\.tpm:,,' \
-| awk ' {printf "%7d %s\n", $2/1024, $1; total+=$2}
- END {printf "%7d total\n", total/1024}' \
-| sort -nr
diff --git a/Build/tools/update-tpm b/Build/tools/update-tpm
deleted file mode 100755
index 2d6abb1fd3a..00000000000
--- a/Build/tools/update-tpm
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/bin/sh
-# $Id$
-# Public domain. Originally written 2004, Karl Berry.
-#
-# Regenerate the given set of tpm's using tpm-factory.
-
-mydir=`dirname $0`
-tools=`cd $mydir && pwd`
-master=`cd $mydir/../../Master && pwd`
-
-verbose=${OVERRIDE_VERBOSE-}
-
-if test "x$1" = x--debug; then
- verbose=--debug
- shift
-fi
-
-test $# -eq 0 && set - TLCore Package Documentation
-
-for type in "$@"; do
- case $type in
- TLCore) p=from; dir=texmf;;
- Package) p=auto; dir=texmf-dist;;
- Documentation) p=auto; dir=texmf-doc;;
- *) echo "$0: unknown type $type, one of TLCore, Package, Documentation.">&2
- exit 1;;
- esac
-
- cd $master/$dir/tpm || exit 1
- chmod a+rw * >&/dev/null # all files must be writable for tpm-factory.
-
- perl $tools/tpm-factory.pl $verbose \
- --master_dir=$master --ftp_dir=/tmp \
- --clean \
- --arch=all \
- --patterns=$p \
- --type=$type \
- | grep -v '^Writing '
-done
-exit 0
diff --git a/Master/tlpkg/bin/tlpkg-by-size b/Master/tlpkg/bin/tlpkg-by-size
new file mode 100755
index 00000000000..89d43c45c2e
--- /dev/null
+++ b/Master/tlpkg/bin/tlpkg-by-size
@@ -0,0 +1,12 @@
+#!/bin/sh
+# $Id$
+# If it ever matters, we can do this right by reading tlpdb.
+
+test $# -eq 0 && set - /home/ftp/texlive/tlnet/tldev/tlpkg
+cd "$1" || exit 1
+for pkgtar in `ls *.tar.lzma | egrep -v '\..*\.tar\.lzma$'`; do
+ pkg=`echo $pkgtar | sed 's/\.tar\.lzma$//'`
+ size=`cat $pkg.*tar.lzma | wc -c`
+ size=`expr $size / 1024`
+ printf "%6d %s\n" $size "$pkg"
+done | sort -nr