[subversion-commit] SVN tetex-base commit + diffs: r1006 - in tetex-base/trunk/debian: . tpm

Frank Küster frank at costa.debian.org
Sat Mar 4 19:55:05 UTC 2006


Author: frank
Date: 2006-03-04 19:55:04 +0000 (Sat, 04 Mar 2006)
New Revision: 1006

Added:
   tetex-base/trunk/debian/tpm/
   tetex-base/trunk/debian/tpm/fontinst.tpm
   tetex-base/trunk/debian/tpm/wasysym.tpm
   tetex-base/trunk/debian/tpm/xkeyval.tpm
Modified:
   tetex-base/trunk/debian/tpm2licenses-new.pl
Log:
tetex-specific changes to tpm2licenses-new, some test tpm files

Added: tetex-base/trunk/debian/tpm/fontinst.tpm
===================================================================
--- tetex-base/trunk/debian/tpm/fontinst.tpm	2006-03-04 19:54:01 UTC (rev 1005)
+++ tetex-base/trunk/debian/tpm/fontinst.tpm	2006-03-04 19:55:04 UTC (rev 1006)
@@ -0,0 +1,215 @@
+<!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/fontinst.zip">
+    <TPM:Name>fontinst</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2004/09/18 14:31:50</TPM:Date>
+    <TPM:Version>1.926</TPM:Version>
+    <TPM:Creator>rahtz</TPM:Creator>
+    <TPM:Title>Help with installing fonts for TeX and LaTeX.</TPM:Title>
+    <TPM:Description>
+TeX macros for converting Adobe Font Metric files to TeX metric
+and virtual font format. Fontinst helps mainly with the number
+crunching and shoveling parts of font installation. This means
+in practice that it creates a number of files which give the TeX
+metrics (and related information) for a font family that (La)TeX
+needs to do any typesetting in these fonts. Fontinst furthermore
+makes it easy to create fonts containing glyphs from more than
+one base font, taking advantage of e.g. &quot;expert&quot; font sets.
+Fontinst cannot examine files to see if they contain any useful
+information, nor automatically search for files or work with
+binary file formats; those tasks must normally be done manually
+or with the help of some other tool, such as the pltotf and
+vptovf programs.
+    </TPM:Description>
+    <TPM:Author>unknown</TPM:Author>
+    <TPM:Size>5643249</TPM:Size>
+    <TPM:License>lppl</TPM:License>
+    <TPM:Build/>
+    <TPM:RunFiles size="1105293">
+texmf-dist/tex/fontinst/base/bbox.sty
+texmf-dist/tex/fontinst/base/cfntinst.sty
+texmf-dist/tex/fontinst/base/finstmsc.sty
+texmf-dist/tex/fontinst/base/fontinst.ini
+texmf-dist/tex/fontinst/base/fontinst.sty
+texmf-dist/tex/fontinst/base/trig.sty
+texmf-dist/tex/fontinst/base/xfntinst.sty
+texmf-dist/tex/fontinst/cyrfinst/6r.etx
+texmf-dist/tex/fontinst/cyrfinst/README
+texmf-dist/tex/fontinst/cyrfinst/cyrillic.mtx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyc.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyci.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcycij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcycj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyi.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyitt.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/lcytt.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/ot2c.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/ot2cj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/ot2i.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/ot2ij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/ot2j.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2ac.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2acj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2ai.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2aij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2aj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2bc.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2bcj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2bi.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2bij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2bj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2cc.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2ccj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2ci.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2cij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/t2cj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/x2c.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/x2cj.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/x2i.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/x2ij.etx
+texmf-dist/tex/fontinst/cyrfinst/derivatives/x2j.etx
+texmf-dist/tex/fontinst/cyrfinst/etc/alias-cmc.tex
+texmf-dist/tex/fontinst/cyrfinst/etc/alias-wncy.tex
+texmf-dist/tex/fontinst/cyrfinst/etc/cyralias.tex
+texmf-dist/tex/fontinst/cyrfinst/etc/fnstcorr.tex
+texmf-dist/tex/fontinst/cyrfinst/etc/showenc
+texmf-dist/tex/fontinst/cyrfinst/lcy-hi.etx
+texmf-dist/tex/fontinst/cyrfinst/lcy.etx
+texmf-dist/tex/fontinst/cyrfinst/ot2.etx
+texmf-dist/tex/fontinst/cyrfinst/t2a.etx
+texmf-dist/tex/fontinst/cyrfinst/t2b.etx
+texmf-dist/tex/fontinst/cyrfinst/t2c.etx
+texmf-dist/tex/fontinst/cyrfinst/x2.etx
+texmf-dist/tex/fontinst/latinetx/8r.etx
+texmf-dist/tex/fontinst/latinetx/8y.etx
+texmf-dist/tex/fontinst/latinetx/ot1.etx
+texmf-dist/tex/fontinst/latinetx/ot1c.etx
+texmf-dist/tex/fontinst/latinetx/ot1cj.etx
+texmf-dist/tex/fontinst/latinetx/ot1ctt.etx
+texmf-dist/tex/fontinst/latinetx/ot1i.etx
+texmf-dist/tex/fontinst/latinetx/ot1ij.etx
+texmf-dist/tex/fontinst/latinetx/ot1itt.etx
+texmf-dist/tex/fontinst/latinetx/ot1j.etx
+texmf-dist/tex/fontinst/latinetx/ot1tt.etx
+texmf-dist/tex/fontinst/latinetx/t1.etx
+texmf-dist/tex/fontinst/latinetx/t1c.etx
+texmf-dist/tex/fontinst/latinetx/t1cj.etx
+texmf-dist/tex/fontinst/latinetx/t1i.etx
+texmf-dist/tex/fontinst/latinetx/t1ij.etx
+texmf-dist/tex/fontinst/latinetx/t1j.etx
+texmf-dist/tex/fontinst/latinetx/txtfdmns.etx
+texmf-dist/tex/fontinst/latinmtx/8r.mtx
+texmf-dist/tex/fontinst/latinmtx/8y.mtx
+texmf-dist/tex/fontinst/latinmtx/latin.mtx
+texmf-dist/tex/fontinst/latinmtx/latinsc.mtx
+texmf-dist/tex/fontinst/latinmtx/llbuild.mtx
+texmf-dist/tex/fontinst/latinmtx/lsbuild.mtx
+texmf-dist/tex/fontinst/latinmtx/lsfake.mtx
+texmf-dist/tex/fontinst/latinmtx/lsmisc.mtx
+texmf-dist/tex/fontinst/latinmtx/ltcmds.mtx
+texmf-dist/tex/fontinst/latinmtx/ltpunct.mtx
+texmf-dist/tex/fontinst/latinmtx/lubuild.mtx
+texmf-dist/tex/fontinst/latinmtx/newlatin.mtx
+texmf-dist/tex/fontinst/latinmtx/resetsc.mtx
+texmf-dist/tex/fontinst/latinmtx/unsetalf.mtx
+texmf-dist/tex/fontinst/mathetx/euex.etx
+texmf-dist/tex/fontinst/mathetx/eufrak.etx
+texmf-dist/tex/fontinst/mathetx/eurm.etx
+texmf-dist/tex/fontinst/mathetx/euscr.etx
+texmf-dist/tex/fontinst/mathetx/msam.etx
+texmf-dist/tex/fontinst/mathetx/msbm.etx
+texmf-dist/tex/fontinst/mathetx/oml.etx
+texmf-dist/tex/fontinst/mathetx/oms.etx
+texmf-dist/tex/fontinst/mathetx/omx.etx
+texmf-dist/tex/fontinst/mathetx/rsfs.etx
+texmf-dist/tex/fontinst/mathmtx/mathex.mtx
+texmf-dist/tex/fontinst/mathmtx/mathit.mtx
+texmf-dist/tex/fontinst/mathmtx/mathsy.mtx
+texmf-dist/tex/fontinst/misc/csc2x.tex
+texmf-dist/tex/fontinst/misc/csckrn2x.tex
+texmf-dist/tex/fontinst/misc/glyphbox.aux
+texmf-dist/tex/fontinst/misc/glyphbox.dvi
+texmf-dist/tex/fontinst/misc/glyphbox.log
+texmf-dist/tex/fontinst/misc/glyphbox.mtx
+texmf-dist/tex/fontinst/misc/glyphoff.mtx
+texmf-dist/tex/fontinst/misc/glyphon.mtx
+texmf-dist/tex/fontinst/misc/kernoff.mtx
+texmf-dist/tex/fontinst/misc/kernon.mtx
+texmf-dist/tex/fontinst/misc/osf2x.tex
+texmf-dist/tex/fontinst/smbletx/digit2.etx
+texmf-dist/tex/fontinst/smbletx/ts1.etx
+texmf-dist/tex/fontinst/smbletx/ts1i.etx
+texmf-dist/tex/fontinst/smbletx/ts1ij.etx
+texmf-dist/tex/fontinst/smbletx/ts1j.etx
+texmf-dist/tex/fontinst/smblmtx/resetosf.mtx
+texmf-dist/tex/fontinst/smblmtx/textcomp.mtx
+texmf-dist/tex/fontinst/smblmtx/unsetnum.mtx
+texmf-dist/tex/latex/fontinst/fontdoc.sty
+texmf-dist/tpm/fontinst.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="1360308">
+texmf-dist/doc/fontinst/base/README
+texmf-dist/doc/fontinst/base/encspecs/encspecs.tex
+texmf-dist/doc/fontinst/base/encspecs/omxdraft.etx
+texmf-dist/doc/fontinst/base/encspecs/ot1draft.etx
+texmf-dist/doc/fontinst/base/encspecs/t1draft.etx
+texmf-dist/doc/fontinst/base/examples/basicex.tex
+texmf-dist/doc/fontinst/base/examples/basicex2.tex
+texmf-dist/doc/fontinst/base/manual/fontinst.pdf
+texmf-dist/doc/fontinst/base/manual/fontinst.tex
+texmf-dist/doc/fontinst/base/manual/intro98.pdf
+texmf-dist/doc/fontinst/base/manual/intro98.tex
+texmf-dist/doc/fontinst/base/manual/roadmap.eps
+texmf-dist/doc/fontinst/base/talks/et99-font-tables.pdf
+texmf-dist/doc/fontinst/base/talks/et99-font-tutorial.pdf
+texmf-dist/doc/fontinst/base/test/comparemetrics.sty
+texmf-dist/doc/fontinst/base/test/comparepls.tex
+texmf-dist/doc/fontinst/base/test/scaledtest.tex
+texmf-dist/doc/fontinst/base/test/speedtest1.tex
+texmf-dist/doc/fontinst/base/test/testfont.tex
+texmf-dist/doc/fontinst/base/test/testsc.tex
+texmf-dist/doc/fontinst/base/test/v1901test.tex
+texmf-dist/doc/fontinst/base/test/v1902test.tex
+texmf-dist/doc/fontinst/base/test/v1905test.tex
+texmf-dist/doc/fontinst/base/test/v1906test.tex
+texmf-dist/doc/fontinst/base/test/v1913test.tex
+texmf-dist/doc/fontinst/base/test/v1914test.tex
+texmf-dist/doc/fontinst/base/test/v1914testmap.tex
+texmf-dist/doc/fontinst/base/test/v1915test.tex
+texmf-dist/doc/fontinst/base/test/v1915testmap.tex
+texmf-dist/doc/fontinst/base/test/v1916test.tex
+texmf-dist/doc/fontinst/base/test/v1916test2.tex
+texmf-dist/doc/fontinst/base/test/v1923test.tex
+texmf-dist/doc/fontinst/base/test/v1927test.tex
+    </TPM:DocFiles>
+    <TPM:SourceFiles size="3177648">
+texmf-dist/source/fontinst/base/CHANGES
+texmf-dist/source/fontinst/base/fibasics.dtx
+texmf-dist/source/fontinst/base/ficommon.dtx
+texmf-dist/source/fontinst/base/ficonv.dtx
+texmf-dist/source/fontinst/base/filtfam.dtx
+texmf-dist/source/fontinst/base/fimain.dtx
+texmf-dist/source/fontinst/base/fimapgen.dtx
+texmf-dist/source/fontinst/base/fisource.dvi
+texmf-dist/source/fontinst/base/fisource.sty
+texmf-dist/source/fontinst/base/fisource.tex
+texmf-dist/source/fontinst/base/fontinst.ins
+texmf-dist/source/fontinst/base/trig.dtx
+texmf-dist/source/fontinst/base/xdoc/README
+texmf-dist/source/fontinst/base/xdoc/docindex.dtx
+texmf-dist/source/fontinst/base/xdoc/docindex.ins
+texmf-dist/source/fontinst/base/xdoc/docindex.pdf
+texmf-dist/source/fontinst/base/xdoc/xdoc2.dtx
+texmf-dist/source/fontinst/base/xdoc/xdoc2.ins
+texmf-dist/source/fontinst/base/xdoc/xdoc2.pdf
+texmf-dist/source/fontinst/base/xdoc/xdocdemo.pdf
+texmf-dist/source/fontinst/base/xdoc/xdocdemo.tex
+    </TPM:SourceFiles>
+    <TPM:Provides>Package/fontinst</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+

