#!perl -w
# Version 0.01
use strict;
use RISCOS::Chunkfile;
use RISCOS::File 'globlist';
use RISCOS::Filespec;

use vars qw($VERSION);

$VERSION = 0.01;

sub do_file
{
    my $file = shift;
    my $chunks = new RISCOS::Chunkfile shift;
    # So that name and data source can differ

    unless ($chunks) {
	warn "'$file' is not a chunkfile";
    }
    else
    {
        foreach my $chunk (@{$chunks->Chunks}) {
            printf "%-3d %8s  at &%06X  %d\n",
              $chunk->Index, $chunk->ID, $chunk->Offset, $chunk->Length;
        }
    }
}

foreach (globlist(@ARGV))
{
    do_file ($_, $_);
}
