summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-05-22 13:41:13 +0000
committerNorbert Preining <preining@logic.at>2009-05-22 13:41:13 +0000
commitef1fe0008177382d8ad2ddfe21c0b8719022aa90 (patch)
tree7807aeef0ea79a6c5cc81a4b768127084b6fb949 /Master/tlpkg/TeXLive/TLPDB.pm
parent461bfa29c7bd6d29399c6d9dda5d375dffeb9a2b (diff)
move the fmtutil.cnf, updmap.cfg, langauge.dat/def generation code
into TLPOBJ git-svn-id: svn://tug.org/texlive/trunk@13386 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm175
1 files changed, 21 insertions, 154 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 3a05a3f2ff4..5614ff06d64 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -1282,64 +1282,13 @@ containing only those formats present in the installation.
=cut
sub fmtutil_cnf_lines {
my $self = shift;
- my @fmtlines = ();
-
- foreach my $pkg ($self->list_packages) {
- my $obj = $self->get_package ($pkg);
- die "No TeX Live package named $pkg, too strange" if ! $obj;
- my $first = 1;
- foreach my $e ($obj->executes) {
- if ($e =~ m/AddFormat\s+(.*)\s*/) {
- my $name;
- my $engine;
- my $patterns = "-";
- my $options = "";
- my $mode = "";
- if ($first) {
- push @fmtlines, "# from $pkg:\n";
- $first = 0;
- }
- foreach my $p (&TeXLive::TLUtils::quotewords('\s+', 0, "$1")) {
- # foreach my $p (split(' ', $1)) {
- my ($a, $b);
- if ($p =~ m/^(name|engine|mode|patterns|options)=(.*)$/) {
- $a = $1;
- $b = $2;
- } else {
- die "Unknown format directive in $pkg: $e";
- }
- if ($a eq "name") {
- die "AddFormat line needs name=something: $pkg, $e" unless $b;
- $name = $b; next;
- }
- if ($a eq "engine") {
- die "AddFormat line needs engine=something: $pkg, $e" unless $b;
- $engine = $b; next;
- }
- if ($a eq "patterns") {
- $patterns = ( $b ? $b : "-");
- next;
- }
- if ($a eq "mode") {
- if ($b eq "disabled") {
- $mode = "#! ";
- } else {
- $mode = "";
- }
- next;
- }
- if ($a eq "options") {
- $options = ( $b ? $b : "");
- next;
- }
- # should not be reached at all
- die "Unknown language directive in $pkg: $e";
- }
- push @fmtlines, "$mode$name $engine $patterns $options\n";
- }
- }
+ my @lines;
+ foreach my $p ($self->list_packages) {
+ my $obj = $self->get_package ($p);
+ die "$0: No TeX Live package named $p, strange" if ! $obj;
+ push @lines, $obj->fmtutil_cnf_lines;
}
- return @fmtlines;
+ return(@lines);
}
=item C<< $tlpdb->updmap_cfg_lines >>
@@ -1350,28 +1299,13 @@ containing only those maps present in the installation.
=cut
sub updmap_cfg_lines {
my $self = shift;
- my %maps;
+ my @lines;
foreach my $p ($self->list_packages) {
my $obj = $self->get_package ($p);
die "$0: No TeX Live package named $p, strange" if ! $obj;
- foreach my $e ($obj->executes) {
- if ($e =~ m/addMap (.*)$/) {
- $maps{$1} = 1;
- } elsif ($e =~ m/addMixedMap (.*)$/) {
- $maps{$1} = 2;
- }
- # others are ignored here
- }
- }
- my @updmaplines;
- foreach (sort keys %maps) {
- if ($maps{$_} == 2) {
- push @updmaplines, "MixedMap $_\n";
- } else {
- push @updmaplines, "Map $_\n";
- }
+ push @lines, $obj->updmap_cfg_lines;
}
- return(@updmaplines);
+ return(@lines);
}
=item C<< $tlpdb->language_dat_lines >>
@@ -1382,17 +1316,13 @@ lines for language.dat that can be generated from the tlpdb.
=cut
sub language_dat_lines {
- sub make_dat_lines {
- my ($name, $lhm, $rhm, $file, @syn) = @_;
- my @ret;
- push @ret, "$name $file\n";
- foreach (@syn) {
- push @ret, "=$_\n";
- }
- return(@ret);
- }
my $self = shift;
- my @lines = $self->_parse_hyphen_execute(\&make_dat_lines);
+ my @lines;
+ foreach my $p ($self->list_packages) {
+ my $obj = $self->get_package ($p);
+ die "$0: No TeX Live package named $p, strange" if ! $obj;
+ push @lines, $obj->language_dat_lines;
+ }
return(@lines);
}
@@ -1404,79 +1334,16 @@ lines for language.def that can be generated from the tlpdb.
=cut
sub language_def_lines {
- sub make_def_lines {
- my ($name, $lhm, $rhm, $file, @syn) = @_;
- my $exc = "";
- my @ret;
- push @ret, "\\addlanguage\{$name\}\{$file\}\{$exc\}\{$lhm\}\{$rhm\}\n";
- foreach (@syn) {
- # synonyms in language.def ???
- push @ret, "\\addlanguage\{$_\}\{$file\}\{$exc\}\{$lhm\}\{$rhm\}\n";
- #debug("Ignoring synonym $_ for $name when creating language.def\n");
- }
- return(@ret);
- }
my $self = shift;
- my @lines = $self->_parse_hyphen_execute(\&make_def_lines);
+ my @lines;
+ foreach my $p ($self->list_packages) {
+ my $obj = $self->get_package ($p);
+ die "$0: No TeX Live package named $p, strange" if ! $obj;
+ push @lines, $obj->language_def_lines;
+ }
return(@lines);
}
-
-
-sub _parse_hyphen_execute {
- my ($self, $coderef) = @_;
- my @langlines = ();
-
- foreach my $pkg ($self->list_packages) {
- my $obj = $self->get_package ($pkg);
- die "$0: No TeX Live package named $pkg, too strange" if ! $obj;
- my $first = 1;
- foreach my $e ($obj->executes) {
- if ($e =~ m/AddHyphen\s+(.*)\s*/) {
- my $name;
- my $lefthyphenmin;
- my $righthyphenmin;
- my $file;
- my @synonyms;
- if ($first) {
- push @langlines, "% from $pkg:\n";
- $first = 0;
- }
- foreach my $p (split(' ', $1)) {
- my ($a, $b) = split /=/, $p;
- if ($a eq "name") {
- die "$0: AddHyphen line needs name=something: $pkg, $e" unless $b;
- $name = $b; next;
- }
- if ($a eq "lefthyphenmin") {
- # lefthyphenmin default to 3
- $lefthyphenmin = ( $b ? $b : 2 );
- next;
- }
- if ($a eq "righthyphenmin") {
- $righthyphenmin = ( $b ? $b : 3);
- next;
- }
- if ($a eq "file") {
- die "$0: AddHyphen line needs file=something: $pkg, $e" unless $b;
- $file = $b;
- next;
- }
- if ($a eq "synonyms") {
- @synonyms = split /,/, $b;
- next;
- }
- die "$0: Unknown language directive in $pkg: $e";
- }
- my @foo = &$coderef ($name, $lefthyphenmin, $righthyphenmin,
- $file, @synonyms);
- push @langlines, @foo;
- }
- }
- }
- return @langlines;
-}
-
=back
=pod