build/mac/pkg-dmg - Issue 334049: Move Mac build tool scripts only used by chrome.gyp from build/mac into chrome/tools/build/mac

Unified Diff: build/mac/pkg-dmg

Issue 334049: Move Mac build tool scripts only used by chrome.gyp from build/mac into chrome/tools/build/mac (Closed) Base URL: svn://svn.chromium.org/chrome/trunk/src/

Patch Set: '' Created 11 years, 2 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

View side-by-side diff with in-line comments

Download patch

Index: build/mac/pkg-dmg

===================================================================

--- build/mac/pkg-dmg (revision 30217)

+++ build/mac/pkg-dmg (working copy)

@@ -1,1520 +0,0 @@

-#!/usr/bin/perl

-# ***** BEGIN LICENSE BLOCK *****

-# Version: MPL 1.1/GPL 2.0/LGPL 2.1

-# The contents of this file are subject to the Mozilla Public License Version

-# 1.1 (the "License"); you may not use this file except in compliance with

-# the License. You may obtain a copy of the License at

-# http://www.mozilla.org/MPL/

-# Software distributed under the License is distributed on an "AS IS" basis,

-# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License

-# for the specific language governing rights and limitations under the

-# License.

-# The Original Code is pkg-dmg, a Mac OS X disk image (.dmg) packager

-# The Initial Developer of the Original Code is

-# Mark Mentovai <mark@moxienet.com>.

-# Contributor(s):

-# Alternatively, the contents of this file may be used under the terms of

-# either the GNU General Public License Version 2 or later (the "GPL"), or

-# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),

-# in which case the provisions of the GPL or the LGPL are applicable instead

-# of those above. If you wish to allow use of your version of this file only

-# under the terms of either the GPL or the LGPL, and not to allow others to

-# use your version of this file under the terms of the MPL, indicate your

-# decision by deleting the provisions above and replace them with the notice

-# and other provisions required by the GPL or the LGPL. If you do not delete

-# the provisions above, a recipient may use your version of this file under

-# the terms of any one of the MPL, the GPL or the LGPL.

-# ***** END LICENSE BLOCK *****

-use strict;

-use warnings;

-=pod

-=head1 NAME

-B<pkg-dmg> - Mac OS X disk image (.dmg) packager

-=head1 SYNOPSIS

-B<pkg-dmg>

-B<--source> I<source-folder>

-B<--target> I<target-image>

-[B<--format> I<format>]

-[B<--volname> I<volume-name>]

-[B<--tempdir> I<temp-dir>]

-[B<--mkdir> I<directory>]

-[B<--copy> I<source>[:I<dest>]]

-[B<--symlink> I<source>[:I<dest>]]

-[B<--license> I<file>]

-[B<--resource> I<file>]

-[B<--icon> I<icns-file>]

