From ddb7e4fedf257946fe9ff464849ddd8a9c30854c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 11 Dec 2019 23:09:43 +0000 Subject: doc,sync git-svn-id: svn://tug.org/texlive/trunk@53100 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/archive/tl-dump-texcatalogue | 37 +++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100755 Master/tlpkg/bin/archive/tl-dump-texcatalogue (limited to 'Master/tlpkg/bin/archive') diff --git a/Master/tlpkg/bin/archive/tl-dump-texcatalogue b/Master/tlpkg/bin/archive/tl-dump-texcatalogue new file mode 100755 index 00000000000..87689c780fe --- /dev/null +++ b/Master/tlpkg/bin/archive/tl-dump-texcatalogue @@ -0,0 +1,37 @@ +#!/usr/bin/env perl +# $Id: tl-dump-texcatalogue 26533 2012-05-21 04:22:56Z preining $ +# Copyright 2012 Norbert Preining +# This file is licensed under the GNU General Public License version 2 +# or any later version. +# +# Write a parsable representation of the catalogue to stdout +# run from cron.tl + +BEGIN { + $^W = 1; + chomp ($mydir = `dirname $0`); + unshift (@INC, "$mydir/.."); +} + +use strict; +$^W = 1; +use Data::Dumper; +use TeXLive::TeXCatalogue; + +exit (&main ()); + +sub main { + if (@ARGV != 1) { + die "Usage: $0 /PATH/TO/CATALOGUE\n"; + } + + my $texcatalogue = TeXLive::TeXCatalogue->new(location => $ARGV[0]); + + $Data::Dumper::Indent = 1; + $Data::Dumper::Sortkeys = 1; # stable output + $Data::Dumper::Purity = 1; # recursive structures must be safe + print Data::Dumper->Dump([\$texcatalogue], [qw(tlc)]); + + return 0; +} + -- cgit v1.2.3