diff options
author | Norbert Preining <preining@logic.at> | 2007-05-25 14:19:57 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-05-25 14:19:57 +0000 |
commit | b9faef0a3a8783e434aa8808b87c88c6c07c08e6 (patch) | |
tree | 2097cd05b04cf25306063739fdc01a86ef16490b /new-infra | |
parent | c4d0fdb86e606e03ebde03093d7f14424ac02be5 (diff) |
more multi arch work
git-svn-id: svn://tug.org/texlive/trunk@4371 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'new-infra')
-rw-r--r-- | new-infra/Perl-API.txt | 3 | ||||
-rw-r--r-- | new-infra/TLSRC.pm | 35 |
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; |