[subversion-commit] SVN tetex-base commit + diffs: r1239 - in
tetex-base/trunk/debian: . tpm
Frank Küster
frank at costa.debian.org
Tue Apr 25 13:13:57 UTC 2006
Author: frank
Date: 2006-04-25 13:13:55 +0000 (Tue, 25 Apr 2006)
New Revision: 1239
Added:
tetex-base/trunk/debian/tpm/beamer.tpm
tetex-base/trunk/debian/tpm/pgf.tpm
tetex-base/trunk/debian/tpm/xcolor.tpm
Removed:
tetex-base/trunk/debian/tpm2licenses-new.pl
Modified:
tetex-base/trunk/debian/copyright.header
Log:
- some more license info
- remove tpm2licenses-new.pl, now in tex-common
Modified: tetex-base/trunk/debian/copyright.header
===================================================================
--- tetex-base/trunk/debian/copyright.header 2006-04-25 13:12:58 UTC (rev 1238)
+++ tetex-base/trunk/debian/copyright.header 2006-04-25 13:13:55 UTC (rev 1239)
@@ -186,6 +186,9 @@
size*.clo files have a correct LPPL notice, the others have none.
The author seems to be active on Wikipedia, tried to contact him
+- beamericon*: no license statement. beamerexample-seminar: just like
+ seminar, which has not been investigated yet. Filed bug against beamer.
+
3.2.2 Normal :-) problems
- listings: LPPL, plus:
Copied: tetex-base/trunk/debian/tpm/beamer.tpm (from rev 1235, texlive/trunk/LocalTPM/texmf-dist/tpm/beamer.tpm)
===================================================================
--- texlive/trunk/LocalTPM/texmf-dist/tpm/beamer.tpm 2006-04-21 14:50:48 UTC (rev 1235)
+++ tetex-base/trunk/debian/tpm/beamer.tpm 2006-04-25 13:13:55 UTC (rev 1239)
@@ -0,0 +1,197 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../Tools/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+ <rdf:Description about="http://texlive.dante.de/texlive/Package/beamer.zip">
+ <TPM:Name>beamer</TPM:Name>
+ <TPM:Type>Package</TPM:Type>
+ <TPM:Date>2005/10/23 15:58:00</TPM:Date>
+ <TPM:Version>0.51</TPM:Version>
+ <TPM:Creator>rahtz</TPM:Creator>
+ <TPM:Title>
+A LaTeX class for producing presentations and slides.
+ </TPM:Title>
+ <TPM:Description>
+The beamer LaTeX class can be used for producing slides. Its
+functionality is similar to Prosper but does not need any
+external programs and can directly produce a presentation using
+pdflatex. Beamer uses pgf
+for pdf/ps
+independent graphics. Frames are created using \frame{...}, and
+a frame can build multiple slides through a simple notation for
+specifying material for each slide within a frame. Beamer
+supports bibliographies, appendicies and transitions. Short
+versions of title, authors, institute can also be specified as
+optional parameters. A \plainframe{} allows a picture, for
+example, to fill the whole frame. Support figure and table
+environments, transparency effects, a \transduration command,
+animation commands, a pauses environment. Beamer also provides
+compatibility with other packages like prosper .
+ </TPM:Description>
+ <TPM:Author>Till Tantau</TPM:Author>
+ <TPM:Size>5553959</TPM:Size>
+ <TPM:License>lppl</TPM:License>
+ <TPM:Build/>
+ <TPM:RunFiles size="562610">
+texmf-dist/tex/latex/beamer/beamericonarticle.20.eps
+texmf-dist/tex/latex/beamer/beamericonarticle.20.pdf
+texmf-dist/tex/latex/beamer/beamericonarticle.eps
+texmf-dist/tex/latex/beamer/beamericonarticle.pdf
+texmf-dist/tex/latex/beamer/beamericonarticle.tex
+texmf-dist/tex/latex/beamer/beamericonbook.20.eps
+texmf-dist/tex/latex/beamer/beamericonbook.20.pdf
+texmf-dist/tex/latex/beamer/beamericonbook.eps
+texmf-dist/tex/latex/beamer/beamericonbook.pdf
+texmf-dist/tex/latex/beamer/beamericonbook.tex
+texmf-dist/tex/latex/beamer/beamer.cls
+texmf-dist/tex/latex/beamer/beamerarticle.sty
+texmf-dist/tex/latex/beamer/beamerbasearticle.sty
+texmf-dist/tex/latex/beamer/beamerbaseauxtemplates.sty
+texmf-dist/tex/latex/beamer/beamerbaseboxes.sty
+texmf-dist/tex/latex/beamer/beamerbasecolor.sty
+texmf-dist/tex/latex/beamer/beamerbasecompatibility.sty
+texmf-dist/tex/latex/beamer/beamerbasedecode.sty
+texmf-dist/tex/latex/beamer/beamerbaseexercise.sty
+texmf-dist/tex/latex/beamer/beamerbasefont.sty
+texmf-dist/tex/latex/beamer/beamerbaseframe.sty
+texmf-dist/tex/latex/beamer/beamerbaseframecomponents.sty
+texmf-dist/tex/latex/beamer/beamerbaseframesize.sty
+texmf-dist/tex/latex/beamer/beamerbaselocalstructure.sty
+texmf-dist/tex/latex/beamer/beamerbasemisc.sty
+texmf-dist/tex/latex/beamer/beamerbasemodes.sty
+texmf-dist/tex/latex/beamer/beamerbasenavigation.sty
+texmf-dist/tex/latex/beamer/beamerbasenotes.sty
+texmf-dist/tex/latex/beamer/beamerbaseoptions.sty
+texmf-dist/tex/latex/beamer/beamerbaseoverlay.sty
+texmf-dist/tex/latex/beamer/beamerbasercs.sty
+texmf-dist/tex/latex/beamer/beamerbasesection.sty
+texmf-dist/tex/latex/beamer/beamerbasetemplates.sty
+texmf-dist/tex/latex/beamer/beamerbasethemes.sty
+texmf-dist/tex/latex/beamer/beamerbasetheorems.sty
+texmf-dist/tex/latex/beamer/beamerbasetitle.sty
+texmf-dist/tex/latex/beamer/beamerbasetoc.sty
+texmf-dist/tex/latex/beamer/beamerbaseverbatim.sty
+texmf-dist/tex/latex/beamer/beamerfoils.sty
+texmf-dist/tex/latex/beamer/beamerprosper.sty
+texmf-dist/tex/latex/beamer/beamerseminar.sty
+texmf-dist/tex/latex/beamer/beamertexpower.sty
+texmf-dist/tex/latex/beamer/beamerexample-seminar.tex
+texmf-dist/tex/latex/beamer/beamerexample-foils.tex
+texmf-dist/tex/latex/beamer/beamerexample-prosper.tex
+texmf-dist/tex/latex/beamer/beamerexample-texpower.tex
+texmf-dist/tex/latex/beamer/multimedia.sty
+texmf-dist/tex/latex/beamer/multimediasymbols.sty
+texmf-dist/tex/latex/beamer/xmpmulti.sty
+texmf-dist/tex/latex/beamer/beamercolorthemealbatross.sty
+texmf-dist/tex/latex/beamer/beamercolorthemebeetle.sty
+texmf-dist/tex/latex/beamer/beamercolorthemecrane.sty
+texmf-dist/tex/latex/beamer/beamercolorthemedefault.sty
+texmf-dist/tex/latex/beamer/beamercolorthemedolphin.sty
+texmf-dist/tex/latex/beamer/beamercolorthemedove.sty
+texmf-dist/tex/latex/beamer/beamercolorthemefly.sty
+texmf-dist/tex/latex/beamer/beamercolorthemelily.sty
+texmf-dist/tex/latex/beamer/beamercolorthemeorchid.sty
+texmf-dist/tex/latex/beamer/beamercolorthemerose.sty
+texmf-dist/tex/latex/beamer/beamercolorthemeseagull.sty
+texmf-dist/tex/latex/beamer/beamercolorthemeseahorse.sty
+texmf-dist/tex/latex/beamer/beamercolorthemesidebartab.sty
+texmf-dist/tex/latex/beamer/beamercolorthemestructure.sty
+texmf-dist/tex/latex/beamer/beamercolorthemewhale.sty
+texmf-dist/tex/latex/beamer/beamerfontthemedefault.sty
+texmf-dist/tex/latex/beamer/beamerfontthemeprofessionalfonts.sty
+texmf-dist/tex/latex/beamer/beamerfontthemeserif.sty
+texmf-dist/tex/latex/beamer/beamerfontthemestructurebold.sty
+texmf-dist/tex/latex/beamer/beamerfontthemestructureitalicserif.sty
+texmf-dist/tex/latex/beamer/beamerfontthemestructuresmallcapsserif.sty
+texmf-dist/tex/latex/beamer/beamerinnerthemecircles.sty
+texmf-dist/tex/latex/beamer/beamerinnerthemedefault.sty
+texmf-dist/tex/latex/beamer/beamerinnerthemeinmargin.sty
+texmf-dist/tex/latex/beamer/beamerinnerthemerectangles.sty
+texmf-dist/tex/latex/beamer/beamerinnerthemerounded.sty
+texmf-dist/tex/latex/beamer/beamerouterthemedefault.sty
+texmf-dist/tex/latex/beamer/beamerouterthemeinfolines.sty
+texmf-dist/tex/latex/beamer/beamerouterthememiniframes.sty
+texmf-dist/tex/latex/beamer/beamerouterthemeshadow.sty
+texmf-dist/tex/latex/beamer/beamerouterthemesidebar.sty
+texmf-dist/tex/latex/beamer/beamerouterthemesmoothbars.sty
+texmf-dist/tex/latex/beamer/beamerouterthemesmoothtree.sty
+texmf-dist/tex/latex/beamer/beamerouterthemesplit.sty
+texmf-dist/tex/latex/beamer/beamerouterthemetree.sty
+texmf-dist/tex/latex/beamer/beamerthemeAntibes.sty
+texmf-dist/tex/latex/beamer/beamerthemeBergen.sty
+texmf-dist/tex/latex/beamer/beamerthemeBerkeley.sty
+texmf-dist/tex/latex/beamer/beamerthemeBerlin.sty
+texmf-dist/tex/latex/beamer/beamerthemeBoadilla.sty
+texmf-dist/tex/latex/beamer/beamerthemeCopenhagen.sty
+texmf-dist/tex/latex/beamer/beamerthemeDarmstadt.sty
+texmf-dist/tex/latex/beamer/beamerthemeDresden.sty
+texmf-dist/tex/latex/beamer/beamerthemeFrankfurt.sty
+texmf-dist/tex/latex/beamer/beamerthemeGoettingen.sty
+texmf-dist/tex/latex/beamer/beamerthemeHannover.sty
+texmf-dist/tex/latex/beamer/beamerthemeIlmenau.sty
+texmf-dist/tex/latex/beamer/beamerthemeJuanLesPins.sty
+texmf-dist/tex/latex/beamer/beamerthemeLuebeck.sty
+texmf-dist/tex/latex/beamer/beamerthemeMadrid.sty
+texmf-dist/tex/latex/beamer/beamerthemeMalmoe.sty
+texmf-dist/tex/latex/beamer/beamerthemeMarburg.sty
+texmf-dist/tex/latex/beamer/beamerthemeMontpellier.sty
+texmf-dist/tex/latex/beamer/beamerthemePaloAlto.sty
+texmf-dist/tex/latex/beamer/beamerthemePittsburgh.sty
+texmf-dist/tex/latex/beamer/beamerthemeRochester.sty
+texmf-dist/tex/latex/beamer/beamerthemeSingapore.sty
+texmf-dist/tex/latex/beamer/beamerthemeSzeged.sty
+texmf-dist/tex/latex/beamer/beamerthemeWarsaw.sty
+texmf-dist/tex/latex/beamer/beamerthemeboxes.sty
+texmf-dist/tex/latex/beamer/beamerthemedefault.sty
+texmf-dist/tex/latex/beamer/beamerthemebars.sty
+texmf-dist/tex/latex/beamer/beamerthemeclassic.sty
+texmf-dist/tex/latex/beamer/beamerthemecompatibility.sty
+texmf-dist/tex/latex/beamer/beamerthemelined.sty
+texmf-dist/tex/latex/beamer/beamerthemeplain.sty
+texmf-dist/tex/latex/beamer/beamerthemeshadow.sty
+texmf-dist/tex/latex/beamer/beamerthemesidebar.sty
+texmf-dist/tex/latex/beamer/beamerthemesplit.sty
+texmf-dist/tex/latex/beamer/beamerthemetree.sty
+texmf-dist/tpm/beamer.tpm
+ </TPM:RunFiles>
+ <TPM:DocFiles size="4991349">
+texmf-dist/doc/latex/beamer/AUTHORS
+texmf-dist/doc/latex/beamer/ChangeLog
+texmf-dist/doc/latex/beamer/README
+texmf-dist/doc/latex/beamer/TODO
+texmf-dist/doc/latex/beamer/beameruserguide.pdf
+texmf-dist/doc/latex/beamer/examples/beamer-computer-mask.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-computer.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-computerred.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-g4-mask.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-g4.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-g4red.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-ram-mask.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-ram.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-tu-logo-mask.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-tu-logo.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-ur-logo-mask.jpg
+texmf-dist/doc/latex/beamer/examples/beamer-ur-logo.jpg
+texmf-dist/doc/latex/beamer/examples/beamerexample1.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample1.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample2.article.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample2.article.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample2.beamer.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample2.beamer.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample2.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample3.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample3.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample4.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample4.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample5.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample5.tex
+texmf-dist/doc/latex/beamer/examples/beamerexample6.pdf
+texmf-dist/doc/latex/beamer/examples/beamerexample6.tex
+ </TPM:DocFiles>
+ <TPM:SourceFiles>
+ </TPM:SourceFiles>
+ <TPM:Requires>
+ <TPM:Package name="pgf"/>
+ </TPM:Requires>
+ <TPM:Provides>Package/beamer</TPM:Provides>
+ </rdf:Description>
+</rdf:RDF>
+
Copied: tetex-base/trunk/debian/tpm/pgf.tpm (from rev 1237, texlive/trunk/LocalTPM/texmf-dist/tpm/pgf.tpm)
===================================================================
--- texlive/trunk/LocalTPM/texmf-dist/tpm/pgf.tpm 2006-04-21 15:39:49 UTC (rev 1237)
+++ tetex-base/trunk/debian/tpm/pgf.tpm 2006-04-25 13:13:55 UTC (rev 1239)
@@ -0,0 +1,69 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../Tools/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+ <rdf:Description about="http://texlive.dante.de/texlive/Package/pgf.zip">
+ <TPM:Name>pgf</TPM:Name>
+ <TPM:Type>Package</TPM:Type>
+ <TPM:Date>2005/10/23 15:45:00</TPM:Date>
+ <TPM:Version>0.50</TPM:Version>
+ <TPM:Creator>rahtz</TPM:Creator>
+ <TPM:Title>Create PostScript and PDF graphics in TeX.</TPM:Title>
+ <TPM:Description>
+PGF is a macro package for creating graphics directly in TeX and
+LaTeX. Its usage is similar topstricks and the standard picture
+environment. Unlike pstricks
+, it
+produces both PostScript and PDF output and works together with
+latex, dvips, pdftex, and pdflatex. PGF is used extensively withbeamer for production of
+presentations.
+ </TPM:Description>
+ <TPM:Author>Till Tantau</TPM:Author>
+ <TPM:Size>7324754</TPM:Size>
+ <TPM:License>lppl</TPM:License>
+ <TPM:Build/>
+ <TPM:RunFiles size="586118">
+texmf-dist/tex/latex/pgf/pgf.sty
+texmf-dist/tex/latex/pgf/pgfarrows.sty
+texmf-dist/tex/latex/pgf/pgfautomata.sty
+texmf-dist/tex/latex/pgf/pgfheaps.sty
+texmf-dist/tex/latex/pgf/pgfnodes.sty
+texmf-dist/tex/latex/pgf/pgfshade.sty
+texmf-dist/tex/latex/pgf/xxcolor.sty
+texmf-dist/tpm/pgf.tpm
+ </TPM:RunFiles>
+ <TPM:DocFiles size="6738636">
+texmf-dist/doc/latex/pgf/AUTHORS
+texmf-dist/doc/latex/pgf/ChangeLog
+texmf-dist/doc/latex/pgf/README
+texmf-dist/doc/latex/pgf/TODO
+texmf-dist/doc/latex/pgf/pgfuserguide.pdf
+ </TPM:DocFiles>
+ <TPM:SourceFiles size="0">
+texmf-dist/source/latex/pgf/AUTHORS
+texmf-dist/source/latex/pgf/ChangeLog
+texmf-dist/source/latex/pgf/README
+texmf-dist/source/latex/pgf/TODO
+texmf-dist/source/latex/pgf/INSTALL
+texmf-dist/source/latex/pgf/FILES
+texmf-dist/source/latex/pgf/pgf-apple.jpg
+texmf-dist/source/latex/pgf/pgf-apple.mask.jpg
+texmf-dist/source/latex/pgf/pgfarrows.sty
+texmf-dist/source/latex/pgf/pgfautomata.sty
+texmf-dist/source/latex/pgf/pgfheaps.sty
+texmf-dist/source/latex/pgf/pgfnodes.sty
+texmf-dist/source/latex/pgf/pgfshade.sty
+texmf-dist/source/latex/pgf/pgf.sty
+texmf-dist/source/latex/pgf/pgf-tu-logo.25.eps
+texmf-dist/source/latex/pgf/pgf-tu-logo.25.jpg
+texmf-dist/source/latex/pgf/pgf-tu-logo.eps
+texmf-dist/source/latex/pgf/pgf-tu-logo.jpg
+texmf-dist/source/latex/pgf/pgf-tu-logo.mask.jpg
+texmf-dist/source/latex/pgf/pgfuserguide.pdf
+texmf-dist/source/latex/pgf/pgfuserguide.tex
+texmf-dist/source/latex/pgf/README
+texmf-dist/source/latex/pgf/TODO
+texmf-dist/source/latex/pgf/xxcolor.sty
+ </TPM:SourceFiles>
+ <TPM:Provides>Package/pgf</TPM:Provides>
+ </rdf:Description>
+</rdf:RDF>
+
Copied: tetex-base/trunk/debian/tpm/xcolor.tpm (from rev 1237, texlive/trunk/LocalTPM/texmf-dist/tpm/xcolor.tpm)
===================================================================
--- texlive/trunk/LocalTPM/texmf-dist/tpm/xcolor.tpm 2006-04-21 15:39:49 UTC (rev 1237)
+++ tetex-base/trunk/debian/tpm/xcolor.tpm 2006-04-25 13:13:55 UTC (rev 1239)
@@ -0,0 +1,50 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../Tools/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+ <rdf:Description about="http://texlive.dante.de/texlive/Package/xcolor.zip">
+ <TPM:Name>xcolor</TPM:Name>
+ <TPM:Type>Package</TPM:Type>
+ <TPM:Date>2005/10/19 00:11:43</TPM:Date>
+ <TPM:Version>2.03</TPM:Version>
+ <TPM:Creator>rahtz</TPM:Creator>
+ <TPM:Title>
+Driver-independent color extensions for LaTeX and pdfLaTeX.
+ </TPM:Title>
+ <TPM:Description>
+Provides easy driver-independent access to several kinds of
+color tints, shades, tones, and mixes of arbitrary colors. It
+allows a user to select a document-wide target color model and
+offers complete tools for conversion between eight color models.
+Additionally, there is a command for alternating row colors plus
+repeated non-aligned material (like horizontal lines) in tables.
+Colors can be mixed like \color{red!30!green!40!blue}.
+ </TPM:Description>
+ <TPM:Author>Uwe Kern</TPM:Author>
+ <TPM:Size>1073924</TPM:Size>
+ <TPM:License>lppl</TPM:License>
+ <TPM:Build/>
+ <TPM:RunFiles size="56698">
+texmf-dist/tex/latex/xcolor/svgnam.def
+texmf-dist/tex/latex/xcolor/xcolor.sty
+texmf-dist/tpm/xcolor.tpm
+ </TPM:RunFiles>
+ <TPM:DocFiles size="736191">
+texmf-dist/doc/latex/xcolor/ChangeLog
+texmf-dist/doc/latex/xcolor/README
+texmf-dist/doc/latex/xcolor/xcolor.dvi
+texmf-dist/doc/latex/xcolor/xcolor1.tex
+texmf-dist/doc/latex/xcolor/xcolor2.pdf
+texmf-dist/doc/latex/xcolor/xcolor2.tex
+texmf-dist/doc/latex/xcolor/xcolor3.tex
+ </TPM:DocFiles>
+ <TPM:SourceFiles size="281035">
+texmf-dist/source/latex/xcolor/ChangeLog
+texmf-dist/source/latex/xcolor/README
+texmf-dist/source/latex/xcolor/xcolor2.pdf
+texmf-dist/source/latex/xcolor/xcolor.pdf
+texmf-dist/source/latex/xcolor/xcolor.dtx
+texmf-dist/source/latex/xcolor/xcolor.ins
+ </TPM:SourceFiles>
+ <TPM:Provides>Package/xcolor</TPM:Provides>
+ </rdf:Description>
+</rdf:RDF>
+
Deleted: tetex-base/trunk/debian/tpm2licenses-new.pl
===================================================================
--- tetex-base/trunk/debian/tpm2licenses-new.pl 2006-04-25 13:12:58 UTC (rev 1238)
+++ tetex-base/trunk/debian/tpm2licenses-new.pl 2006-04-25 13:13:55 UTC (rev 1239)
@@ -1,420 +0,0 @@
-#!/usr/bin/perl -w
-#
-# tpm2licenses.pl
-# (c) 2005 Norbert Preining
-#
-# Lists for every filename.tpm the license as specified in the catalogue
-#
-# usage:
-# perl tpm2licenses.pl <options> [tpm file]
-# where <options> =
-# --catalogue
-# --nocheckcatalogue
-# --tpmdir
-# --package
-# --master=Path path to the Master
-# optional tpm file: check only that one
-#
-
-BEGIN { # get our other local perl modules.
- ($mydir = $0) =~ s,/[^/]*$,,;
- if ($mydir eq $0) { $mydir = `pwd` ; chomp($mydir); }
- if (!($mydir =~ m,/.*,,)) { $mmydir = `pwd`; chomp($mmydir); $mydir = "$mmydir/$mydir" ; }
- unshift (@INC, $mydir);
-# unshift (@INC, "$mydir/..");
-}
-
-use strict;
-use Data::Dumper;
-#use Getopt::Long;
-use File::Basename;
-use File::Copy;
-use File::Path;
-use File::Temp qw/ tempfile tempdir /;
-use AppConfig;
-#use XML::DOM;
-use Cwd;
-#use FileUtils qw(canon_dir cleandir make_link newpath member
-# normalize substitute_var_val dirname diff_list remove_list
-# rec_rmdir sync_dir walk_dir start_redirection stop_redirection);
-#use Tpm;
-
-
-# initialize AppConfig
-my $config = AppConfig->new("master=s", "catalogue=s", "nocheckcatalogue", "tpmdir=s", "package=s", "what=s");
-
-# parse configurationfile, if present
-my @cfgDirs = (".","./debian","..","~");
-my $cfgName = ".tpm2license.cfg";
-
-for my $cfgDir (@cfgDirs) {
- if ( -r "$cfgDir/$cfgName" ) {
- print STDERR "Using configuration file $cfgDir/$cfgName\n";
- $config->file("$cfgDir/$cfgName");
- };
- };
-# now parse commandline
-$config->getopt();
-
-# assign conffile, commandline or default values:
-my $Master = $config->master() ? $config->master() : "." ;
-my $Catalogue = $config->catalogue() ? $config->catalogue() : "/src/TeX/texcatalogue/" ;
-my $what = $config->what() ? $config->what() : "files";
-my $debian_package = $config->package() ? $config->package() : "tetex-base";
-my $tpmdir = $config->tpmdir() ? $config->tpmdir() : "./debian/tpm";
-my $nocatalogue = $config->nocheckcatalogue() ? $config->nocheckcatalogue() : '';
-
-# if (!($opt_master =~ m,/.*$,,)) {
-# $Master = `pwd`;
-# chomp($Master);
-# $Master .= "/$opt_master";
-# } else {
-# $Master = $opt_master;
-# }
-# $what = $opt_what;
-
-if ($debian_package) {
- die "Unknown Debian package: $debian_package." unless
- ( $debian_package =~ /^tetex-base$/ ||
- $debian_package =~ /^tetex-src$/ ||
- $debian_package =~ /^texlive-base$/ ||
- $debian_package =~ /^texlive-extra$/ ||
- $debian_package =~ /^texlive-lang$/ ||
- $debian_package =~ /^texlive-doc$/ ||
- $debian_package =~ /^texlive-bin$/ );
-};
-
-# my $TpmGlobalPath = $Master;
-# my $DataGlobalPath = $Master;
-
-# texlive
-# my $TpmDirGlob = $Master . "./texmf-dist/tpm/*.tpm";
-# teTeX
-my $TpmDirGlob = "$tpmdir/*.tpm";
-
-# only needed if we're in the sourcedir, so no need to bother
-my $sourceDir;
-chomp( $sourceDir = `pwd`);
-$sourceDir .= "/";
-
-#
-# put Master/Tools/ into the include path to find TeX live perl modules
-#
-# unshift (@INC, "$Master/Tools");
-#
-# these we can only load now that we have correctly set the path to Master
-#
-# require Strict;
-require XML::DOM;
-require FileUtils;
-import FileUtils qw(canon_dir cleandir make_link newpath member
- normalize substitute_var_val diff_list remove_list
- rec_rmdir sync_dir walk_dir start_redirection stop_redirection);
-require Tpm;
-#
-# what the hell, how do I import this array from Tpm.pm ???
-#
-my %Tpm2Catalogue = (
- "ctib" => "ctib4tex",
- "CJK" => "cjk",
- "bayer" => "universa",
- "bigfoot" => "suffix",
- "cb" => "cbgreek",
- "cd-cover" => "cdcover",
- "cmex" => "cmextra",
- "cs" => "csfonts",
- "cyrplain" => "t2",
- "devanagr" => "devanagari",
- "eCards" => "ecards",
- "ESIEEcv" => "esieecv",
- "euclide" => "pst-eucl",
- "GuIT" => "guit",
- "HA-prosper" => "prosper",
- "ibycus" => "ibycus4",
- "ibygrk" => "ibycus4",
- "IEEEconf" => "ieeeconf",
- "IEEEtran" => "ieeetran",
- "iso" => "isostds",
- "iso10303" => "isostds",
- "jknapltx" => "jknappen",
- "kastrup" => "binhex",
- "le" => "frenchle",
- "mathtime" => "mathtime-ltx",
- "omega-devanagari" => "devanagari-omega",
- "pdftexdef" => "pdftex-def",
- "procIAGssymp" => "prociagssymp",
- "resume" => "res",
- "SIstyle" => "sistyle",
- "SIunits" => "siunits",
- "syntax" => "syntax2",
- "Tabbing" => "tabbing" );
-
-my $parser = new XML::DOM::Parser;
-my $startdir=getcwd();
-chdir($startdir);
-File::Basename::fileparse_set_fstype('unix');
-
-my @TpmList;
-
-if (@ARGV) {
- # we have a (list of) packages on the command line
- @TpmList = @ARGV;
-}
-else {
- create_tpmlist();
-};
-
-list_licenses();
-
-1;
-
-my $LocalTPM;
-my $licline;
-my $bn;
-my $pkgcat;
-my $node;
-my $printfiles = '';
-
-sub create_tpmlist {
-
- if ( $debian_package =~ /^tetex-/ ) {
- foreach (<$TpmDirGlob >) {push(@TpmList,$_)};
- };
-
- if ( $debian_package =~ /^texlive-/ ) {
- my $cfgfile = "../../" . $debian_package . ".tpm4licenses.cfg";
- my @cfgLines;
- open CFGFILE, $cfgfile or die "could not open $cfgfile";
- while (<CFGFILE>) {
- # this could go into one line (next if...) if only Emacs would grok it...
- if (m/^#/) {
- next ;
- }
- chomp;
- push(@cfgLines,$_);
- };
- for (@cfgLines) {
- my $tpmFullname;
- if ( -f "texmf/tpm/" . $_ ) {
- $tpmFullname = "texmf/tpm/" . $_
- }
- elsif ( -f "texmf-dist/tpm/" . $_ ) {
- $tpmFullname = "texmf-dist/tpm/" . $_
- }
- elsif ( -f "texmf-doc/tpm/" . $_ ) {
- $tpmFullname = "texmf-doc/tpm/" . $_
- }
- else {
- print STDERR "Could not find $_\n";
- exit 1;
- };
- push(@TpmList,$tpmFullname);
- };
- }; #end texlive
-};
-
-sub list_licenses {
- foreach $LocalTPM (@TpmList) {
- $licline = "";
- $bn = &basename($LocalTPM,".tpm");
- if (defined($Tpm2Catalogue{$bn})) {
- $pkgcat = $Tpm2Catalogue{$bn};
- } else {
- $pkgcat = $bn;
- }
- $licline .= "$bn: ";
- my $fletter = substr($pkgcat, 0, 1);
- my $catname = "${Catalogue}/entries/$fletter/${pkgcat}.xml";
- if (! -r $catname) {
- $catname = "$tpmdir/${pkgcat}.xml";
- if (! -r $catname) {
- $licline .= "not-in-catalogue";
- unless ($nocatalogue || $pkgcat =~ m/^individual.*/) {
- print "$licline\n";
- next;
- };
-# } else {
-# print STDERR "found ${pkgcat}.xml in $tpmdir\n";
- };
- }
- my $ltype;
- unless ($nocatalogue || $pkgcat =~ m/^individual.*/) {
- #don't try to parse the xml file if we don't have a catalogue
- my $cat = $parser->parsefile($catname);
- my ($version, $lversion, $lchecked, $luser, $lfile);
- $node = $cat->getElementsByTagName("version")->item(0);
- if ($node) {
- $version = $node->getAttribute("number");
- }
- $node = $cat->getElementsByTagName("license")->item(0);
- if ($node) {
- # ok we have a license entry in there
- $ltype = $node->getAttribute("type");
- $lversion = $node->getAttribute("version");
- $lchecked = $node->getAttribute("checked");
- $luser = $node->getAttribute("username");
- $lfile = $node->getAttribute("file");
- }
- if ("$lversion$lchecked$luser" eq "") {
- if ("$ltype" eq "") {
- $licline .= "unknown";
- } else {
- $licline .= "$ltype (unverified)";
- # we know the license, it makes sense to output the files
- $printfiles = '1';
- }
- } else {
- $version ||= ''; # make sure we have no uninitialized string values
- $lversion ||= '';
- $licline .= "$ltype (verification data:$version:$lversion:$lchecked:$luser:$lfile)";
- $printfiles = '1';
- }
- }
- if ( $pkgcat =~ m/^individual.*/ ) {
- $ltype = $pkgcat;
- $ltype =~ s/individual_(.*)/$1/;
- $licline = "$pkgcat $ltype (verification data:::::header)";
- $printfiles = '1';
- };
- $what eq "license" && print "$licline\n";
- # we know the license, it makes sense to output the files
- $what eq "files" && ($printfiles || $nocatalogue) && printFiles($LocalTPM,$licline);
- }
-
-
- sub printFiles {
- my ($LocalTPM,$licline)= @_;
- my $pkg_header = "% " . $licline;
- my $dom_parser = new XML::DOM::Parser;
- my $doc = $dom_parser->parsefile($LocalTPM);
- my %SourceFiles = Tpm::getListField($doc, "SourceFiles");
- my %RunFiles = Tpm::getListField($doc, "RunFiles");
- my %DocFiles = Tpm::getListField($doc, "DocFiles");
-
- foreach ($RunFiles{"text"}, $DocFiles{"text"}, $SourceFiles{"text"}) {
- # this is already done in Tpm.pm, why isn't that sufficient?
- $_ =~ s/^\n*// ;
- # remove the texmf-dist/ we don't need
- $_ =~ s at texmf-dist/@@g;
- # make sure there's exactly one newline at the end
- chomp;
- $_ =~ s/$/\n/ ;
- };
-
- # we don't want the tpm file which isn't installed
- $RunFiles{"text"} =~ s/\n.*\.tpm$//m;
-
- my @SourceFiles = split(/\n/m,$SourceFiles{"text"});
- my @RunFiles = split(/\n/m,$RunFiles{"text"});
- my @DocFiles = split(/\n/m,$DocFiles{"text"});
- foreach (@SourceFiles) {
- s/^\s//;
- s@^[\s\n]*(.*)[\s\n]*$@$1 at so;
- s@\n\s*@\n at gm;
- };
- foreach (@RunFiles) {
- s/\s//;
- s@^[\s\n]*(.*)[\s\n]*$@$1 at so;
- s@\n\s*@\n at gm;
- };
- foreach (@DocFiles) {
- s/\s//;
- s@^[\s\n]*(.*)[\s\n]*$@$1 at so;
- s@\n\s*@\n at gm;
- };
- @DocFiles = grep(!/^$/, at DocFiles);
- @RunFiles = grep(!/^$/, at RunFiles);
- @SourceFiles = grep(!/^$/, at SourceFiles);
-
- for ($debian_package) {
- my @texmfPath;
- if ( /^texlive/ ) {
- @texmfPath = ("texmf","texmf-dist","texmf-doc");
- foreach (@RunFiles) {CheckFileExistence($_,\@texmfPath)};
- foreach (@DocFiles) {CheckFileExistence($_,\@texmfPath)};
- foreach (@SourceFiles) {CheckFileExistence($_,\@texmfPath)};
- MergeDirectories(\@RunFiles,\@texmfPath);
- MergeDirectories(\@DocFiles,\@texmfPath) if (@DocFiles);
- MergeDirectories(\@SourceFiles,\@texmfPath) if (@SourceFiles);
- print "\n" . $pkg_header . "\n";
- print @RunFiles;
- print @DocFiles;
- print @SourceFiles;
- };
- if ( /^tetex-base$/ ) {
- @texmfPath = (".");
- foreach (@RunFiles) {CheckFileExistence($_,\@texmfPath)};
- foreach (@DocFiles) {CheckFileExistence($_,\@texmfPath)};
-
- MergeDirectories(\@RunFiles,\@texmfPath);
- MergeDirectories(\@DocFiles,\@texmfPath) if (@DocFiles);
- print "\n" . $pkg_header . "\n";
- print @RunFiles;
- print @DocFiles;
- };
- if ( /^tetex-src$/ ) {
- foreach (@SourceFiles) {CheckFileExistence($_,\@texmfPath)};
- MergeDirectories(\@SourceFiles,\@texmfPath);
- unless (! @SourceFiles) {
- print "\n" . $pkg_header . "\n";
- print @SourceFiles;
- }
- };
- };
- }
-
- sub CheckFileExistence {
- my ($file, at texmfPath) = ($_[0],@{$_[1]});
- my $found = 0;
- foreach my $texmfDir (@texmfPath) {
- -f $texmfDir . "/" . $file && ($found =1);
- };
- print STDERR "$file: Does not exist!\n" if ! $found;
- }
-
- sub MergeDirectories {
- my ($filelist, at texmfPath) = ($_[0],@{$_[1]}); # $filelist is actually a pointer
- # create a list of dirnames, and remove duplicates
- my @dirnames = map {dirname($_) } @{$filelist};
- my %UniqueHash = map { $_ , 1 } @dirnames;
- @dirnames = keys %UniqueHash;
-
- # For searching, we create a hash that contains the filenames as keys:
- my %SearchHash;
- %SearchHash = map { $_, 1 } @{$filelist} ;
-
- my %DirComplete = map { $_, 1 } @dirnames;
- for (@dirnames) {
- my $dirname = $_;
- my $fullDir;
- my $rootDir;
- for (@texmfPath) {
- if ( -d ( $_ . "/" . $dirname )) {
- $rootDir = $_;
- $fullDir = ( $_ . "/" . $dirname );
- };
- };
- $fullDir or die "This should not happen: no directory $dirname, nowhere.";
- my @InstalledFiles = `find $fullDir -maxdepth 1 -type f 2>/dev/null | grep -v tetex`
- or die "Calling find for $dirname, expanded to $fullDir, failed.";
- for (@InstalledFiles) {
- chomp;
- s@^$rootDir/@@;
- $DirComplete{$dirname} = 0 unless $SearchHash{$_};
- };
- if ( $DirComplete{$dirname} ) {
- for (@{$filelist} ) {
- # replace the file by its directory name
- s@$dirname/.*@$dirname/*@;
- };
- };
-# print STDERR "Directory $_ is $DirComplete{$dirname}\n";
- };
-
- # now the complete directories occur multiple times, remove duplicates again
- %UniqueHash = map { ("$_\n" , 1) } @{$filelist} ;
- @{$filelist} = keys %UniqueHash;
- }
-
-}
-
More information about the Pkg-tetex-commits
mailing list