~ubuntu-branches/ubuntu/utopic/texlive-bin/utopic

« back to all changes in this revision

Viewing changes to utils/biber/TeXLive/TLUtils.pm

  • Committer: Package Import Robot
  • Author(s): Norbert Preining
  • Date: 2012-05-07 10:47:49 UTC
  • mfrom: (1.2.4)
  • Revision ID: package-import@ubuntu.com-20120507104749-p00ot5sajjbkp1hp
Tags: 2011.20120507-1
* new upstream checkout: uptex 1.10
* drop patches for config file inclusion in (x)dvipdfmx, included upstream
* add man page for etex
* include pmpost patches and build it
* adapt/unfuzzify patches for current sources
* disable mtx building, we have prepmx package in Debian

Show diffs side-by-side

added added

removed removed

Lines of Context:
5
5
 
6
6
package TeXLive::TLUtils;
7
7
 
8
 
my $svnrev = '$Revision: 25027 $';
 
8
my $svnrev = '$Revision: 25907 $';
9
9
my $_modulerevision;
10
10
if ($svnrev =~ m/: ([0-9]+) /) {
11
11
  $_modulerevision = $1;
265
265
  my $CPU; # CPU type as reported by config.guess.
266
266
  my $OS;  # O/S type as reported by config.guess.
267
267
  ($CPU = $guessed_platform) =~ s/(.*?)-.*/$1/;
268
 
  $CPU =~ s/^alpha(.*)/alpha/;   # alphaev56 or whatever
269
 
  $CPU =~ s/armv7l/armel/;       # arm
270
 
  $CPU =~ s/powerpc64/powerpc/;  # we don't distinguish ppc64
271
 
  $CPU =~ s/mips64el/mipsel/;    # we don't distinguish mips64 and 32 el
 
268
  $CPU =~ s/^alpha(.*)/alpha/;   # alphaev whatever
 
269
  $CPU =~ s/armv7l/armel/;       # arm whatever
 
270
  $CPU =~ s/powerpc64/powerpc/;  # don't distinguish ppc64
 
271
  $CPU =~ s/sparc64/sparc/;      # don't distinguish sparc64
 
272
  $CPU =~ s/mips64el/mipsel/;    # don't distinguish mips64 and 32 el
272
273
 
273
274
  my @OSs = qw(aix cygwin darwin freebsd hpux irix
274
275
               kfreebsd linux netbsd openbsd solaris);
2497
2498
 
2498
2499
=item C<make_local_skeleton($prefix)>
2499
2500
 
2500
 
Generate a skeleton of empty directories in the C<TEXMFLOCAL> tree.
 
2501
Generate a skeleton of empty directories in the C<TEXMFLOCAL> tree 
 
2502
if C<TEXMFLOCAL> doesn't already exist.
2501
2503
 
2502
2504
=cut
2503
2505
 
2504
2506
sub make_local_skeleton {
2505
2507
  my $prefix=shift;
2506
2508
 
 
2509
  return if (-d $prefix);
 
2510
 
2507
2511
  mkdirhier "$prefix/tex/latex/local";
2508
2512
  mkdirhier "$prefix/tex/plain/local";
2509
2513
  mkdirhier "$prefix/dvips/local";
2514
2518
  mkdirhier "$prefix/fonts/source/local";
2515
2519
  mkdirhier "$prefix/fonts/type1/local";
2516
2520
  mkdirhier "$prefix/metapost/local";
 
2521
  mkdirhier "$prefix/doc/local";
2517
2522
  mkdirhier "$prefix/web2c";
2518
2523
}
2519
2524