Added: tetex-base/trunk/debian/tpm/wasysym.tpm
===================================================================
--- tetex-base/trunk/debian/tpm/wasysym.tpm	2006-03-04 19:54:01 UTC (rev 1005)
+++ tetex-base/trunk/debian/tpm/wasysym.tpm	2006-03-04 19:55:04 UTC (rev 1006)
@@ -0,0 +1,40 @@
+<!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/wasysym.zip">
+    <TPM:Name>wasysym</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2004/01/03 23:12:38</TPM:Date>
+    <TPM:Version>1.0i</TPM:Version>
+    <TPM:Creator>rahtz</TPM:Creator>
+    <TPM:Title>LaTeX support file to use the WASY2 fonts</TPM:Title>
+    <TPM:Description>
+The WASY2 
+(Waldi Symbol) font by Roland
+Waldi provides many glyphs like male and female symbols and
+astronomical symbols, as well as the complete lasy font set and
+other odds and ends.  The wasysym package implements an easy to
+use interface for these symbols.
+    </TPM:Description>
+    <TPM:Author>Axel Kielhorn</TPM:Author>
+    <TPM:Size>147569</TPM:Size>
+    <TPM:License>lppl</TPM:License>
+    <TPM:Build/>
+    <TPM:RunFiles size="16338">
+texmf-dist/tex/latex/wasysym/uwasy.fd
+texmf-dist/tex/latex/wasysym/uwasyvar.fd
+texmf-dist/tex/latex/wasysym/wasysym.sty
+texmf-dist/tpm/wasysym.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="102785">
+texmf-dist/doc/latex/wasysym/wasysym.pdf
+texmf-dist/doc/latex/wasysym/wasysym.upl
+texmf-dist/doc/latex/wasysym/wasysym.xml
+    </TPM:DocFiles>
+    <TPM:SourceFiles size="28446">
+texmf-dist/source/latex/wasysym/wasysym.dtx
+texmf-dist/source/latex/wasysym/wasysym.ins
+    </TPM:SourceFiles>
+    <TPM:Provides>Package/wasysym</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+