-[B<--attribute> I<a>:I<file>[:I<file>...]

-[B<--idme>]

-[B<--sourcefile>]

-[B<--verbosity> I<level>]

-[B<--dry-run>]

-=head1 DESCRIPTION

-I<pkg-dmg> takes a directory identified by I<source-folder> and transforms

-it into a disk image stored as I<target-image>. The disk image will

-occupy the least space possible for its format, or the least space that the

-authors have been able to figure out how to achieve.

-=head1 OPTIONS

-=over 5

-==item B<--source> I<source-folder>

-Identifies the directory that will be packaged up. This directory is not

-touched, a copy will be made in a temporary directory for staging purposes.

-See B<--tempdir>.

-==item B<--target> I<target-image>

-The disk image to create. If it exists and is not in use, it will be

-overwritten. If I<target-image> already contains a suitable extension,

-it will be used unmodified. If no extension is present, or the extension

-is incorrect for the selected format, the proper extension will be added.

-See B<--format>.

-==item B<--format> I<format>

-The format to create the disk image in. Valid values for I<format> are:

- - UDZO - zlib-compressed, read-only; extension I<.dmg>

- - UDBZ - bzip2-compressed, read-only; extension I<.dmg>;

- create and use on 10.4 ("Tiger") and later only

- - UDRW - read-write; extension I<.dmg>

- - UDSP - read-write, sparse; extension I<.sparseimage>

-UDZO is the default format.

-See L<hdiutil(1)> for a description of these formats.

-=item B<--volname> I<volume-name>

-The name of the volume in the disk image. If not specified, I<volume-name>

-defaults to the name of the source directory from B<--source>.

-=item B<--tempdir> I<temp-dir>

-A temporary directory to stage intermediate files in. I<temp-dir> must

-have enough space available to accommodate twice the size of the files

-being packaged. If not specified, defaults to the same directory that

-the I<target-image> is to be placed in. B<pkg-dmg> will remove any

-temporary files it places in I<temp-dir>.

-=item B<--mkdir> I<directory>

-Specifies a directory that should be created in the disk image.

-I<directory> and any ancestor directories will be created. This is

-useful in conjunction with B<--copy>, when copying files to directories

-that may not exist in I<source-folder>. B<--mkdir> may appear multiple

-times.

-=item B<--copy> I<source>[:I<dest>]

-Additional files to copy into the disk image. If I<dest> is

-specified, I<source> is copied to the location I<dest> identifies,

-otherwise, I<source> is copied to the root of the new volume. B<--copy>

-provides a way to package up a I<source-folder> by adding files to it

-without modifying the original I<source-folder>. B<--copy> may appear

-multiple times.

-This option is useful for adding .DS_Store files and window backgrounds

-to disk images.

-=item B<--symlink> I<source>[:I<dest>]

-Like B<--copy>, but allows symlinks to point out of the volume. Empty symlink

-destinations are interpreted as "like the source path, but inside the dmg"

-This option is useful for adding symlinks to external resources,

-e.g. to /Applications.

-=item B<--license> I<file>

-A plain text file containing a license agreement to be displayed before

-the disk image is mounted. English is the only supported language. To

-include license agreements in other languages, in multiple languages,

-or to use formatted text, prepare a resource and use L<--resource>.

-=item B<--resource> I<file>

-A resource file to merge into I<target-image>. If I<format> is UDZO or

-UDBZ, the disk image will be flattened to a single-fork file that contains

-the resource but may be freely transferred without any special encodings.

-I<file> must be in a format suitable for L<Rez(1)>. See L<Rez(1)> for a

-description of the format, and L<hdiutil(1)> for a discussion on flattened

-disk images. B<--resource> may appear multiple times.

-This option is useful for adding license agreements and other messages

-to disk images.

-=item B<--icon> I<icns-file>

-Specifies an I<icns> file that will be used as the icon for the root of

-the volume. This file will be copied to the new volume and the custom

-icon attribute will be set on the root folder.

-=item B<--attribute> I<a>:I<file>[:I<file>...]

-Sets the attributes of I<file> to the attribute list in I<a>. See

-L<SetFile(1)>

-=item B<--idme>

-Enable IDME to make the disk image "Internet-enabled." The first time

-the image is mounted, if IDME processing is enabled on the system, the

-contents of the image will be copied out of the image and the image will

-be placed in the trash with IDME disabled.

-=item B<--sourcefile>

-If this option is present, I<source-folder> is treated as a file, and is

-placed as a file within the volume's root folder. Without this option,

-I<source-folder> is treated as the volume root itself.

-=item B<--verbosity> I<level>

-Adjusts the level of loudness of B<pkg-dmg>. The possible values for

-I<level> are:

- 0 - Only error messages are displayed.

- 1 - Print error messages and command invocations.

- 2 - Print everything, including command output.

-The default I<level> is 2.

-=item B<--dry-run>

-When specified, the commands that would be executed are printed, without

-actually executing them. When commands depend on the output of previous

-commands, dummy values are displayed.

-=back

-=head1 NON-OPTIONS

-=over 5

-=item

-Resource forks aren't copied.

-=item

-The root folder of the created volume is designated as the folder

-to open when the volume is mounted. See L<bless(8)>.

-=item

-All files in the volume are set to be world-readable, only writable

-by the owner, and world-executable when appropriate. All other

-permissions bits are cleared.

-=item

-When possible, disk images are created without any partition tables. This

-is what L<hdiutil(1)> refers to as I<-layout NONE>, and saves a handful of

-kilobytes. The alternative, I<SPUD>, contains a partition table that

-is not terribly handy on disk images that are not intended to represent any

-physical disk.

-=item

-Read-write images are created with journaling off. Any read-write image

-created by this tool is expected to be transient, and the goal of this tool

-is to create images which consume a minimum of space.

-=back

-=head1 EXAMPLE

-pkg-dmg --source /Applications/DeerPark.app --target ~/DeerPark.dmg

- --sourcefile --volname DeerPark --icon ~/DeerPark.icns

- --mkdir /.background

- --copy DeerParkBackground.png:/.background/background.png

- --copy DeerParkDSStore:/.DS_Store

- --symlink /Applications:"/Drag to here"

-=head1 REQUIREMENTS

-I<pkg-dmg> has been tested with Mac OS X releases 10.2 ("Jaguar")

-through 10.4 ("Tiger"). Certain adjustments to behavior are made

-depending on the host system's release. Mac OS X 10.3 ("Panther") or

-later are recommended.

-=head1 LICENSE

-MPL 1.1/GPL 2.0/LGPL 2.1. Your choice.

-=head1 AUTHOR

-Mark Mentovai

-=head1 SEE ALSO

-L<bless(8)>, L<diskutil(8)>, L<hdid(8)>, L<hdiutil(1)>, L<Rez(1)>,

-L<rsync(1)>, L<SetFile(1)>

-=cut

-use Fcntl;

-use POSIX;

-use Getopt::Long;

-sub argumentEscape(@);

-sub cleanupDie($);

-sub command(@);

-sub commandInternal($@);

-sub commandInternalVerbosity($$@);

-sub commandOutput(@);

-sub commandOutputVerbosity($@);

-sub commandVerbosity($@);

-sub copyFiles($@);

-sub diskImageMaker($$$$$$$$);

-sub giveExtension($$);

-sub hdidMountImage($@);

-sub isFormatCompressed($);

-sub licenseMaker($$);

-sub pathSplit($);

-sub setAttributes($@);

-sub trapSignal($);

-sub usage();

-# Variables used as globals

-my(@gCleanup, %gConfig, $gDarwinMajor, $gDryRun, $gVerbosity);

-# Use the commands by name if they're expected to be in the user's

-# $PATH (/bin:/sbin:/usr/bin:/usr/sbin). Otherwise, go by absolute

-# path. These may be overridden with --config.

-%gConfig = ('cmd_bless' => 'bless',

- 'cmd_chmod' => 'chmod',

- 'cmd_diskutil' => 'diskutil',

- 'cmd_du' => 'du',

- 'cmd_hdid' => 'hdid',

- 'cmd_hdiutil' => 'hdiutil',

- 'cmd_mkdir' => 'mkdir',

- 'cmd_mktemp' => 'mktemp',

- 'cmd_Rez' => '/Developer/Tools/Rez',

- 'cmd_rm' => 'rm',

- 'cmd_rsync' => 'rsync',

- 'cmd_SetFile' => '/Developer/Tools/SetFile',

- # create_directly indicates whether hdiutil create supports

- # -srcfolder and -srcdevice. It does on >= 10.3 (Panther).

- # This is fixed up for earlier systems below. If false,

- # hdiutil create is used to create empty disk images that

- # are manually filled.

- 'create_directly' => 1,

- # If hdiutil attach -mountpoint exists, use it to avoid

- # mounting disk images in the default /Volumes. This reduces

- # the likelihood that someone will notice a mounted image and

- # interfere with it. Only available on >= 10.3 (Panther),

- # fixed up for earlier systems below.

- #

- # This is presently turned off for all systems, because there

- # is an infrequent synchronization problem during ejection.

- # diskutil eject might return before the image is actually

- # unmounted. If pkg-dmg then attempts to clean up its

- # temporary directory, it could remove items from a read-write

- # disk image or attempt to remove items from a read-only disk

- # image (or a read-only item from a read-write image) and fail,

- # causing pkg-dmg to abort. This problem is experienced

- # under Tiger, which appears to eject asynchronously where

- # previous systems treated it as a synchronous operation.

- # Using hdiutil attach -mountpoint didn't always keep images

- # from showing up on the desktop anyway.

- 'hdiutil_mountpoint' => 0,

- # hdiutil makehybrid results in optimized disk images that

- # consume less space and mount more quickly. Use it when

- # it's available, but that's only on >= 10.3 (Panther).

- # If false, hdiutil create is used instead. Fixed up for

- # earlier systems below.

- 'makehybrid' => 1,

- # hdiutil create doesn't allow specifying a folder to open

- # at volume mount time, so those images are mounted and

- # their root folders made holy with bless -openfolder. But

- # only on >= 10.3 (Panther). Earlier systems are out of luck.

- # Even on Panther, bless refuses to run unless root.

- # Fixed up below.

- 'openfolder_bless' => 1,

- # It's possible to save a few more kilobytes by including the

- # partition only without any partition table in the image.

- # This is a good idea on any system, so turn this option off.

- #

- # Except it's buggy. "-layout NONE" seems to be creating

- # disk images with more data than just the partition table

- # stripped out. You might wind up losing the end of the

- # filesystem - the last file (or several) might be incomplete.

- 'partition_table' => 1,

- # To create a partition table-less image from something

- # created by makehybrid, the hybrid image needs to be

- # mounted and a new image made from the device associated

- # with the relevant partition. This requires >= 10.4

- # (Tiger), presumably because earlier systems have

- # problems creating images from devices themselves attached

- # to images. If this is false, makehybrid images will

- # have partition tables, regardless of the partition_table

- # setting. Fixed up for earlier systems below.

- 'recursive_access' => 1);

-# --verbosity

-$gVerbosity = 2;

-# --dry-run

-$gDryRun = 0;

-# %gConfig fix-ups based on features and bugs present in certain releases.

-my($ignore, $uname_r, $uname_s);

-($uname_s, $ignore, $uname_r, $ignore, $ignore) = POSIX::uname();

-if($uname_s eq 'Darwin') {

- ($gDarwinMajor, $ignore) = split(/\./, $uname_r, 2);

- # $major is the Darwin major release, which for our purposes, is 4 higher

- # than the interesting digit in a Mac OS X release.

- if($gDarwinMajor <= 6) {

- # <= 10.2 (Jaguar)

- # hdiutil create does not support -srcfolder or -srcdevice

- $gConfig{'create_directly'} = 0;

- # hdiutil attach does not support -mountpoint

- $gConfig{'hdiutil_mountpoint'} = 0;

- # hdiutil mkhybrid does not exist

- $gConfig{'makehybrid'} = 0;

- }

- if($gDarwinMajor <= 7) {

- # <= 10.3 (Panther)

- # Can't mount a disk image and then make a disk image from the device

- $gConfig{'recursive_access'} = 0;

- # bless does not support -openfolder on 10.2 (Jaguar) and must run

- # as root under 10.3 (Panther)

- $gConfig{'openfolder_bless'} = 0;

- }

-else {

- # If it's not Mac OS X, just assume all of those good features are

- # available. They're not, but things will fail long before they

- # have a chance to make a difference.

- #

- # Now, if someone wanted to document some of these private formats...

- print STDERR ($0.": warning, not running on Mac OS X, ".

- "this could be interesting.\n");

-# Non-global variables used in Getopt

-my(@attributes, @copyFiles, @createSymlinks, $iconFile, $idme, $licenseFile,

- @makeDirs, $outputFormat, @resourceFiles, $sourceFile, $sourceFolder,

- $targetImage, $tempDir, $volumeName);

-# --format

-$outputFormat = 'UDZO';

-# --idme

-$idme = 0;

-# --sourcefile

-$sourceFile = 0;

-# Leaving this might screw up the Apple tools.

-delete $ENV{'NEXT_ROOT'};

-# This script can get pretty messy, so trap a few signals.

-$SIG{'INT'} = \&trapSignal;

-$SIG{'HUP'} = \&trapSignal;

-$SIG{'TERM'} = \&trapSignal;

-Getopt::Long::Configure('pass_through');

-GetOptions('source=s' => \$sourceFolder,

- 'target=s' => \$targetImage,

- 'volname=s' => \$volumeName,

- 'format=s' => \$outputFormat,

- 'tempdir=s' => \$tempDir,

- 'mkdir=s' => \@makeDirs,

- 'copy=s' => \@copyFiles,

- 'symlink=s' => \@createSymlinks,

- 'license=s' => \$licenseFile,

- 'resource=s' => \@resourceFiles,

- 'icon=s' => \$iconFile,

- 'attribute=s' => \@attributes,

- 'idme' => \$idme,

- 'sourcefile' => \$sourceFile,

- 'verbosity=i' => \$gVerbosity,

- 'dry-run' => \$gDryRun,

- 'config=s' => \%gConfig); # "hidden" option not in usage()

-if(@ARGV) {

- # All arguments are parsed by Getopt

- usage();

- exit(1);

-if($gVerbosity<0 || $gVerbosity>2) {

- usage();

- exit(1);

-if(!defined($sourceFolder) || $sourceFolder eq '' ||

- !defined($targetImage) || $targetImage eq '') {

- # --source and --target are required arguments

- usage();

- exit(1);

-# Make sure $sourceFolder doesn't contain trailing slashes. It messes with

-# rsync.

-while(substr($sourceFolder, -1) eq '/') {

- chop($sourceFolder);

-if(!defined($volumeName)) {

- # Default volumeName is the name of the source directory.

- my(@components);

- @components = pathSplit($sourceFolder);

- $volumeName = pop(@components);

-my(@tempDirComponents, $targetImageFilename);

-@tempDirComponents = pathSplit($targetImage);

-$targetImageFilename = pop(@tempDirComponents);

-if(defined($tempDir)) {

- @tempDirComponents = pathSplit($tempDir);

-else {

- # Default tempDir is the same directory as what is specified for

- # targetImage

- $tempDir = join('/', @tempDirComponents);

-# Ensure that the path of the target image has a suitable extension. If

-# it didn't, hdiutil would add one, and we wouldn't be able to find the

-# file.

-# Note that $targetImageFilename is not being reset. This is because it's

-# used to build other names below, and we don't need to be adding all sorts

-# of extra unnecessary extensions to the name.

-my($originalTargetImage, $requiredExtension);

-$originalTargetImage = $targetImage;

-if($outputFormat eq 'UDSP') {

- $requiredExtension = '.sparseimage';

-else {

- $requiredExtension = '.dmg';

-$targetImage = giveExtension($originalTargetImage, $requiredExtension);

-if($targetImage ne $originalTargetImage) {

- print STDERR ($0.": warning: target image extension is being added\n");

- print STDERR (' The new filename is '.

- giveExtension($targetImageFilename,$requiredExtension)."\n");

-# Make a temporary directory in $tempDir for our own nefarious purposes.

-my(@output, $tempSubdir, $tempSubdirTemplate);

-$tempSubdirTemplate=join('/', @tempDirComponents,

- 'pkg-dmg.'.$$.'.XXXXXXXX');

-if(!(@output = commandOutput($gConfig{'cmd_mktemp'}, '-d',

- $tempSubdirTemplate)) || $#output != 0) {

- cleanupDie('mktemp failed');

-if($gDryRun) {

- (@output)=($tempSubdirTemplate);

-($tempSubdir) = @output;

-push(@gCleanup,

- sub {commandVerbosity(0, $gConfig{'cmd_rm'}, '-rf', $tempSubdir);});

-my($tempMount, $tempRoot, @tempsToMake);

-$tempRoot = $tempSubdir.'/stage';

-$tempMount = $tempSubdir.'/mount';

-push(@tempsToMake, $tempRoot);

-if($gConfig{'hdiutil_mountpoint'}) {

- push(@tempsToMake, $tempMount);

-if(command($gConfig{'cmd_mkdir'}, @tempsToMake) != 0) {

- cleanupDie('mkdir tempRoot/tempMount failed');

-# This cleanup object is not strictly necessary, because $tempRoot is inside

-# of $tempSubdir, but the rest of the script relies on this object being

-# on the cleanup stack and expects to remove it.

-push(@gCleanup,

- sub {commandVerbosity(0, $gConfig{'cmd_rm'}, '-rf', $tempRoot);});

-# If $sourceFile is true, it means that $sourceFolder is to be treated as

-# a file and placed as a file within the volume root, as opposed to being

-# treated as the volume root itself. rsync will do this by default, if no

-# trailing '/' is present. With a trailing '/', $sourceFolder becomes

-# $tempRoot, instead of becoming an entry in $tempRoot.

-if(command($gConfig{'cmd_rsync'}, '-aC', '--copy-unsafe-links',

- $sourceFolder.($sourceFile?'':'/'),$tempRoot) != 0) {

- cleanupDie('rsync failed');

-if(@makeDirs) {

- my($makeDir, @tempDirsToMake);

- foreach $makeDir (@makeDirs) {

- if($makeDir =~ /^\//) {

- push(@tempDirsToMake, $tempRoot.$makeDir);

- }

- else {

- push(@tempDirsToMake, $tempRoot.'/'.$makeDir);

- }

- if(command($gConfig{'cmd_mkdir'}, '-p', @tempDirsToMake) != 0) {

- cleanupDie('mkdir failed');

- }

-# copy files and/or create symlinks

-copyFiles($tempRoot, 'copy', @copyFiles);

-copyFiles($tempRoot, 'symlink', @createSymlinks);

-if($gConfig{'create_directly'}) {

- # If create_directly is false, the contents will be rsynced into a

- # disk image and they would lose their attributes.

- setAttributes($tempRoot, @attributes);

-if(defined($iconFile)) {

- if(command($gConfig{'cmd_rsync'}, '-aC', '--copy-unsafe-links', $iconFile,

- $tempRoot.'/.VolumeIcon.icns') != 0) {

- cleanupDie('rsync failed for volume icon');

- }

- # It's pointless to set the attributes of the root when diskutil create

- # -srcfolder is being used. In that case, the attributes will be set

- # later, after the image is already created.

- if(isFormatCompressed($outputFormat) &&

- (command($gConfig{'cmd_SetFile'}, '-a', 'C', $tempRoot) != 0)) {

- cleanupDie('SetFile failed');

- }

-if(command($gConfig{'cmd_chmod'}, '-R', 'a+rX,a-st,u+w,go-w',

- $tempRoot) != 0) {

- cleanupDie('chmod failed');

-my($unflattenable);

-if(isFormatCompressed($outputFormat)) {

- $unflattenable = 1;

-else {

- $unflattenable = 0;

-diskImageMaker($tempRoot, $targetImage, $outputFormat, $volumeName,

- $tempSubdir, $tempMount, $targetImageFilename, defined($iconFile));

-if(defined($licenseFile) && $licenseFile ne '') {

- my($licenseResource);

- $licenseResource = $tempSubdir.'/license.r';

- if(!licenseMaker($licenseFile, $licenseResource)) {

- cleanupDie('licenseMaker failed');

- }

- push(@resourceFiles, $licenseResource);

- # Don't add a cleanup object because licenseResource is in tempSubdir.

-if(@resourceFiles) {

- # Add resources, such as a license agreement.

- # Only unflatten read-only and compressed images. It's not supported

- # on other image times.

- if($unflattenable &&

- (command($gConfig{'cmd_hdiutil'}, 'unflatten', $targetImage)) != 0) {

- cleanupDie('hdiutil unflatten failed');

- }

- # Don't push flatten onto the cleanup stack. If we fail now, we'll be

- # removing $targetImage anyway.

- # Type definitions come from Carbon.r.

- if(command($gConfig{'cmd_Rez'}, 'Carbon.r', @resourceFiles, '-a', '-o',

- $targetImage) != 0) {

- cleanupDie('Rez failed');

- }

- # Flatten. This merges the resource fork into the data fork, so no

- # special encoding is needed to transfer the file.

- if($unflattenable &&

- (command($gConfig{'cmd_hdiutil'}, 'flatten', $targetImage)) != 0) {

- cleanupDie('hdiutil flatten failed');

- }

-# $tempSubdir is no longer needed. It's buried on the stack below the

-# rm of the fresh image file. Splice in this fashion is equivalent to

-# pop-save, pop, push-save.

-splice(@gCleanup, -2, 1);

-# No need to remove licenseResource separately, it's in tempSubdir.

-if(command($gConfig{'cmd_rm'}, '-rf', $tempSubdir) != 0) {

- cleanupDie('rm -rf tempSubdir failed');

-if($idme) {

- if(command($gConfig{'cmd_hdiutil'}, 'internet-enable', '-yes',

- $targetImage) != 0) {

- cleanupDie('hdiutil internet-enable failed');

- }

-# Done.

-exit(0);

-# argumentEscape(@arguments)

-# Takes a list of @arguments and makes them shell-safe.

-sub argumentEscape(@) {

- my(@arguments);

- @arguments = @_;

- my($argument, @argumentsOut);

- foreach $argument (@arguments) {

- $argument =~ s%([^A-Za-z0-9_\-/.=+,])%\\$1%g;

- push(@argumentsOut, $argument);

- }

- return @argumentsOut;

-# cleanupDie($message)

-# Displays $message as an error message, and then runs through the

-# @gCleanup stack, performing any cleanup operations needed before

-# exiting. Does not return, exits with exit status 1.

-sub cleanupDie($) {

- my($message);

- ($message) = @_;

- print STDERR ($0.': '.$message.(@gCleanup?' (cleaning up)':'')."\n");

- while(@gCleanup) {

- my($subroutine);

- $subroutine = pop(@gCleanup);

- &$subroutine;

- }

- exit(1);

-# command(@arguments)

-# Runs the specified command at the verbosity level defined by $gVerbosity.

-# Returns nonzero on failure, returning the exit status if appropriate.

-# Discards command output.

-sub command(@) {

- my(@arguments);

- @arguments = @_;

- return commandVerbosity($gVerbosity,@arguments);

-# commandInternal($command, @arguments)

-# Runs the specified internal command at the verbosity level defined by

-# $gVerbosity.

-# Returns zero(!) on failure, because commandInternal is supposed to be a

-# direct replacement for the Perl system call wrappers, which, unlike shell

-# commands and C equivalent system calls, return true (instead of 0) to

-# indicate success.

-sub commandInternal($@) {

- my(@arguments, $command);

- ($command, @arguments) = @_;

- return commandInternalVerbosity($gVerbosity, $command, @arguments);

-# commandInternalVerbosity($verbosity, $command, @arguments)

-# Run an internal command, printing a bogus command invocation message if

-# $verbosity is true.

-# If $command is unlink:

-# Removes the files specified by @arguments. Wraps unlink.

-# If $command is symlink:

-# Creates the symlink specified by @arguments. Wraps symlink.

-sub commandInternalVerbosity($$@) {

- my(@arguments, $command, $verbosity);

- ($verbosity, $command, @arguments) = @_;

- if($command eq 'unlink') {

- if($verbosity || $gDryRun) {

- print(join(' ', 'rm', '-f', argumentEscape(@arguments))."\n");

- }

- if($gDryRun) {

- return $#arguments+1;

- }

- return unlink(@arguments);

- }

- elsif($command eq 'symlink') {

- if($verbosity || $gDryRun) {

- print(join(' ', 'ln', '-s', argumentEscape(@arguments))."\n");

- }

- if($gDryRun) {

- return 1;

- }

- my($source, $target);

- ($source, $target) = @arguments;

- return symlink($source, $target);

- }

-# commandOutput(@arguments)

-# Runs the specified command at the verbosity level defined by $gVerbosity.

-# Output is returned in an array of lines. undef is returned on failure.

-# The exit status is available in $?.

-sub commandOutput(@) {

- my(@arguments);

- @arguments = @_;

- return commandOutputVerbosity($gVerbosity, @arguments);

-# commandOutputVerbosity($verbosity, @arguments)

-# Runs the specified command at the verbosity level defined by the

-# $verbosity argument. Output is returned in an array of lines. undef is

-# returned on failure. The exit status is available in $?.

-# If an error occurs in fork or exec, an error message is printed to

-# stderr and undef is returned.

-# If $verbosity is 0, the command invocation is not printed, and its

-# stdout is not echoed back to stdout.

-# If $verbosity is 1, the command invocation is printed.

-# If $verbosity is 2, the command invocation is printed and the output

-# from stdout is echoed back to stdout.

-# Regardless of $verbosity, stderr is left connected.

-sub commandOutputVerbosity($@) {

- my(@arguments, $verbosity);

- ($verbosity, @arguments) = @_;

- my($pid);

- if($verbosity || $gDryRun) {

- print(join(' ', argumentEscape(@arguments))."\n");

- }

- if($gDryRun) {

- return(1);

- }

- if (!defined($pid = open(*COMMAND, '-|'))) {

- printf STDERR ($0.': fork: '.$!."\n");

- return undef;

- }

- elsif ($pid) {

- # parent

- my(@lines);

- while(!eof(*COMMAND)) {

- my($line);

- chop($line = <COMMAND>);

- if($verbosity > 1) {

- print($line."\n");

- }

- push(@lines, $line);

- }

- close(*COMMAND);

- if ($? == -1) {

- printf STDERR ($0.': fork: '.$!."\n");

- return undef;

- }

- elsif ($? & 127) {

- printf STDERR ($0.': exited on signal '.($? & 127).

- ($? & 128 ? ', core dumped' : '')."\n");

- return undef;

- }

- return @lines;

- }

- else {

- # child; this form of exec is immune to shell games

- if(!exec {$arguments[0]} (@arguments)) {

- printf STDERR ($0.': exec: '.$!."\n");

- exit(-1);

- }

-# commandVerbosity($verbosity, @arguments)

-# Runs the specified command at the verbosity level defined by the

-# $verbosity argument. Returns nonzero on failure, returning the exit

-# status if appropriate. Discards command output.

-sub commandVerbosity($@) {

- my(@arguments, $verbosity);

- ($verbosity, @arguments) = @_;

- if(!defined(commandOutputVerbosity($verbosity, @arguments))) {

- return -1;

- }

- return $?;

-# copyFiles($tempRoot, $method, @arguments)

-# Copies files or create symlinks in the disk image.

-# See --copy and --symlink descriptions for details.

-# If $method is 'copy', @arguments are interpreted as source:target, if $method

-# is 'symlink', @arguments are interpreted as symlink:target.

-sub copyFiles($@) {

- my(@fileList, $method, $tempRoot);

- ($tempRoot, $method, @fileList) = @_;

- my($file, $isSymlink);

- $isSymlink = ($method eq 'symlink');

- foreach $file (@fileList) {

- my($source, $target);

- ($source, $target) = split(/:/, $file);

- if(!defined($target) and $isSymlink) {

- # empty symlink targets would result in an invalid target and fail,

- # but they shall be interpreted as "like source path, but inside dmg"

- $target = $source;

- }

- if(!defined($target)) {

- $target = $tempRoot;

- }

- elsif($target =~ /^\//) {

- $target = $tempRoot.$target;

- }

- else {

- $target = $tempRoot.'/'.$target;

- }

- my($success);

- if($isSymlink) {

- $success = commandInternal('symlink', $source, $target);

- }

- else {

- $success = !command($gConfig{'cmd_rsync'}, '-aC', '--copy-unsafe-links',

- $source, $target);

- }

- if(!$success) {

- cleanupDie('copyFiles failed for method '.$method);

- }

-# diskImageMaker($source, $destination, $format, $name, $tempDir, $tempMount,

-# $baseName, $setRootIcon)

-# Creates a disk image in $destination of format $format corresponding to the

-# source directory $source. $name is the volume name. $tempDir is a good

-# place to write temporary files, which should be empty (aside from the other

-# things that this script might create there, like stage and mount).

-# $tempMount is a mount point for temporary disk images. $baseName is the

-# name of the disk image, and is presently unused. $setRootIcon is true if

-# a volume icon was added to the staged $source and indicates that the

-# custom volume icon bit on the volume root needs to be set.

-sub diskImageMaker($$$$$$$$) {

- my($baseName, $destination, $format, $name, $setRootIcon, $source,

- $tempDir, $tempMount);

- ($source, $destination, $format, $name, $tempDir, $tempMount,

- $baseName, $setRootIcon) = @_;

- if(isFormatCompressed($format)) {

- my($uncompressedImage);

- if($gConfig{'makehybrid'}) {

- my($hybridImage);

- $hybridImage = giveExtension($tempDir.'/hybrid', '.dmg');

- if(command($gConfig{'cmd_hdiutil'}, 'makehybrid', '-hfs',

- '-hfs-volume-name', $name, '-hfs-openfolder', $source, '-ov',

- $source, '-o', $hybridImage) != 0) {

- cleanupDie('hdiutil makehybrid failed');

- }

- $uncompressedImage = $hybridImage;

- # $source is no longer needed and will be removed before anything

- # else can fail. splice in this form is the same as pop/push.

- splice(@gCleanup, -1, 1,

- sub {commandInternalVerbosity(0, 'unlink', $hybridImage);});

- if(command($gConfig{'cmd_rm'}, '-rf', $source) != 0) {

- cleanupDie('rm -rf failed');

- }

- if(!$gConfig{'partition_table'} && $gConfig{'recursive_access'}) {

- # Even if we do want to create disk images without partition tables,

- # it's impossible unless recursive_access is set.

- my($rootDevice, $partitionDevice, $partitionMountPoint);

- if(!(($rootDevice, $partitionDevice, $partitionMountPoint) =

- hdidMountImage($tempMount, '-readonly', $hybridImage))) {

- cleanupDie('hdid mount failed');

- }

- push(@gCleanup, sub {commandVerbosity(0,

- $gConfig{'cmd_diskutil'}, 'eject', $rootDevice);});

- my($udrwImage);

- $udrwImage = giveExtension($tempDir.'/udrw', '.dmg');

- if(command($gConfig{'cmd_hdiutil'}, 'create', '-format', 'UDRW',

- '-ov', '-srcdevice', $partitionDevice, $udrwImage) != 0) {

- cleanupDie('hdiutil create failed');

- }

- $uncompressedImage = $udrwImage;

- # Going to eject before anything else can fail. Get the eject off

- # the stack.

- pop(@gCleanup);

- # $hybridImage will be removed soon, but until then, it needs to

- # stay on the cleanup stack. It needs to wait until after

- # ejection. $udrwImage is staying around. Make it appear as

- # though it's been done before $hybridImage.

- #

- # splice in this form is the same as popping one element to

- # @tempCleanup and pushing the subroutine.

- my(@tempCleanup);

- @tempCleanup = splice(@gCleanup, -1, 1,

- sub {commandInternalVerbosity(0, 'unlink', $udrwImage);});

- push(@gCleanup, @tempCleanup);

- if(command($gConfig{'cmd_diskutil'}, 'eject', $rootDevice) != 0) {

- cleanupDie('diskutil eject failed');

- }

- # Pop unlink of $uncompressedImage

- pop(@gCleanup);

- if(commandInternal('unlink', $hybridImage) != 1) {

- cleanupDie('unlink hybridImage failed: '.$!);

- }

- else {

- # makehybrid is not available, fall back to making a UDRW and

- # converting to a compressed image. It ought to be possible to

- # create a compressed image directly, but those come out far too

- # large (journaling?) and need to be read-write to fix up the

- # volume icon anyway. Luckily, we can take advantage of a single

- # call back into this function.

- my($udrwImage);

- $udrwImage = giveExtension($tempDir.'/udrw', '.dmg');

- diskImageMaker($source, $udrwImage, 'UDRW', $name, $tempDir,

- $tempMount, $baseName, $setRootIcon);

- # The call back into diskImageMaker already removed $source.

- $uncompressedImage = $udrwImage;

- }

- # The uncompressed disk image is now in its final form. Compress it.

- # Jaguar doesn't support hdiutil convert -ov, but it always allows

- # overwriting.

- # bzip2-compressed UDBZ images can only be created and mounted on 10.4

- # and later. The bzip2-level imagekey is only effective when creating

- # images in 10.5. In 10.4, bzip2-level is harmlessly ignored, and the

- # default value of 1 is always used.

- if(command($gConfig{'cmd_hdiutil'}, 'convert', '-format', $format,

- '-imagekey', ($format eq 'UDBZ' ? 'bzip2-level=9' : 'zlib-level=9'),

- (defined($gDarwinMajor) && $gDarwinMajor <= 6 ? () : ('-ov')),

- $uncompressedImage, '-o', $destination) != 0) {

- cleanupDie('hdiutil convert failed');

- }

- # $uncompressedImage is going to be unlinked before anything else can

- # fail. splice in this form is the same as pop/push.

- splice(@gCleanup, -1, 1,

- sub {commandInternalVerbosity(0, 'unlink', $destination);});

- if(commandInternal('unlink', $uncompressedImage) != 1) {

- cleanupDie('unlink uncompressedImage failed: '.$!);

- }

- # At this point, the only thing that the compressed block has added to

- # the cleanup stack is the removal of $destination. $source has already

- # been removed, and its cleanup entry has been removed as well.

- }

- elsif($format eq 'UDRW' || $format eq 'UDSP') {

- my(@extraArguments);

- if(!$gConfig{'partition_table'}) {

- @extraArguments = ('-layout', 'NONE');

- }

- if($gConfig{'create_directly'}) {

- # Use -fs HFS+ to suppress the journal.

- if(command($gConfig{'cmd_hdiutil'}, 'create', '-format', $format,

- @extraArguments, '-fs', 'HFS+', '-volname', $name,

- '-ov', '-srcfolder', $source, $destination) != 0) {

- cleanupDie('hdiutil create failed');

- }

- # $source is no longer needed and will be removed before anything

- # else can fail. splice in this form is the same as pop/push.

- splice(@gCleanup, -1, 1,

- sub {commandInternalVerbosity(0, 'unlink', $destination);});

- if(command($gConfig{'cmd_rm'}, '-rf', $source) != 0) {

- cleanupDie('rm -rf failed');

- }

- else {

- # hdiutil create does not support -srcfolder or -srcdevice, it only

- # knows how to create blank images. Figure out how large an image

- # is needed, create it, and fill it. This is needed for Jaguar.

- # Use native block size for hdiutil create -sectors.

- delete $ENV{'BLOCKSIZE'};

- my(@duOutput, $ignore, $sizeBlocks, $sizeOverhead, $sizeTotal, $type);

- if(!(@output = commandOutput($gConfig{'cmd_du'}, '-s', $tempRoot)) ||

- $? != 0) {

- cleanupDie('du failed');

- }

- ($sizeBlocks, $ignore) = split(' ', $output[0], 2);

- # The filesystem itself takes up 152 blocks of its own blocks for the

- # filesystem up to 8192 blocks, plus 64 blocks for every additional

- # 4096 blocks or portion thereof.

- $sizeOverhead = 152 + 64 * POSIX::ceil(

- (($sizeBlocks - 8192) > 0) ? (($sizeBlocks - 8192) / (4096 - 64)) : 0);

- # The number of blocks must be divisible by 8.

- my($mod);

- if($mod = ($sizeOverhead % 8)) {

- $sizeOverhead += 8 - $mod;

- }

- # sectors is taken as the size of a disk, not a filesystem, so the

- # partition table eats into it.

- if($gConfig{'partition_table'}) {

- $sizeOverhead += 80;

- }

- # That was hard. Leave some breathing room anyway. Use 1024 sectors

- # (512kB). These read-write images wouldn't be useful if they didn't

- # have at least a little free space.

- $sizeTotal = $sizeBlocks + $sizeOverhead + 1024;

- # Minimum sizes - these numbers are larger on Jaguar than on later

- # systems. Just use the Jaguar numbers, since it's unlikely to wind

- # up here on any other release.

- if($gConfig{'partition_table'} && $sizeTotal < 8272) {

- $sizeTotal = 8272;

- }

- if(!$gConfig{'partition_table'} && $sizeTotal < 8192) {

- $sizeTotal = 8192;

- }

- # hdiutil create without -srcfolder or -srcdevice will not accept

- # -format. It uses -type. Fortunately, the two supported formats

- # here map directly to the only two supported types.

- if ($format eq 'UDSP') {

- $type = 'SPARSE';

- }

- else {

- $type = 'UDIF';

- }

- if(command($gConfig{'cmd_hdiutil'}, 'create', '-type', $type,

- @extraArguments, '-fs', 'HFS+', '-volname', $name,

- '-ov', '-sectors', $sizeTotal, $destination) != 0) {

- cleanupDie('hdiutil create failed');

- }

- push(@gCleanup,

- sub {commandInternalVerbosity(0, 'unlink', $destination);});

- # The rsync will occur shortly.

- }

- my($mounted, $rootDevice, $partitionDevice, $partitionMountPoint);

- $mounted=0;

- if(!$gConfig{'create_directly'} || $gConfig{'openfolder_bless'} ||

- $setRootIcon) {

- # The disk image only needs to be mounted if:

- # create_directly is false, because the content needs to be copied

- # openfolder_bless is true, because bless -openfolder needs to run

- # setRootIcon is true, because the root needs its attributes set.

- if(!(($rootDevice, $partitionDevice, $partitionMountPoint) =

- hdidMountImage($tempMount, $destination))) {

- cleanupDie('hdid mount failed');

- }

- $mounted=1;

- push(@gCleanup, sub {commandVerbosity(0,

- $gConfig{'cmd_diskutil'}, 'eject', $rootDevice);});

- }

- if(!$gConfig{'create_directly'}) {

- # Couldn't create and copy directly in one fell swoop. Now that

- # the volume is mounted, copy the files. --copy-unsafe-links is

- # unnecessary since it was used to copy everything to the staging

- # area. There can be no more unsafe links.

- if(command($gConfig{'cmd_rsync'}, '-aC',

- $source.'/',$partitionMountPoint) != 0) {

- cleanupDie('rsync to new volume failed');

- }

- # We need to get the rm -rf of $source off the stack, because it's

- # being cleaned up here. There are two items now on top of it:

- # removing the target image and, above that, ejecting it. Splice it

- # out.

- my(@tempCleanup);

- @tempCleanup = splice(@gCleanup, -2);

- # The next splice is the same as popping once and pushing @tempCleanup.

- splice(@gCleanup, -1, 1, @tempCleanup);

- if(command($gConfig{'cmd_rm'}, '-rf', $source) != 0) {

- cleanupDie('rm -rf failed');

- }

- if($gConfig{'openfolder_bless'}) {

- # On Tiger, the bless docs say to use --openfolder, but only

- # --openfolder is accepted on Panther. Tiger takes it with a single

- # dash too. Jaguar is out of luck.

- if(command($gConfig{'cmd_bless'}, '-openfolder',

- $partitionMountPoint) != 0) {

- cleanupDie('bless failed');

- }

- setAttributes($partitionMountPoint, @attributes);

- if($setRootIcon) {

- # When "hdiutil create -srcfolder" is used, the root folder's

- # attributes are not copied to the new volume. Fix up.

- if(command($gConfig{'cmd_SetFile'}, '-a', 'C',

- $partitionMountPoint) != 0) {

- cleanupDie('SetFile failed');

- }

- if($mounted) {

- # Pop diskutil eject

- pop(@gCleanup);

- if(command($gConfig{'cmd_diskutil'}, 'eject', $rootDevice) != 0) {

- cleanupDie('diskutil eject failed');

- }

- # End of UDRW/UDSP section. At this point, $source has been removed

- # and its cleanup entry has been removed from the stack.

- }

- else {

- cleanupDie('unrecognized format');

- print STDERR ($0.": unrecognized format\n");

- exit(1);

- }

-# giveExtension($file, $extension)

-# If $file does not end in $extension, $extension is added. The new

-# filename is returned.

-sub giveExtension($$) {

- my($extension, $file);

- ($file, $extension) = @_;

- if(substr($file, -length($extension)) ne $extension) {

- return $file.$extension;

- }

- return $file;

-# hdidMountImage($mountPoint, @arguments)

-# Runs the hdid command with arguments specified by @arguments.

-# @arguments may be a single-element array containing the name of the

-# disk image to mount. Returns a three-element array, with elements

-# corresponding to:

-# - The root device of the mounted image, suitable for ejection

-# - The device corresponding to the mounted partition

-# - The mounted partition's mount point

-# If running on a system that supports easy mounting at points outside

-# of the default /Volumes with hdiutil attach, it is used instead of hdid,

-# and $mountPoint is used as the mount point.

-# The root device will differ from the partition device when the disk

-# image contains a partition table, otherwise, they will be identical.

-# If hdid fails, undef is returned.

-sub hdidMountImage($@) {

- my(@arguments, @command, $mountPoint);

- ($mountPoint, @arguments) = @_;

- my(@output);

- if($gConfig{'hdiutil_mountpoint'}) {

- @command=($gConfig{'cmd_hdiutil'}, 'attach', @arguments,

- '-mountpoint', $mountPoint);

- }

- else {

- @command=($gConfig{'cmd_hdid'}, @arguments);

- }

- if(!(@output = commandOutput(@command)) ||

- $? != 0) {

- return undef;

- }

- if($gDryRun) {

- return('/dev/diskX','/dev/diskXsY','/Volumes/'.$volumeName);

- }

- my($line, $restOfLine, $rootDevice);

- foreach $line (@output) {

- my($device, $mountpoint);

- if($line !~ /^\/dev\//) {

- # Consider only lines that correspond to /dev entries

- next;

- }

- ($device, $restOfLine) = split(' ', $line, 2);

- if(!defined($rootDevice) || $rootDevice eq '') {

- # If this is the first device seen, it's the root device to be

- # used for ejection. Keep it.

- $rootDevice = $device;

- }

- if($restOfLine =~ /(\/.*)/) {

- # The first partition with a mount point is the interesting one. It's

- # usually Apple_HFS and usually the last one in the list, but beware of

- # the possibility of other filesystem types and the Apple_Free partition.

- # If the disk image contains no partition table, the partition will not

- # have a type, so look for the mount point by looking for a slash.

- $mountpoint = $1;

- return($rootDevice, $device, $mountpoint);

- }

- # No mount point? This is bad. If there's a root device, eject it.

- if(defined($rootDevice) && $rootDevice ne '') {

- # Failing anyway, so don't care about failure

- commandVerbosity(0, $gConfig{'cmd_diskutil'}, 'eject', $rootDevice);

- }

- return undef;

-# isFormatCompressed($format)

-# Returns true if $format corresponds to a compressed disk image format.

-# Returns false otherwise.

-sub isFormatCompressed($) {

- my($format);

- ($format) = @_;

- return $format eq 'UDZO' || $format eq 'UDBZ';

-# licenseMaker($text, $resource)

-# Takes a plain text file at path $text and creates a license agreement

-# resource containing the text at path $license. English-only, and

-# no special formatting. This is the bare-bones stuff. For more

-# intricate license agreements, create your own resource.

-# ftp://ftp.apple.com/developer/Development_Kits/SLAs_for_UDIFs_1.0.dmg

-sub licenseMaker($$) {

- my($resource, $text);

- ($text, $resource) = @_;

- if(!sysopen(*TEXT, $text, O_RDONLY)) {

- print STDERR ($0.': licenseMaker: sysopen text: '.$!."\n");

- return 0;

- }

- if(!sysopen(*RESOURCE, $resource, O_WRONLY|O_CREAT|O_EXCL)) {

- print STDERR ($0.': licenseMaker: sysopen resource: '.$!."\n");

- return 0;

- }

- print RESOURCE << '__EOT__';

-// See /System/Library/Frameworks/CoreServices.framework/Frameworks/CarbonCore.framework/Headers/Script.h for language IDs.

-data 'LPic' (5000) {

- // Default language ID, 0 = English

- $"0000"

- // Number of entries in list

- $"0001"

- // Entry 1

- // Language ID, 0 = English

- $"0000"

- // Resource ID, 0 = STR#/TEXT/styl 5000

- $"0000"

- // Multibyte language, 0 = no

- $"0000"

-};

-resource 'STR#' (5000, "English") {

- {

- // Language (unused?) = English

- "English",

- // Agree

- "Agree",

- // Disagree

- "Disagree",

-__EOT__

- # This stuff needs double-quotes for interpolations to work.

- print RESOURCE (" // Print, ellipsis is 0xC9\n");

- print RESOURCE (" \"Print\xc9\",\n");

- print RESOURCE (" // Save As, ellipsis is 0xC9\n");

- print RESOURCE (" \"Save As\xc9\",\n");

- print RESOURCE (' // Descriptive text, curly quotes are 0xD2 and 0xD3'.

- "\n");

- print RESOURCE (' "If you agree to the terms of this license '.

- "agreement, click \xd2Agree\xd3 to access the software. If you ".

- "do not agree, press \xd2Disagree.\xd3\"\n");

-print RESOURCE << '__EOT__';

- };

-};

-// Beware of 1024(?) byte (character?) line length limitation. Split up long

-// lines.

-// If straight quotes are used ("), remember to escape them (\").

-// Newline is \n, to leave a blank line, use two of them.

-// 0xD2 and 0xD3 are curly double-quotes ("), 0xD4 and 0xD5 are curly

-// single quotes ('), 0xD5 is also the apostrophe.

-data 'TEXT' (5000, "English") {

-__EOT__

- while(!eof(*TEXT)) {

- my($line);

- chop($line = <TEXT>);

- while(defined($line)) {

- my($chunk);

- # Rez doesn't care for lines longer than (1024?) characters. Split

- # at less than half of that limit, in case everything needs to be

- # backwhacked.

- if(length($line)>500) {

- $chunk = substr($line, 0, 500);

- $line = substr($line, 500);

- }

- else {

- $chunk = $line;

- $line = undef;

- }

- if(length($chunk) > 0) {

- # Unsafe characters are the double-quote (") and backslash (\), escape

- # them with backslashes.

- $chunk =~ s/(["\\])/\\$1/g;

- print RESOURCE ' "'.$chunk.'"'."\n";

- }

- print RESOURCE ' "\n"'."\n";

- }

- close(*TEXT);

- print RESOURCE << '__EOT__';

-};

-data 'styl' (5000, "English") {

- // Number of styles following = 1

- $"0001"

- // Style 1. This is used to display the first two lines in bold text.

- // Start character = 0

- $"0000 0000"

- // Height = 16

- $"0010"

- // Ascent = 12

- $"000C"

- // Font family = 1024 (Lucida Grande)

- $"0400"

- // Style bitfield, 0x1=bold 0x2=italic 0x4=underline 0x8=outline

- // 0x10=shadow 0x20=condensed 0x40=extended

- $"00"

- // Style, unused?

- $"02"

- // Size = 12 point

- $"000C"

- // Color, RGB

- $"0000 0000 0000"

-};

-__EOT__

- close(*RESOURCE);

- return 1;

-# pathSplit($pathname)

-# Splits $pathname into an array of path components.

-sub pathSplit($) {

- my($pathname);

- ($pathname) = @_;

- return split(/\//, $pathname);

-# setAttributes($root, @attributeList)

-# @attributeList is an array, each element of which must be in the form

-# <a>:<file>. <a> is a list of attributes, per SetFile. <file> is a file

-# which is taken as relative to $root (even if it appears as an absolute

-# path.) SetFile is called to set the attributes on each file in

-# @attributeList.

-sub setAttributes($@) {

- my(@attributes, $root);

- ($root, @attributes) = @_;

- my($attribute);

- foreach $attribute (@attributes) {

- my($attrList, $file, @fileList, @fixedFileList);

- ($attrList, @fileList) = split(/:/, $attribute);

- if(!defined($attrList) || !@fileList) {

- cleanupDie('--attribute requires <attributes>:<file>');

- }

- @fixedFileList=();

- foreach $file (@fileList) {

- if($file =~ /^\//) {

- push(@fixedFileList, $root.$file);

- }

- else {

- push(@fixedFileList, $root.'/'.$file);

- }

- if(command($gConfig{'cmd_SetFile'}, '-a', $attrList, @fixedFileList)) {

- cleanupDie('SetFile failed to set attributes');

- }

- return;

-sub trapSignal($) {

- my($signalName);

- ($signalName) = @_;

- cleanupDie('exiting on SIG'.$signalName);

-sub usage() {

- print STDERR (

-"usage: pkg-dmg --source <source-folder>\n".

-" --target <target-image>\n".

-" [--format <format>] (default: UDZO)\n".

-" [--volname <volume-name>] (default: same name as source)\n".

-" [--tempdir <temp-dir>] (default: same dir as target)\n".

-" [--mkdir <directory>] (make directory in image)\n".

-" [--copy <source>[:<dest>]] (extra files to add)\n".

-" [--symlink <source>[:<dest>]] (extra symlinks to add)\n".

-" [--license <file>] (plain text license agreement)\n".

-" [--resource <file>] (flat .r files to merge)\n".

-" [--icon <icns-file>] (volume icon)\n".

-" [--attribute <a>:<file>] (set file attributes)\n".

-" [--idme] (make Internet-enabled image)\n".

-" [--sourcefile] (treat --source as a file)\n".

-" [--verbosity <level>] (0, 1, 2; default=2)\n".

-" [--dry-run] (print what would be done)\n");

- return;

« no previous file with comments | « build/mac/generate_localizer ('k') | build/mac/remove_target_headers » ('j') | no next file with comments »