summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-06-09 20:12:47 +0000
committerKarl Berry <karl@freefriends.org>2008-06-09 20:12:47 +0000
commitc2ded34c4ac6a32fbed94b870481aaf9667fc227 (patch)
treecc7b9d209a306f44bc962ea8d7357307b9460ca9 /Build
parent07b1dd24a6c6ca7ac335c56b3cc3127bd7910619 (diff)
move autoupdate scripts to new tools bindir
git-svn-id: svn://tug.org/texlive/trunk@8623 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/tools/htmltext23
-rwxr-xr-xBuild/tools/mkdocindex167
-rwxr-xr-xBuild/tools/svnchangelog97
-rwxr-xr-xBuild/tools/svnchangelog.sed43
-rwxr-xr-xBuild/tools/update-auto179
-rwxr-xr-xBuild/tools/update-lsr22
6 files changed, 0 insertions, 531 deletions
diff --git a/Build/tools/htmltext b/Build/tools/htmltext
deleted file mode 100755
index c41eb2490fe..00000000000
--- a/Build/tools/htmltext
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/bin/sh
-# $Id$
-# Public domain. Originally written 2003, Karl Berry.
-# Dump a url (or -stdin) to text using lynx.
-
-PATH=/usr/local/bin:$PATH
-
-HOME=/tmp; export HOME
-TERM=vt100; export TERM
-: ${LYNX_CFG=/home/tug/.lynxcfg}; export LYNX_CFG
-# just contains the line JUSTIFY:FALSE.
-
-test $# -eq 0 && set - -stdin
-
-for url in "$@"; do
- # when we add -width=79, tables are formatted badly.
- # -dump lists url's like this with -stdin (lynx 2.8.4, linux):
- # file://localhost/tmp/89inmk/FAQ/german
- # Since the reference list is useful, we fix it up by hand instead of
- # using -nolist.
- lynx -dump -nocolor -hiddenlinks=ignore "$url" \
- | sed 's,file://localhost/tmp/[a-zA-Z0-9]*/,,'
-done
diff --git a/Build/tools/mkdocindex b/Build/tools/mkdocindex
deleted file mode 100755
index 4e7630686f4..00000000000
--- a/Build/tools/mkdocindex
+++ /dev/null
@@ -1,167 +0,0 @@
-#!/usr/local/bin/perl
-# $Id: //depot/Master/Tools/mkdocindex#2 $
-# Make index file of all HTML and PDF documentation.
-# Originally written 2004, Karl Berry. Public domain.
-
-exit (&main ());
-
-sub main
-{
- (my $progname = $0) =~ s,^.*/,,;
- umask (0);
-
- chomp (my $mydir = `dirname $0`); # Tools
- chdir ("$mydir/../../Master") || exit 1; # Master
-
- # shell fragment we use to find doc files in a directory.
- $ENV{"_POSIX2_VERSION"} = 0; # POSIX likes to be backward-incompatible
- $FIND_POST = " \\( -name \\*.html -o -name \\*.pdf \\) "
- . " | tee /tmp/doclist"
- . " | sort -f -t/ +2 |";
-
- print <<END_HEADER;
-<html>
-<body>
-<h1>TeX Live documentation</h2>
-
-<a name="packagedoc"></a>
-<h2>1. Package documentation</h2>
-
-<p>This section lists links to all HTML and PDF files for packages (in
-the <a href="texmf/">texmf</a> and <a href="texmf-dist/">texmf-dist</a>
-directories), sorted by package name.
-
-<p><a href="#guidedoc">Jump to guide documentation</a>.
-END_HEADER
-
- &do_package_list ();
-
- print <<END_BETWEEN;
-<a name="guidedoc"></a>
-<h2>2. Guide documentation</h2>
-
-<p>This section lists links to all guides, that is, packages consisting
-only of documentation (in the <a href="texmf-doc/">texmf-doc</a>
-directory), sorted by language.
-
-<p><a href="#packagedoc">Jump to package documentation</a>.
-END_BETWEEN
-
- &do_guide_list ();
-
- chomp (my $date = `date`);
- print <<END_TRAILER;
-<hr>
-<small>Generated $date by $progname.</small>
-</body></html>
-END_TRAILER
-
- return 0;
-}
-
-
-
-# Package doc (texmf and texmf-dist), by package.
-#
-sub do_package_list
-{
- &do_filelist ("find texmf/doc texmf-dist/doc $FIND_POST");
-}
-
-
-
-# Guide doc (texmf-doc), by language. In order to generate a list of
-# all the languages at the beginning, we generate everything before
-# writing anything.
-#
-sub do_guide_list
-{
- # each subdir in texmf-doc is a language, except general.
- my @langs = map { s,.*/,,; $_ } glob ("texmf-doc/doc/*");
- my @langs = grep { $_ ne "general" } @langs;
-
- print "\n<p>Languages:\n<ul>\n";
- print map { qq!<li><a href="#$_">$_</a>\n! } @langs;
- print "</ul>\n";
-
- $count = 0; # for subsection numbers
- for my $lang (@langs) {
- $count++;
- print qq!<a name="#$lang"></a>\n!;
- print qq!<h3>2.$count <a href="texmf-doc/doc/$lang/">$lang</a></h3>\n!;
-
- &do_filelist ("find texmf-doc/doc/$lang $FIND_POST");
- }
-}
-
-
-
-# Process all files resulting from OPENCMD.
-#
-sub do_filelist
-{
- my ($opencmd) = @_;
-
- print "\n<ol>\n";
- my $prevdir = "";
- my @entries = ();
-
- $FILELIST = $opencmd;
- open (FILELIST) || die "open($FILELIST) failed: $!";
- while (<FILELIST>) {
- chomp;
- # collect all files for a given directory
- (my $thisdir = $_) =~ s,/[^/]*$,,;
-
- if ($thisdir eq $prevdir) {
- push (@entries, $_);
- } else {
- &do_directory ($prevdir, @entries) if $prevdir; # avoid first empty
- $prevdir = $thisdir;
- @entries = ($_);
- }
- }
- close (FILELIST) || warn "close($FILELIST) failed: $!";
-
- &do_directory ($prevdir, @entries); # include last
-
- print "\n</ol>\n";
-}
-
-
-
-# Print doc ENTRIES in DIR.
-#
-sub do_directory
-{
- my ($dir,@entries) = @_;
-
- # $dir includes the texmf tree, e.g.,
- # texmf-dist/doc/allrunes
- # This is too ugly. We just want to show allrunes, especially since
- # that's what we sorted by.
- my (undef,undef,$nicename) = split (/\//, $dir, 3);
-
- print qq!<li><b><a href="$dir">$nicename</a>!;
-
- # if we have an index.html or a live.html, make things nicer.
- if (grep { m,/(index|live)\.html$, } @entries) {
- # first remove all .html's.
- @entries = grep { $_ !~ /\.html$/
- || $_ =~ m,/(index|live)\.html, } @entries;
-
- # if only one entry left, remove it, the directory link suffices.
- @entries = () if $entries[0] =~ m,/index\.html$, && @entries == 1;
- }
-
- # if we're going to print anything, insert punctuation.
- print ":" if @entries;
- print "</b><small>\n";
-
- for my $e (@entries) {
- (my $basename = $e) =~ s,.*/,,;
- print qq! <a href="$e">$basename</a>\n!;
- }
-
- print " </small>\n\n";
-}
diff --git a/Build/tools/svnchangelog b/Build/tools/svnchangelog
deleted file mode 100755
index 930751fe629..00000000000
--- a/Build/tools/svnchangelog
+++ /dev/null
@@ -1,97 +0,0 @@
-#!/bin/sh
-# $Id$
-# Public domain. Originally written 2004, Karl Berry.
-# Get change info from svn log. (see now-deleted p4changelog for the
-# previous code using p4.)
-
-umask 0
-
-debug=true
-chicken=${OVERRIDE_CHICKEN-false}
-
-# to get started, ran svn log and put the first thousand changes in log.
-
-mydir=`dirname $0` # Build/tools
-outdir=`cd $mydir/../logs && pwd`
-outfile=$outdir/svnlog
-test ! -f $outfile && exit 2 # error probably given by the cd
-
-# get the revision number we last logged
-line=`grep '^r[0-9]' $outfile | head -1 | sed 's/^r//'`
-lastlogged=`echo "$line" | awk '{print $1}'`
-echo "$lastlogged" | egrep '^[0-9]+$' >/dev/null \
-|| { echo "$0: no change number in r line of $outfile: $line";
- exit 1; }
-
-nextneeded=`expr $lastlogged + 1`
-$debug && echo "lastlogged=$lastlogged, nextneeded=$nextneeded"
-if test -z "$nextneeded"; then
- echo "$0: empty nextneeded?!"
- exit 1
-fi
-
-# get the log info since then.
-tlroot=`cd $mydir/../.. && pwd`
-newlogs=$outdir/newlogdata
-svn log -v -r HEAD:$nextneeded $tlroot >$newlogs || exit 1
-# with HEAD:next we get the entries newest first, as we want them.
-$debug && ls -l $newlogs
-
-line=`grep '^r[0-9]* |' $newlogs | head -1 | sed 's/^r//'`
-latestchange=`echo "$line" | awk '{print $1}'`
-$debug && echo "latestchange=$latestchange"
-if test -z "$latestchange"; then
- echo "$0: empty latestchange?!"
- exit 1
-fi
-
-# done if nothing submitted since last change.
-# or if only one commit has been made, because we ourselves do a commit,
-# so otherwise we'd add a useless entry every time we're run.
-test $latestchange -le $nextneeded && exit 0
-
-# rotate logs if crossed a 1000-change mark.
-rotate=false
-for c in `seq $latestchange -1 $nextneeded`; do
- echo $c | grep '001$' >/dev/null && rotate=true
-done
-$debug && echo "rotate=$rotate"
-
-if ! $chicken && $rotate; then
- mv -v $outfile $outfile.$lastlogged
- gzip -v $outfile.$lastlogged
- chmod 444 $outfile.$lastlogged.gz
- ls -l $outfile.$lastlogged.gz
- svn add $outfile.$lastlogged.gz
- cp /dev/null $outfile
-fi
-
-# prepend new changes to current log, and put log messages first.
-$mydir/svnchangelog.sed $newlogs >$outfile.new
-cat $outfile >>$outfile.new
-
-if $debug; then # really debug
- # show first and last change number in each file.
- for f in $newlogs $outfile $outfile.new; do
- echo
- (cd `dirname $f` && ls -l `basename $f`)
- grep '^r[0-9]* |' $f | head -1
- grep '^r[0-9]* |' $f | tail -1
- done
-fi
-
-
-if ! $chicken; then
- mv $outfile.new $outfile
- echo "svn commit..."
- svn commit -m"regenerated by $0" $outdir
-fi
-
-$mydir/svnchangelog.sed $newlogs # show it to me
-rm -f $newlogs $outfile.new
-
-exit 0
-
-# to get things started:
-svn log -v -r 1000:1 /home/texlive/trunk/ >svnlog
-svn add svnlog
diff --git a/Build/tools/svnchangelog.sed b/Build/tools/svnchangelog.sed
deleted file mode 100755
index 699cacce1f9..00000000000
--- a/Build/tools/svnchangelog.sed
+++ /dev/null
@@ -1,43 +0,0 @@
-#! /bin/sed -nf
-# $Id$
-# Written by Werner Lemberg, 25may06. Public domain.
-# svn log outputs the paths first, then the log message. This sed
-# script reverses that.
-
-:main
-/------------------------------------------------------------------------/ {
- p
- n
- /r[0-9][0-9]* / {
- p
- n
- /^Changed paths:$/ {
- h
- n
-
- :loop1
- /^$/! {
- H
- n
- bloop1
- }
-
- :loop2
- /------------------------------------------------------------------------/! {
- p
- n
- bloop2
- }
-
- i\
-
- x
- p
- g
- bmain
- }
- }
- bmain
-}
-
-p
diff --git a/Build/tools/update-auto b/Build/tools/update-auto
deleted file mode 100755
index 24a98a46c32..00000000000
--- a/Build/tools/update-auto
+++ /dev/null
@@ -1,179 +0,0 @@
-#!/bin/sh
-# $Id$
-# Public domain. Originally written 2003, Karl Berry.
-#
-# Deal with files that are automatically updated in one way or another.
-# New files need to be added manually, doesn't happen often enough.
-
-PATH=/usr/local/bin:$PATH; export PATH
-umask 0
-
-chicken=echo
-chicken=
-cp="cp -fv"
-diff="diff -U 2"
-
-tools=`cd \`dirname $0\` && /bin/pwd`
-
-# most stuff is in Master.
-Master=`cd $tools/../../Master && /bin/pwd`
-cd $Master || exit 1
-
-temp=/tmp/ua$$
-trap "rm -f $temp*" 0 1 2 15
-
-update_list=
-
-# autogenerate README.EN from readme.html.
-#
-$tools/htmltext <readme.en.html >$temp
-if $diff README.EN $temp >$temp.en.diff; then
- echo " README.EN ok."
-else
- echo "will update README.EN."
- $chicken $cp $temp README.EN
- update_list="$update_list README.EN"
-fi
-
-
-# English FAQ from ctan mirror on tug.org.
-#
-faqmaster=/home/ftp/tex-archive/help/uk-tex-faq
-faqslave=texmf-doc/doc/english/FAQ-en
-for f in $faqmaster/*; do
- # ignore some of the generated files
- echo $f | egrep '(tar.gz|dvi|ps|letterfaq.pdf)$' >/dev/null \
- && continue
-
- basef=`basename $f`
- faqslavef=$faqslave/$basef
- if $diff $faqslavef $f >$temp.$basef.diff; then
- echo " $faqslavef ok."
- else
- $chicken $cp $f $faqslavef
- update_list="$update_list $faqslavef"
- fi
-done
-# for now, don't bother auto-updating the html files.
-
-
-# modes.mf from elsewhere on tug.org.
-#
-modesmaster=/home/ftp/tex/modes.mf
-modesslave=texmf-dist/metafont/misc/modes.mf
-#
-if $diff $modesslave $modesmaster >$temp.modes.diff; then
- echo " $modesslave ok."
-else
- $chicken $cp $modesmaster $modesslave
- update_list="$update_list $modesslave"
-fi
-
-
-# texinfo.tex from elsewhere on tug.org.
-#
-tximaster=/home/ftp/tex/texinfo.tex
-txislave=texmf-dist/tex/texinfo/texinfo.tex
-#
-if $diff $txislave $tximaster >$temp.txi.diff; then
- echo " $txislave ok."
-else
- $chicken $cp $tximaster $txislave
- update_list="$update_list $txislave"
-fi
-
-
-# fontname from elsewhere on tug.org.
-#
-fontnamemaster=/home/httpd/html/fontname
-fontnamedocslave=texmf-dist/doc/fontname
-#
-for basef in ChangeLog Makefile bitstrea.aka \
- fontname.pdf fontname.html fontname.texi; do
- fontnameslavef=$fontnamedocslave/$basef
- if $diff $fontnamemaster/$basef $fontnameslavef >$temp.$basef.diff; then
- echo " $fontnameslavef ok."
- else
- $chicken $cp $fontnamemaster/$basef $fontnameslavef
- update_list="$update_list $fontnameslavef"
- fi
-done
-
-# fontname runtime files.
-#
-fontnamemapslave=texmf-dist/fonts/map/fontname
-#
-files=`cd $fontnamemaster && ls *.map`
-for basef in $files; do
- test $basef = wolfram.map && continue # obsolete for TL
- fontnamemapslavef=$fontnamemapslave/$basef
- if $diff $fontnamemaster/$basef $fontnamemapslavef >$temp.$basef.diff; then
- echo " $fontnamemapslavef ok."
- else
- $chicken $cp $fontnamemaster/$basef $fontnamemapslavef
- update_list="$update_list $fontnamemapslavef"
- fi
-done
-
-fontnameencslave=texmf-dist/fonts/enc/dvips/base
-#
-files=`cd $fontnamemaster && ls *.enc | egrep -vw '(groff|t5).enc'`
-for basef in $files; do
- fontnameencslavef=$fontnameencslave/$basef
- if $diff $fontnameencslavef $fontnamemaster/$basef >$temp.$basef.diff; then
- echo " $fontnameencslavef ok."
- else
- $chicken $cp $fontnamemaster/$basef $fontnameencslavef
- update_list="$update_list $fontnameencslavef"
- fi
-done
-
-
-# config.{guess,sub} from GNU.
-#
-for gnuconf in config.guess config.sub; do
- url="http://savannah.gnu.org/cgi-bin/viewcvs/*checkout*/config/config/$gnuconf?rev=HEAD&content-type=text/plain"
- wget -O $temp $url >$temp.2 2>&1
- if test ! -s $temp; then
- echo "$0: skipping, could not retrieve $gnuconf:" >&2
- cat $temp.2
- continue
- fi
- if $diff $gnuconf $temp >$temp.$gnuconf.diff; then
- echo " $gnuconf ok."
- else
- $chicken $cp $temp $gnuconf
- update_list="$update_list $gnuconf"
-
- # find all copies in source.
- alldev="`find ../Build/source -name $gnuconf`"
- for f in $alldev; do
- $chicken $cp $gnuconf $f
- done
- update_list="$update_list $alldev"
- fi
-done
-
-
-# doc.html.
-#
-$tools/mkdocindex | tee $temp.doc | grep -v '<small>Generated' >$temp.doc.new
-#
-grep -v '<small>Generated' doc.html >$temp.doc.cur
-if $diff $temp.doc.cur $temp.doc.new >$temp.doc.diff; then
- echo " doc.html ok."
-else
- $chicken cp -v $temp.doc.new doc.html
- update_list="$update_list doc.html"
-fi
-
-
-if test -z "$update_list"; then
- echo "$0: nothing to update."
-else
- test x"$chicken" != xecho && echo "$0: committing $update_list"
- $chicken svn commit --force-log -m$0 $update_list
-fi
-
-echo "$0: done `date`."
-exit 0
diff --git a/Build/tools/update-lsr b/Build/tools/update-lsr
deleted file mode 100755
index 90a761d570a..00000000000
--- a/Build/tools/update-lsr
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/bin/sh
-# $Id$
-# Originally written 2004, Karl Berry. Public domain.
-#
-# Update ls-R files. Called from tlrebuild and also karl@tug's cron.
-
-mydir=`dirname $0`
-tools=`cd $mydir && pwd`
-PATH=$tools:$PATH; export PATH
-umask 0
-
-master=`cd $mydir/../../Master && pwd`
-cd $master || exit 1
-
-# generate new.
-./bin/i386-linux/mktexlsr
-
-# if texmf-var exists, it's not part of the distribution.
-test -f texmf-var/ls-R && svn revert texmf-var/ls-R
-
-# if we have changes, submit to repository (frightening but necessary).
-svn commit -m'update-lsr autoupdate' texmf*/ls-R