Added: tetex-base/trunk/debian/tpm/xkeyval.tpm
===================================================================
--- tetex-base/trunk/debian/tpm/xkeyval.tpm	2006-03-04 19:54:01 UTC (rev 1005)
+++ tetex-base/trunk/debian/tpm/xkeyval.tpm	2006-03-04 19:55:04 UTC (rev 1006)
@@ -0,0 +1,42 @@
+<!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/xkeyval.zip">
+    <TPM:Name>xkeyval</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2005/08/25 06:34:00</TPM:Date>
+    <TPM:Version>2.5c</TPM:Version>
+    <TPM:Creator>rahtz</TPM:Creator>
+    <TPM:Title>Extension of the keyval package.</TPM:Title>
+    <TPM:Description>
+This package is an extension of thekeyval 
+package and offers additional
+macros for setting keys and declaring and setting class or
+package options.  The package allows the programmer to specify a
+prefix to the name of the macros it defines for keys, and to
+define families of key definitions; these all help use in
+documents where several packages define their own sets of keys.
+    </TPM:Description>
+    <TPM:Author>Hendri Adriaens</TPM:Author>
+    <TPM:Size>731659</TPM:Size>
+    <TPM:License>lppl</TPM:License>
+    <TPM:Build/>
+    <TPM:RunFiles size="51199">
+texmf-dist/tex/latex/xkeyval/keyval.tex
+texmf-dist/tex/latex/xkeyval/pst-xkey.sty
+texmf-dist/tex/latex/xkeyval/pst-xkey.tex
+texmf-dist/tex/latex/xkeyval/xkeyval.sty
+texmf-dist/tex/latex/xkeyval/xkeyval.tex
+texmf-dist/tex/latex/xkeyval/xkvltxp.sty
+texmf-dist/tex/latex/xkeyval/xkvtxhdr.tex
+texmf-dist/tex/latex/xkeyval/xkvview.sty
+texmf-dist/tpm/xkeyval.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="466895">
+texmf-dist/doc/latex/xkeyval/README
+texmf-dist/doc/latex/xkeyval/xkeyval.pdf
+    </TPM:DocFiles>
+    <TPM:SourceFiles size="213565">texmf-dist/source/latex/xkeyval/xkeyval.dtx</TPM:SourceFiles>
+    <TPM:Provides>Package/xkeyval</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+

