| 1 | #!/bin/perl
|
|---|
| 2 | #
|
|---|
| 3 | # ***** BEGIN LICENSE BLOCK *****
|
|---|
| 4 | # Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|---|
| 5 | #
|
|---|
| 6 | # The contents of this file are subject to the Mozilla Public License Version
|
|---|
| 7 | # 1.1 (the "License"); you may not use this file except in compliance with
|
|---|
| 8 | # the License. You may obtain a copy of the License at
|
|---|
| 9 | # http://www.mozilla.org/MPL/
|
|---|
| 10 | #
|
|---|
| 11 | # Software distributed under the License is distributed on an "AS IS" basis,
|
|---|
| 12 | # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|---|
| 13 | # for the specific language governing rights and limitations under the
|
|---|
| 14 | # License.
|
|---|
| 15 | #
|
|---|
| 16 | # The Original Code is the Netscape Portable Runtime (NSPR).
|
|---|
| 17 | #
|
|---|
| 18 | # The Initial Developer of the Original Code is
|
|---|
| 19 | # Netscape Communications Corporation.
|
|---|
| 20 | # Portions created by the Initial Developer are Copyright (C) 1998-2001
|
|---|
| 21 | # the Initial Developer. All Rights Reserved.
|
|---|
| 22 | #
|
|---|
| 23 | # Contributor(s):
|
|---|
| 24 | #
|
|---|
| 25 | # Alternatively, the contents of this file may be used under the terms of
|
|---|
| 26 | # either the GNU General Public License Version 2 or later (the "GPL"), or
|
|---|
| 27 | # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|---|
| 28 | # in which case the provisions of the GPL or the LGPL are applicable instead
|
|---|
| 29 | # of those above. If you wish to allow use of your version of this file only
|
|---|
| 30 | # under the terms of either the GPL or the LGPL, and not to allow others to
|
|---|
| 31 | # use your version of this file under the terms of the MPL, indicate your
|
|---|
| 32 | # decision by deleting the provisions above and replace them with the notice
|
|---|
| 33 | # and other provisions required by the GPL or the LGPL. If you do not delete
|
|---|
| 34 | # the provisions above, a recipient may use your version of this file under
|
|---|
| 35 | # the terms of any one of the MPL, the GPL or the LGPL.
|
|---|
| 36 | #
|
|---|
| 37 | # ***** END LICENSE BLOCK *****
|
|---|
| 38 |
|
|---|
| 39 | # -----------------------------------------------------------------
|
|---|
| 40 | #
|
|---|
| 41 | # explode.pl -- Unpack .jar files into bin, lib, include directories
|
|---|
| 42 | #
|
|---|
| 43 | # syntax: perl explode.pl
|
|---|
| 44 | #
|
|---|
| 45 | # Description:
|
|---|
| 46 | # explode.pl unpacks the .jar files created by the NSPR build
|
|---|
| 47 | # procedure.
|
|---|
| 48 | #
|
|---|
| 49 | # Suggested use: After copying the platform directories to
|
|---|
| 50 | # /s/b/c/nspr20/<release>. CD to /s/b/c/nspr20/<release> and
|
|---|
| 51 | # run explode.pl. This will unpack the jar files into bin, lib,
|
|---|
| 52 | # include directories.
|
|---|
| 53 | #
|
|---|
| 54 | # -----------------------------------------------------------------
|
|---|
| 55 |
|
|---|
| 56 | @dirs = `ls -d *.OBJ*`;
|
|---|
| 57 |
|
|---|
| 58 | foreach $dir (@dirs) {
|
|---|
| 59 | chop($dir);
|
|---|
| 60 | if (-l $dir) {
|
|---|
| 61 | print "Skipping symbolic link $dir\n";
|
|---|
| 62 | next;
|
|---|
| 63 | }
|
|---|
| 64 | print "Unzipping $dir/mdbinary.jar\n";
|
|---|
| 65 | system ("unzip", "-o", "$dir/mdbinary.jar",
|
|---|
| 66 | "-d", "$dir");
|
|---|
| 67 | system ("rm", "-rf", "$dir/META-INF");
|
|---|
| 68 | mkdir "$dir/include", 0755;
|
|---|
| 69 | print "Unzipping $dir/mdheader.jar\n";
|
|---|
| 70 | system ("unzip", "-o", "-aa",
|
|---|
| 71 | "$dir/mdheader.jar",
|
|---|
| 72 | "-d", "$dir/include");
|
|---|
| 73 | system ("rm", "-rf", "$dir/include/META-INF");
|
|---|
| 74 | }
|
|---|
| 75 | # --- end explode.pl ----------------------------------------------
|
|---|
