summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2tlpobj
blob: 40f684948875aca9c2d68d271da2d68b01f8ac43 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
#!/usr/bin/env perl
# $Id$
# tlpsrc2tlpobj - convert tlpsrc files (given as arguments) to tlpobj
# Copyright 2007 Norbert Preining
#
# This file is licensed under the GNU General Public License version 2
# or any later version.

BEGIN {
  $^W = 1;
	chomp ($mydir = `dirname $0`);
  unshift (@INC, "$mydir/..");
}

use strict;

use TeXLive::TLPSRC;
use TeXLive::TLPOBJ;
use TeXLive::TLTREE;
use Getopt::Long;
use Pod::Usage;
use File::Path;


my $opt_master = "/src/TeX/texlive-svn/Master";
my $opt_outputdir = "./tlpobj";
our $opt_debug = 0;
my $man = 0;
my $help = 0;
my $opt_catalogue = "";

GetOptions("debug!",	# debug mode
		"master=s" => \$opt_master,	# location of the tree
		"catalogue=s" => \$opt_catalogue, # location of the TeX Catalogue
		"outputdir=s" => \$opt_outputdir,
		'help|?' => \$help, man => \$man
	) or pod2usage(2);

pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;

if (! -d "$opt_master") {
	die "Master $opt_master does not exists!";
}

if (! -d "$opt_outputdir") {
	mkpath("$opt_outputdir") or die "Cannot mkdir $opt_outputdir!";
}

my $tlc;
if (! -d "$opt_catalogue") {
  warn "$0: -d /Cat/a/logue not given, continuing without it.\n";
} else {
  require TeXLive::TeXCatalogue;  # not at compile time, for now anyway.
  $tlc = TeXLive::TeXCatalogue->new( 'location' => "$opt_catalogue" );
}

my $tltree = TeXLive::TLTREE->new( 'svnroot' => "$opt_master" );
$tltree->init_from_svn;

foreach my $f (@ARGV) {
	my $tlsrc = new TeXLive::TLPSRC;
	$tlsrc->from_file($f);
	my $tlp = $tlsrc->make_tlpobj($tltree);
	my $tlcname = defined($tlp->catalogue) ? $tlp->catalogue : $tlp->name;
	if ($tlc) {
		$tlp->update_from_catalogue($tlc);
	}
	my $name = $tlp->name;
	open(FOO,">$opt_outputdir/$name.tlpobj") or die "Cannot create $opt_outputdir/$name.tlpobj!";
	$tlp->writeout(\*FOO);
	close(FOO);
}


__END__

=head1 NAME

tlpsrc2tlpobj - convert tlpsrc files into tlpobj files

=head1 SYNOPSIS

tlpsrc2tlpobj [OPTION]... [TLPSRC]...

=head1 OPTIONS

=over 8

=item B<-help>
Print a brief help message and exits.

=item B<-man>
Prints the manual page and exits.

=item B<-master>
The location given by B<-master> must point to a valid svn repository
of TeX Live Master direcory. Defaults to /src/TeX/texlive-svn/Master

=item B<-catalogue>
The location given by B<-catalogue> must point to a valid TeX Catalogue.
No default value. If given, the generated tlpobj files will contain information
gathered from the TeX Catalogue.

=item B<-outputdir>
Specifies the location where tlp files are created. Defaults to ./tlp

=item B<-debug>
Give debug messages from the TeX Live modules

=back

=head1 DESCRIPTION

B<tlpsrc2tlpobj> converts TeX Live Package Source files (tlpsrc) into 
TeX Live Package Object files (tlpobj).

=head1 AUTHORS AND COPYRIGHT

This script and its documentation were written for the TeX Live
distribution (L<http://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.

=cut

### Local Variables:
### perl-indent-level: 2
### tab-width: 2
### indent-tabs-mode: nil
### End:
# vim:set tabstop=2: #