# -*- cperl -*-

%%

tarefas    : tarefa tarefas   { +[ $_[1], @{$_[2]} ] }
           | tarefa           { +[ $_[1] ] }
           ;

tarefa     : nome ':' dependencias '(' tempo ')' nrcpus comandos {
                +{
		  rule => $_[1],
                  depend_on => $_[3],
		  walltime => $_[5],
                  action => $_[8],
		  cpus => $_[7],
                }
           }
           ;

nrcpus     : '[' NR ']' { return $_[2] }
           |            { return 0 }
           ;

nome       : ID       { +{ id => $_[1] } }
           | ID VAR   { +{ id => $_[1], var => $_[2] } }
           ;

dependencias: nome dependencias { +[ $_[1], @{$_[2]} ] }
            |                   { +[] }
            ;

tempo       : TIME    { $_[1] }
            ;

comandos    : comando          { +[$_[1]] }
            | comandos comando { +[ @{$_[1]}, $_[2]] }
            ;

comando     : comandoShell  { $_[1] }
            | comandoPerl   { $_[1] }
            | atribuicaoSet { $_[1] }
            ;

comandoShell: CMD     { +{ shell => $_[1] } }
            ;

comandoPerl: PRL      { +{ perl => $_[1] } }
           ;

atribuicaoSet: ATRIBCMD          { $_[1] }
             | ATRIBPRL          { $_[1] }
             ;

%%


use Data::Dumper;

my $File;

sub parseFile {
  my $self = shift;
  my $file = shift || undef;
  my $p = new Makefile::Parallel::Grammar();
  init_lex($file);
  $p->YYParse( yylex   => \&yylex,
	       yyerror => \&yyerror);
}

sub yyerror {
  if ($_[0]->YYCurtok) {
    printf STDERR ('Error: a "%s" (%s) was found where %s was expected '."\n",
		   $_[0]->YYCurtok, $_[0]->YYCurval, $_[0]->YYExpect);
    printf STDERR "Remaining file:\n$File"
  } else {
    print  STDERR "Expecting one of ",join(", ",$_[0]->YYExpect),"\n";
  }
}


sub init_lex{
  my $file = shift;
  local $/;
  undef $/;

  if ($file) {
    open F, $file or die "$!";
    $File = <F>;
    close F;
  } else {
    $File = <>
  }

  $File.="\n";
}

sub yylex{
  for($File){
    # Advance spaces and comments
    1 while (s!^( |\n|\#.*)!!g);

    # EOF
    return ("","") if $_ eq "";

    my $ID = qr/[a-zA-Z][a-zA-Z0-9-]*/;

    # Tokens
    s!^($ID)!!                         and return ("ID", $1);
    s!^(\$[a-zA-Z])!!                  and return ("VAR", $1);
    s!^((\d+:)+\d+)!!                  and return ("TIME", $1);
    s!^(\d+)!!                         and return ("NR", $1);
    s!^[\[\]:\(\)]!!                   and return ($&, $&);

    # UGLY but works for now
    s!^\t([A-Za-z])\s*<-\s*sub\{\s*([^\n]+)\s*\}!!  and return ("ATRIBPRL", +{def=>$1,asPerl=>$2});
    s!^\t([A-Za-z])\s*<-\s*([^\n]+)!!               and return ("ATRIBCMD", +{def=>$1,asShell=>$2});

    s!^\t\s*sub\{\s*([^\n]+)\s*\}\n!!  and return ("PRL", $1);
    s!^\t\s*([^\n]+)\n!!               and return ("CMD", $1);

    print STDERR "Unexpected symbols: '$File'\n" ;
  }
}