2006-11-02 17:56:50 +00:00
|
|
|
source $stdenv/setup
|
|
|
|
|
2007-01-23 13:44:41 +00:00
|
|
|
sources_=($sources)
|
|
|
|
targets_=($targets)
|
|
|
|
|
|
|
|
objects=($objects)
|
|
|
|
symlinks=($symlinks)
|
|
|
|
|
2009-06-09 12:01:31 +00:00
|
|
|
|
|
|
|
# Remove the initial slash from a path, since genisofs likes it that way.
|
|
|
|
stripSlash() {
|
|
|
|
res="$1"
|
|
|
|
if test "${res:0:1}" = /; then res=${res:1}; fi
|
|
|
|
}
|
|
|
|
|
|
|
|
stripSlash "$bootImage"; bootImage="$res"
|
|
|
|
|
|
|
|
|
2006-11-02 17:56:50 +00:00
|
|
|
if test -n "$bootable"; then
|
2007-02-07 15:23:19 +00:00
|
|
|
|
|
|
|
# The -boot-info-table option modifies the $bootImage file, so
|
|
|
|
# find it in `contents' and make a copy of it (since the original
|
|
|
|
# is read-only in the Nix store...).
|
|
|
|
for ((i = 0; i < ${#targets_[@]}; i++)); do
|
2009-06-09 12:01:31 +00:00
|
|
|
stripSlash "${targets_[$i]}"
|
|
|
|
if test "$res" = "$bootImage"; then
|
2007-02-07 15:23:19 +00:00
|
|
|
echo "copying the boot image ${sources_[$i]}"
|
|
|
|
cp "${sources_[$i]}" boot.img
|
|
|
|
chmod u+w boot.img
|
|
|
|
sources_[$i]=boot.img
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
|
2008-01-24 16:56:09 +00:00
|
|
|
bootFlags="-b $bootImage -c .boot.cat -no-emul-boot -boot-load-size 4 -boot-info-table"
|
2006-11-02 17:56:50 +00:00
|
|
|
fi
|
|
|
|
|
2009-06-09 12:01:31 +00:00
|
|
|
|
2008-01-15 15:39:34 +00:00
|
|
|
touch pathlist
|
2007-01-23 13:44:41 +00:00
|
|
|
|
2009-06-09 12:01:31 +00:00
|
|
|
|
2007-01-23 14:34:44 +00:00
|
|
|
# Add the individual files.
|
2006-11-03 23:41:57 +00:00
|
|
|
for ((i = 0; i < ${#targets_[@]}; i++)); do
|
2009-06-09 12:01:31 +00:00
|
|
|
stripSlash "${targets_[$i]}"
|
|
|
|
echo "$res=$(readlink -f ${sources_[$i]})" >> pathlist
|
2006-11-03 23:41:57 +00:00
|
|
|
done
|
|
|
|
|
|
|
|
|
2007-01-23 14:34:44 +00:00
|
|
|
# Add the closures of the top-level store objects.
|
|
|
|
storePaths=$(perl $pathsFromGraph closure-*)
|
|
|
|
for i in $storePaths; do
|
2008-01-15 15:39:34 +00:00
|
|
|
echo "${i:1}=$i" >> pathlist
|
2007-01-23 14:34:44 +00:00
|
|
|
done
|
|
|
|
|
|
|
|
|
2009-06-10 13:40:35 +00:00
|
|
|
# Also include a manifest of the closures in a format suitable for
|
|
|
|
# nix-store --load-db.
|
2008-01-30 01:28:56 +00:00
|
|
|
printRegistration=1 perl $pathsFromGraph closure-* > nix-path-registration
|
|
|
|
echo "nix-path-registration=nix-path-registration" >> pathlist
|
2007-01-23 15:08:00 +00:00
|
|
|
|
|
|
|
|
2007-01-23 14:34:44 +00:00
|
|
|
# Add symlinks to the top-level store objects.
|
2007-01-23 13:44:41 +00:00
|
|
|
for ((n = 0; n < ${#objects[*]}; n++)); do
|
|
|
|
object=${objects[$n]}
|
|
|
|
symlink=${symlinks[$n]}
|
|
|
|
if test "$symlink" != "none"; then
|
|
|
|
mkdir -p $(dirname ./$symlink)
|
|
|
|
ln -s $object ./$symlink
|
2008-01-15 15:39:34 +00:00
|
|
|
echo "$symlink=./$symlink" >> pathlist
|
2007-01-23 13:44:41 +00:00
|
|
|
fi
|
2006-11-03 23:41:57 +00:00
|
|
|
done
|
|
|
|
|
2009-06-09 12:01:31 +00:00
|
|
|
# !!! what does this do?
|
2008-03-10 20:19:33 +00:00
|
|
|
cat pathlist | sed -e 's/=\(.*\)=\(.*\)=/\\=\1=\2\\=/' | tee pathlist.safer
|
2008-01-15 15:39:34 +00:00
|
|
|
|
2008-06-05 13:42:18 +00:00
|
|
|
|
2006-11-04 12:08:10 +00:00
|
|
|
ensureDir $out/iso
|
2008-08-08 17:07:04 +00:00
|
|
|
genCommand="genisoimage -iso-level 4 -r -J $bootFlags -hide-rr-moved -graft-points -path-list pathlist.safer ${volumeID:+-V $volumeID}"
|
2008-06-05 13:42:18 +00:00
|
|
|
if test -z "$compressImage"; then
|
|
|
|
$genCommand -o $out/iso/$isoName
|
|
|
|
else
|
|
|
|
$genCommand | bzip2 > $out/iso/$isoName.bz2
|
|
|
|
fi
|
2008-08-08 17:07:04 +00:00
|
|
|
|
2006-11-04 12:00:05 +00:00
|
|
|
|
|
|
|
ensureDir $out/nix-support
|
|
|
|
echo $system > $out/nix-support/system
|