Modified: tetex-base/trunk/debian/tpm2licenses-new.pl
===================================================================
--- tetex-base/trunk/debian/tpm2licenses-new.pl	2006-03-04 19:54:01 UTC (rev 1005)
+++ tetex-base/trunk/debian/tpm2licenses-new.pl	2006-03-04 19:55:04 UTC (rev 1006)
@@ -20,7 +20,7 @@
 #  unshift (@INC, "$mydir/..");
 }
 
-#use Strict;
+use strict;
 use Getopt::Long;
 use File::Basename;
 use File::Copy;
@@ -34,15 +34,20 @@
 #use Tpm;
 
 
-$opt_debug=0;
-$opt_master=".";
-$opt_catalogue="/src/TeX/texcatalogue/";
+# $opt_debug=0; # unused
+my $opt_master=".";
+my $opt_catalogue="/src/TeX/texcatalogue/";
+my $opt_what="license";
+my $Master;
+my $what;
 
 GetOptions ("debug!", 	# debug mode
 	"master=s" => \$opt_master,	# location of Master
-	"catalogue=s" => \$opt_catalogue	# location of the catalogue
+	"catalogue=s" => \$opt_catalogue,	# location of the catalogue
+	"what=s" => \$opt_what      # print licenses or files in a tpm?
 	);
  
