summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-05-25 14:19:57 +0000
committerNorbert Preining <preining@logic.at>2007-05-25 14:19:57 +0000
commitb9faef0a3a8783e434aa8808b87c88c6c07c08e6 (patch)
tree2097cd05b04cf25306063739fdc01a86ef16490b
parentc4d0fdb86e606e03ebde03093d7f14424ac02be5 (diff)
more multi arch work
git-svn-id: svn://tug.org/texlive/trunk@4371 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--new-infra/Perl-API.txt3
-rw-r--r--new-infra/TLSRC.pm35
2 files changed, 17 insertions, 21 deletions
diff --git a/new-infra/Perl-API.txt b/new-infra/Perl-API.txt
index de9febafe11..d69d1868e58 100644
--- a/new-infra/Perl-API.txt
+++ b/new-infra/Perl-API.txt
@@ -27,6 +27,9 @@ Read/Write functions (with argument set, without arg read)
$tlsrc->depends
$tlsrc->executes
+ $tlsrc->architectures
+ predefined to ....
+
Generation function
$tlp = $tlsrc->make_tlp($tltree);
generates a TLP object from itself (a TLSRC obj) and
diff --git a/new-infra/TLSRC.pm b/new-infra/TLSRC.pm
index e6ecba9db9b..8945dd0aec5 100644
--- a/new-infra/TLSRC.pm
+++ b/new-infra/TLSRC.pm
@@ -8,12 +8,17 @@
package TLSRC;
+my @Architectures = qw/alpha-linux hppa-hpux i386-darwin i386-freebsd
+ i386-linux i386-openbsd i386-solaris mips-irix powerpc-aix powerpc-darwin
+ powerpc-linux sparc-linux sparc-solaris win32 x86_64-linux/;
+
use TLP;
use TLTREE;
print "WARNING WARNING WARNING\n";
print "format of TLP files has changed, we need to adapt the TLSRC !!!\n";
print "Multiple *files arch=... size=....\n";
+print "also in _do_*_pattern something with the arch!\n";
die;
sub new {
@@ -208,8 +213,7 @@ sub make_tlp {
$tlp->revision(0);
my $filemax;
foreach my $p (@{$self->{'runpatterns'}}) {
- my $q = _expand_patterns($p);
- my ($pattype,@patwords) = split ' ',$q;
+ my ($pattype,@patwords) = split ' ',$p;
if ($pattype eq "t") {
$self->_do_leaf_pattern($tlp,$tltree,'runfiles',@patwords);
} else {
@@ -217,8 +221,7 @@ sub make_tlp {
}
}
foreach my $p (@{$self->{'srcpatterns'}}) {
- my $q = _expand_patterns($p);
- my ($pattype,@patwords) = split ' ',$q;
+ my ($pattype,@patwords) = split ' ',$p;
if ($pattype eq "t") {
$self->_do_leaf_pattern($tlp,$tltree,'srcfiles',@patwords);
} else {
@@ -226,8 +229,7 @@ sub make_tlp {
}
}
foreach my $p (@{$self->{'docpatterns'}}) {
- my $q = _expand_patterns($p);
- my ($pattype,@patwords) = split ' ',$q;
+ my ($pattype,@patwords) = split ' ',$p;
if ($pattype eq "t") {
$self->_do_leaf_pattern($tlp,$tltree,'docfiles',@patwords);
} else {
@@ -235,8 +237,7 @@ sub make_tlp {
}
}
foreach my $p (@{$self->{'binpatterns'}}) {
- my $q = _expand_patterns($p);
- my ($pattype,@patwords) = split ' ',$q;
+ my ($pattype,@patwords) = split ' ',$p;
if ($pattype eq "t") {
$self->_do_leaf_pattern($tlp,$tltree,'binfiles',@patwords);
} else {
@@ -301,19 +302,6 @@ sub pattern_hit {
}
#
-# sub _expand_patterns
-# used to expand embedded variables in patterns like ${arch} etc
-#
-# only variables of the form
-# ${variablename}
-# are allowed.
-sub _expand_patterns {
- my ($p) = @_;
- printf STDERR "WARNING: _expand_patterns not implemented\n";
- return ($p);
-}
-
-#
# member access functions
#
sub name {
@@ -366,6 +354,11 @@ sub executes {
if (@_) { @{ $self->{'executes'} } = @_ }
return @{ $self->{'executes'} };
}
+sub architectures {
+ my $self = shift;
+ if (@_) { @Architectures = @_ }
+ return @Architectures;
+}
1;