#!/usr/bin/perl

use vars qw(%VARIABLE);
use Data::Dumper;
use Parse::RecDescent;
$::RD_ERRORS = 1;
$::RD_HINT = 1;
$::RD_WARN = 1;
$::RD_TRACE = 1;

my %album = (
  Title => 'The Collected Works of Mozart',
  Performer => 'The Royal Symphonic Orchestra',
  Barcode => '1234567890123',
);
my %hash1 = (
  Title => 'Disk 1',
  Type  => 'Audio',
  Foo   => 'bar',
);
my %hash2 = (
  Title => 'Disk 2',
  Type  => 'Audio',
  Foo   => 'FooBar',
);
my %hash3 = (
  Title => 'Chopsticks',
  Performer => 'Pascal Roge',
  ISRC => 'AABBB1122222',
);		# Example data for illustration purposes.

$album{'Disc'}[0]=\%hash1;		# Example data, stored as Disc[0].
$album{'Disc'}[1]=\%hash2;		# Example data, stored as Disc[1].
$album{'Disc'}[1]{'Track'}[0]=\%hash3;	# Disc 2 Track 1

#=========== Start of actual parsing code ====================================

my $file = '/home/Media/Music/tmp/01.toc';

{
  local $/;
  undef $/;
  
  open my $grammarfh, '<', 'TOC.bnf' or die "Arghh! Cannot open grammar.\n";
  $grammar = <$grammarfh>;

  open my $fh, '<', $file or die "Arghh! Cannot open file.\n";
  $text = <$fh> ;
}

my $parser = new Parse::RecDescent($grammar) || die "Bad Grammar!\n";
my $cd = $parser->contents($text);

push @{$album{'Disc'}}, $cd;			# Not quite right! Check.. Copy data, not store a reference.

print Dumper(\%album);
print Dumper(\%VARIABLE);		# Perhaps we should store the parsed info in here?

print Dumper($cd);

sub subroutine {
  shift; print "Entered Subroutine\n";
  my ($foo, $bar) = @_;
  return $foo;