#!/usr/bin/perl -s

# PASSarola submission CHECKer v1.0

our($mkbase, $debug, $id, $passdir, $vi, $t, $remove, $dump);  ## debug, exid, passdir, test number

use utf8::all;
use strict;
use warnings;

use Exercise::Gen::Verify;
use Data::Dumper; $Data::Dumper::Terse=2; $Data::Dumper::Indent=0;

if($passdir){
	set_pass_basedir($passdir);
}

if($mkbase){
  my @ids = (($id ? ($id) : ()), @ARGV);
  die("Error: version_id missing\n") unless @ids;

  mk_exercise_base(@ids);
  exit 0;
}

if($dump){
  dump_exer();
  exit 0;
}


if($vi){
  my @ids = (($id ? ($id) : ()), @ARGV);
  die("Error: version_id missing\n") unless @ids;

  open (F,">","$ids[0]-submit") or die("cant create submit file\n");
  my $ant = select(F);
  mk_exercise_base(@ids);
  select($ant);
  close F;
  system("vi $ids[0]-submit");
  open (F,"<","$ids[0]-submit") or die("cant open submit file\n");
  my $submit = parse_submission(join("",<F>));
  close F;
  _printtab( verify_exercise($submit));
  exit 0;
}

if($remove){
  my @ids = (($id ? ($id) : ()), @ARGV);
  die("Error: version_id missing\n") unless @ids;
  Exercise::Gen::Verify::remove_exercise(@ids);
  exit 0;
}

my $submit = parse_submission(join("",<>));
if($id){ _printtab( verify_exercise($id,$submit));}
else   { _printtab( verify_exercise(    $submit));}


sub _printtab{
 for my $tab(@_){
   if   (ref $tab eq "ARRAY"){ print map {Dumper($_)."\n"} @$tab}
   elsif(ref $tab eq "HASH" ){ print map {Dumper($_,$tab->{$_})."\n"} keys %$tab}
   else { print "$tab\n" }
 }
}

__END__

if($t =~ /1/){
  set_exercise_answer(123456,
      { q1a => {cot=>1,v=> "batatas",type=>"s"},
        q1b => {cot=>2,v=>"batatas",type=>'icstr'},
        q0a => {cot=>2,v=>"verdade", type=>'bool'},
        q0b => {cot=>2,v=>"false"  , type=>'bool'},
        q2  => {cot=>3,v=>3.001,},
        q3a => {       v=>[1,2,3]},
        q3b => {cot=>2,v=>[1,[2,3,3],3]},
        q3c => {cot=>2,v=>[1,'rui', 'joão']},
        q3d => {cot=>8,v=>[1,2,3]},
        q3e => {       v=>[1/3,2/3,3]},
        q4  => {cot=>5,v=>[1,2,[5,5]],type=>'memberof'},
        q5  => {cot=>2,func=>q{sub{my ($a,$b)=@_; $b =~ /\b(dog|cat)\b/}}},
        q6  => {cot=>1,v=> undef},                  # undef = any
        q7a => {cot=>2,v=>[[9,3],[16,4],[100,10]],type => "tabfun"},
        q7b => {cot=>2,v=>[[9,3,6],[16,4,12],[100,10,90]],type => "tabfun"},
        q8a => {cot=>5,v=>"sin(x)",type => "r2funmax"},
        q8b => {cot=>2,v=>"x^2+-3+x+x",type => "r2funmax"},
        q8c => {cot=>2,v=>"(x^2+x*3)/x",type => "r2funmax"},
      });
}
if($t =~ /2/){
   _printtab( verify_exercise(
      { version_id => 123456,
        q1a => "batatas",
        q1b => "Batatas ",                   # eq with ic and accents
        q0a => "t",
        q0b => "0",
        q2  => 3.001000001,                  # float comparation
        q3a => [1,2,3],
        q3b => "[1,[2,3,3],3]",              #
        q3c => "[1,'rui', 'joão']",              # list compare
        q3e => [1/3,2/3,3],
        q4  => "[5,5]",                      # [5,5] ∈ correct option
        q5  => "John has a cat and a bird",  # contains word cat or dog
        q5b => "John has a cat and a bird",  # contains word cat or dog
        q6  => 33,                           # undef = 33 OK
        q7a => sub{my $x=shift; $x**2},
        q7b => sub{my ($x,$y)=@_; $x+$y},
        q8a => "sin( x)",
        q8b => "x^2+x*2-3",
        q8c => "x+3",
      }))

=pod

=encoding utf8

=head1 NAME

pass-check - Passarola Submission Validator

=head1 SYNOPSIS

pass-check [I<OPTION>]... [I<FILE>]...

=head1 DESCRIPTION

Validates a Passarola solution.

=over

=item B<--help, -?>

 Shows some help information.

=item B<--man>

 Shows this information.

=item B<--passdir>

 Defines the root directory of the Passarola system.

=item B<--debug>

 Demonstra mais informações.

=item B<--remove>

 Remove um exercício do registo (.db).

=back

=head1 EXAMPLES

=over

=item pass-check   submission

=item pass-check   --i version_id

=item pass-check   --mkbase version_id > f-submission

=back

=head1 AUTHOR

Written by J. João Almeida, jj@di.uminho.pt

=head1 SEE ALSO

pass-exer(1)

pass-check(1)

pass-test(1)

pass-logue(1)

Exercise::Gen(3pm)



perl(1).

=cut