2006-11-02 17:56:50 +00:00
|
|
|
source $stdenv/setup
|
|
|
|
|
|
|
|
set -o pipefail
|
|
|
|
|
2006-11-27 01:35:34 +00:00
|
|
|
objects=($objects)
|
|
|
|
symlinks=($symlinks)
|
|
|
|
suffices=($suffices)
|
|
|
|
|
2006-11-02 17:56:50 +00:00
|
|
|
mkdir root
|
2006-11-27 01:35:34 +00:00
|
|
|
|
|
|
|
# Needed for splash_helper, which gets run before init.
|
|
|
|
mkdir root/dev
|
|
|
|
mkdir root/sys
|
|
|
|
mkdir root/proc
|
|
|
|
|
|
|
|
|
|
|
|
for ((n = 0; n < ${#objects[*]}; n++)); do
|
|
|
|
object=${objects[$n]}
|
|
|
|
symlink=${symlinks[$n]}
|
|
|
|
suffix=${suffices[$n]}
|
|
|
|
if test "$suffix" = none; then suffix=; fi
|
|
|
|
|
|
|
|
mkdir -p $(dirname root/$symlink)
|
|
|
|
ln -s $object$suffix root/$symlink
|
|
|
|
done
|
2006-12-10 22:29:44 +00:00
|
|
|
|
2006-11-02 17:56:50 +00:00
|
|
|
|
2007-01-23 14:37:42 +00:00
|
|
|
# Get the paths in the closure of `object'.
|
|
|
|
storePaths=$(perl $pathsFromGraph closure-*)
|
|
|
|
|
|
|
|
|
|
|
|
# Paths in cpio archives *must* be relative, otherwise the kernel
|
|
|
|
# won't unpack 'em.
|
|
|
|
(cd root && cp -prd --parents $storePaths .)
|
|
|
|
|
|
|
|
|
2006-11-02 17:56:50 +00:00
|
|
|
# Put the closure in a gzipped cpio archive.
|
|
|
|
ensureDir $out
|
2006-11-27 01:35:34 +00:00
|
|
|
(cd root && find * -print0 | cpio -ov -H newc --null | gzip -9 > $out/initrd)
|