#/usr/bin/perl

# Usage: sl [filenames]

die "Usage: sl [filenames]\n" unless @ARGV;

# Preliminaries.

$| = 1;
chop($cwd = `pwd`) || die "Can't find current directory: $!\n"
    if @ARGV > 1;
print "\n";

# Do each name.

foreach $name (@ARGV) {
    @indent = ();
    print "$name:\n";
    @path = split(m;/;, $name);

    # Make an absolute path relative to /.

    if (@path && $path[0] eq '') {
	chdir '/';
	shift @path;
	print '/';
	$indent = 1;
    }

    # Now follow the subdirectories and links.

    while (@path) {
	$elem = shift @path;
	$new = readlink($elem);
	if (defined $new) {     # A symbolic link.
	    print "$elem -> $new\n";
	    $new =~ s!^\./!!;

	    # Prepend symbolic link to rest of path.

	    unshift(@path,split(m;/;, $new));

	    # Deal with special cases.

	    if (@path && $path[0] eq '') {

		# Absolute path starts over.

		chdir '/';
		shift @path;
		print '/';
		$indent = 1;
		@indents = ();
		next;
	    }

	    # Back up the tree as necessary.

	    while (@indents && $path[0] eq '..') {
		$indent = pop(@indents);
		chdir '..'
		    || die "\n\nCan't cd to ..: $!\n";
		shift @path;
	    }

	    print "\t" x ($indent / 8), ' ' x ($indent % 8);
	}
	else {                  # An ordinary directory.
	    print $elem;
	    push(@indents,$indent);
	    $indent += length($elem) + 1;
	    if (@path) {
		print '/';
		chdir $elem
		    || die "\n\nCan't cd to $elem: $!\n";
	    }
	}
    }
    print "\n\n";
    $indent = 0;
    chdir $cwd || die "Can't cd back: $!\n" if $cwd ne '';
}