#!perl -lw
# Version 0.01
use RISCOS::Throwback;
use RISCOS::Chunkfile;
use RISCOS::File 'globlist';
use RISCOS::Filespec;


foreach $file (globlist @ARGV)
{
    my $chunks = new RISCOS::Chunkfile $file;
    
    print "$file:";
    
    foreach my $id (sort keys %{$chunks->Index})
    {
        print "\t$id\t", join (' ', @{$chunks->Lookup ($id)});
    }
}
