4 set dst_root
=`abspath $1`
6 set subdirs
=`find * -type d -print`
9 set files
=`find * \( -type d -prune \) -o -type f -print`
16 foreach subdir
($subdirs)
18 mkdir
$dst_root/$subdir
20 set files
=`find * \( -type d -prune \) -o -type f -print`
22 ln $files $dst_root/$subdir