DXR is a code search and navigation tool aimed at making sense of large projects. It supports full-text and regex searches as well as structural queries.

Mercurial (5b81998bb7ab)

VCS Links

Line Code
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 132 133 134 135 136 137 138 139 140 141 142 143 144
#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

use strict;
use warnings;

use Archive::Zip(':ERROR_CODES');

my ($BUILDCONFIG);

sub fixBuildconfig($$$);

$BUILDCONFIG = 'content/global/buildconfig.html';

if (scalar(@ARGV) != 3) {
  print STDERR ("usage: fix-buildconfig <jar|file> <file1> <file2>\n");
  exit(1);
}

if (!fixBuildconfig($ARGV[0], $ARGV[1], $ARGV[2])) {
  exit(1);
}

exit(0);

sub fixBuildconfig($$$) {
  my ($mode, $path1, $path2);
  ($mode, $path1, $path2) = @_;

  if ($mode ne 'jar' && $mode ne 'file') {
    print STDERR ($0.': must specify jar or file\n');
    return 0;
  }

  my ($contents1, $contents2);
  my ($ze, $zip1, $zip2);

  if ($mode eq 'jar') {
    $zip1 = Archive::Zip->new();
    if (($ze = $zip1->read($path1)) != AZ_OK) {
      print STDERR ($0.': could not read "'.$path1.'": error '.$ze."\n");
      return 0;
    }
    $zip2 = Archive::Zip->new();
    if (($ze = $zip2->read($path2)) != AZ_OK) {
      print STDERR ($0.': could not read "'.$path2.'": error '.$ze."\n");
      return 0;
    }

    $contents1 = $zip1->contents($BUILDCONFIG);
    $contents2 = $zip2->contents($BUILDCONFIG);
  } elsif ($mode eq 'file') {
    local($/);
    my ($file1, $file2);

    open($file1, '<'.$path1.$BUILDCONFIG) or return 0;
    open($file2, '<'.$path2.$BUILDCONFIG) or return 0;

    $contents1 = <$file1>;
    $contents2 = <$file2>;

    close($file1);
    close($file2);
  }

  if (!defined($contents1)) {
    print STDERR ($0.': could not get "'.$BUILDCONFIG.'" from "'.$path1.'"'.
                  "\n");
    return 0;
  }
  if (!defined($contents2)) {
    print STDERR ($0.': could not get "'.$BUILDCONFIG.'" from "'.$path2.'"'.
                  "\n");
    return 0;
  }

  my (@lines1, @lines2);
  @lines1 = split(/\n/, $contents1);
  @lines2 = split(/\n/, $contents2);

  my ($line, @linesNew);
  @linesNew = ();

  # Copy everything from the first file up to the end of its <body>.
  while ($line = shift(@lines1)) {
    if ($line eq '</body>') {
      last;
    }
    push(@linesNew, $line);
  }

  # Insert a <hr> between the two files.
  push (@linesNew, '<hr> </hr>');

  # Copy the second file's content beginning after its leading <h1>.
  while ($line = shift(@lines2)) {
    if ($line eq '<h1>about:buildconfig</h1>') {
      last;
    }
  }
  while ($line = shift(@lines2)) {
    push(@linesNew, $line);
  }

  my ($contentsNew);
  $contentsNew = join("\n", @linesNew);

  if ($mode eq 'jar') {
    if (!defined($zip1->contents($BUILDCONFIG, $contentsNew))) {
      print STDERR ($0.': could not set "'.$BUILDCONFIG.'" to "'.$path1.'"'.
                    "\n");
      return 0;
    }
    if (!defined($zip2->contents($BUILDCONFIG, $contentsNew))) {
      print STDERR ($0.': could not set "'.$BUILDCONFIG.'" to "'.$path2.'"'.
                    "\n");
      return 0;
    }

    if (($ze = $zip1->overwrite()) != AZ_OK) {
      print STDERR ($0.': could not write "'.$path1.'": error '.$ze."\n");
      return 0;
    }
    if (($ze = $zip2->overwrite()) != AZ_OK) {
      print STDERR ($0.': could not write "'.$path2.'": error '.$ze."\n");
      return 0;
    }
  } elsif ($mode eq 'file') {
    my ($file1, $file2);

    open($file1, '>'.$path1.$BUILDCONFIG) or return 0;
    open($file2, '>'.$path2.$BUILDCONFIG) or return 0;

    print $file1 ($contentsNew);
    print $file2 ($contentsNew);

    close($file1);
    close($file2);
  }

  return 1;
}