#!/usr/bin/perl

use Parse::RecDescent;
use Data::Dumper;

$::RD_ERRORS = 1; #Parser dies when it encounters an error
$::RD_WARN   = 1; #Enable warnings - warn on unused rules &c.
$::RD_HINT   = 1; # Give out hints to help fix problems.

our %DATA;

#my $module_grammar = <<'END_OF_MODULE_GRAMMAR';
  #start : start_module
  #start_module : '(module ' name module_values
  #module_values : '(' section | keypair ')'
  #section : '(' fp_text 
  #keypair : '(' key value ')'
#END_OF_MODULE_GRAMMAR

my $net_grammer = <<'END_OF_NET_GRAMMER';
  start : nets(s)
  nets  : '(net ' node name ')'
  {
    $main::DATA{"NET"}{$item{'node'}} = $item{'name'};
    print "$_\n" for @item{'node'};
  }
  node  : m/\d+/
  name  : m/\S+/
END_OF_NET_GRAMMER

my $text;
open ( BRD, "<attiny84ap.kicad_pcb") or die("ha ha");
while (<BRD>)
{
  my $new_line = $_;
  chomp;
  $text = "$text $new_line";
}

$text =~ s/\s+\(/\(/g; # remove white space in front of '('
$text =~ s/\(\s+/\(/g; # remove white space after '('
$text =~ s/\s+\)/\)/g; # remove white space in front of ')'
$text =~ s/\)s+/\)/g; # remove white space after ')'

# This takes tooooo long silly
#$text =~ m/\(kicad_pcb\(version (\d+)\)\(host pcbnew \"(.*)\"\)\(general(.*)\)\(page (\S+)\)\(layers(.*)\)\(setup(.*)\)(\(net .*\))\(net_class/;
#my $version = $1;
#my $pcbnew_revision = $2;
#my $section_general = $3;
#my $page = $4;
#my $section_layers = $5;
#my $section_setup = $6;
#my $netlist_map = $7;

$text =~ m/^\(kicad_pcb\(version (\d+)\)(\(.*\))\)$/;
my $version = $1;
$text = $2;
#print "D - $version\n";

$text =~ m/^\(host pcbnew \"(.*)\"\)(\(general.*\))$/;
my $pcbnew_revision = $1;
$text = $2;
#print "D - $pcbnew_revision\n";

$text =~ m/^\(general(.*)\)(\(page .*\))$/;
my $section_general = $1;
$text = $2;
$section_general =~ s/\)\(/\)\n\(/g; # put newline between ')('
#print "D - $section_general\n";

$text =~ m/^\(page (\S+)\)(\(layers.*\))$/;
my $page = $1;
$text = $2;
#print "D - $page\n";

$text =~ m/^\(layers(\(.*\))\)(\(setup.*\))$/;
my $section_layers = $1;
$text = $2;
$section_layers =~ s/\)\(/\)\n\(/g; # put newline between ')('
#print "D - $section_layers\n";

$text =~ m/^\(setup(.*\)\))\)(\(net .*\))$/;
my $section_setup = $1;
$text = $2;
$section_setup =~ s/\)\(/\)\n\(/g; # put newline between ')('
#print "D - $section_setup\n";

$text =~ m/^(\(net .*\))(\(net_class.*)$/;
my $netlist_map = $1;
$text = $2;
$netlist_map =~ s/\)\(/\)\n\(/g; # put newline between ')('
print "D - $netlist_map\n";

my $parser = Parse::RecDescent->new($net_grammar) or die "Bad grammar!\n";
defined $parser->start($netlist_map) or die "Text doesn't match";

foreach my $KEY (keys %($DATA{"NET"}))
{
  print "$KEY\n";
}

exit;