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 - $_ =~ [EMAIL PROTECTED]/@@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//; - [EMAIL PROTECTED](.*)[EMAIL PROTECTED]@so; - [EMAIL PROTECTED]@[EMAIL PROTECTED]; - }; - foreach (@RunFiles) { - s/\s//; - [EMAIL PROTECTED](.*)[EMAIL PROTECTED]@so; - [EMAIL PROTECTED]@[EMAIL PROTECTED]; - }; - foreach (@DocFiles) { - s/\s//; - [EMAIL PROTECTED](.*)[EMAIL PROTECTED]@so; - [EMAIL PROTECTED]@[EMAIL PROTECTED]; - }; - @DocFiles = grep(!/^$/,@DocFiles); - @RunFiles = grep(!/^$/,@RunFiles); - @SourceFiles = grep(!/^$/,@SourceFiles); - - for ($debian_package) { - my @texmfPath; - if ( /^texlive/ ) { - @texmfPath = ("texmf","texmf-dist","texmf-doc"); - foreach (@RunFiles) {CheckFileExistence($_,[EMAIL PROTECTED])}; - foreach (@DocFiles) {CheckFileExistence($_,[EMAIL PROTECTED])}; - foreach (@SourceFiles) {CheckFileExistence($_,[EMAIL PROTECTED])}; - MergeDirectories([EMAIL PROTECTED],[EMAIL PROTECTED]); - MergeDirectories([EMAIL PROTECTED],[EMAIL PROTECTED]) if (@DocFiles); - MergeDirectories([EMAIL PROTECTED],[EMAIL PROTECTED]) if (@SourceFiles); - print "\n" . $pkg_header . "\n"; - print @RunFiles; - print @DocFiles; - print @SourceFiles; - }; - if ( /^tetex-base$/ ) { - @texmfPath = ("."); - foreach (@RunFiles) {CheckFileExistence($_,[EMAIL PROTECTED])}; - foreach (@DocFiles) {CheckFileExistence($_,[EMAIL PROTECTED])}; - - MergeDirectories([EMAIL PROTECTED],[EMAIL PROTECTED]); - MergeDirectories([EMAIL PROTECTED],[EMAIL PROTECTED]) if (@DocFiles); - print "\n" . $pkg_header . "\n"; - print @RunFiles; - print @DocFiles; - }; - if ( /^tetex-src$/ ) { - foreach (@SourceFiles) {CheckFileExistence($_,[EMAIL PROTECTED])}; - MergeDirectories([EMAIL PROTECTED],[EMAIL PROTECTED]); - unless (! @SourceFiles) { - print "\n" . $pkg_header . "\n"; - print @SourceFiles; - } - }; - }; - } - - sub CheckFileExistence { - my ($file,@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,@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; - [EMAIL PROTECTED]/@@; - $DirComplete{$dirname} = 0 unless $SearchHash{$_}; - }; - if ( $DirComplete{$dirname} ) { - for (@{$filelist} ) { - # replace the file by its directory name - [EMAIL PROTECTED]/[EMAIL PROTECTED]/*@; - }; - }; -# 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; - } - -} - _______________________________________________ Pkg-tetex-commits mailing list [email protected] http://lists.alioth.debian.org/mailman/listinfo/pkg-tetex-commits