+
 if (!($opt_master =~ m,/.*$,,)) {
     $Master = `pwd`;
     chomp($Master);
@@ -50,9 +55,17 @@
 } else {
     $Master = $opt_master;
 }
+$what = $opt_what;
+
 my $TpmGlobalPath = $Master;
 my $DataGlobalPath = $Master;
 
+# texlive
+# my $TpmDirGlob = $Master . "./texmf-dist/tpm/*.tpm";
+# teTeX
+my $TpmDirGlob = "./debian/tpm/*.tpm";
+
+
 #
 # put Master/Tools/ into the include path to find TeX live perl modules
 #
@@ -114,10 +127,17 @@
 
 1;
 
+my $LocalTPM;
+my $licline;
+my $bn;
+my $pkgcat;
+my $node;
+
 sub list_licenses {
-   foreach $f (<./texmf-dist/tpm/*.tpm>) {
+   foreach $LocalTPM (<$TpmDirGlob >) {
+#     foreach $LocalTPM (</home/frank/src/Packages/texlive/texlive/LocalTPM/texmf-dist/tpm/*.tpm>) {
       $licline = "";
-      $bn = &basename($f,".tpm");
+      $bn = &basename($LocalTPM,".tpm");
       if (defined($Tpm2Catalogue{$bn})) {
         $pkgcat = $Tpm2Catalogue{$bn};
       } else {
@@ -150,23 +170,37 @@
 	    $licline .= "unknown";
 	  } else {
 	    $licline .= "$ltype (unverified)";
+	    # we know the license, it makes sense to output the files
+	    $what eq "files" && &printFiles($pkgcat,$LocalTPM)
 	  }
-	  print "$licline\n";
+	  $what eq "license" && print "$licline\n";
 	  next;
 	}
 	$licline .= "$ltype (verification data:$version:$lversion:$lchecked:$luser)";
-	print "$licline\n";
+	$what eq "license" && print "$licline\n";
+	# we know the license, it makes sense to output the files
+	$what eq "files" && &printFiles($pkgcat,$catname)
       }
    }
 
-#   foreach $f (<./texmf-doc/tpm/*.tpm>) {
-#      my $dat = $parser->parsefile($f);
+sub printFiles {
+    my ($pkgcat, $LocalTPM)= @_;
+    my $pkg_header = "% $pkgcat";
+    my $dom_parser = new XML::DOM::Parser;
+    my $doc = $dom_parser->parsefile($LocalTPM);
+    my %SourceFiles = &Tpm::getListField($doc, "SourceFiles");
+    print $pkg_header . "\n";
+    print $SourceFiles{text} . "\n";
+}
+
+#   foreach $LocalTPM (<./texmf-doc/tpm/*.tpm>) {
+#      my $dat = $parser->parsefile($LocalTPM);
 #      if (defined($dat->getElementsByTagName("TPM:License")) &&
 #          defined($dat->getElementsByTagName("TPM:License")->item(0)) &&
 #	  defined($dat->getElementsByTagName("TPM:License")->item(0)->getFirstChild)) {
-#	  print &basename($f,".tpm"), "\t", $dat->getElementsByTagName("TPM:License")->item(0)->getFirstChild->toString, "\n";
+#	  print &basename($LocalTPM,".tpm"), "\t", $dat->getElementsByTagName("TPM:License")->item(0)->getFirstChild->toString, "\n";
 #      } else {
-#          print &basename($f,".tpm"), "\tnon-in-catalogue\n";
+#          print &basename($LocalTPM,".tpm"), "\tnon-in-catalogue\n";
 #      }
 #   }
 }




More information about the Pkg-tetex-commits mailing list