#!/usr/bin/perl -s
BEGIN{ print "This script is deprecated, use pass-check.\n"; exit 0;}

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

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

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__

=pod

=encoding utf8

=head1 NAME

pass-validate - validate a submission exercise

=head1 SYNOPSIS

pass2tex [I<OPTION>]... [I<FILE>]...

=head1 DESCRIPTION

Generates a pdf document from a Passarola exercise. Has field and debug options.

=over

=item B<--help, -?>

show help

=item B<--man>

opens the perldoc for this script

=item B<-pdf>

generate and show a pdf
tries to use acroread, xpdf, jpdf or open

=item B<-pdf2>

generate a pdf

=item B<-o> I<FILE>

save output as I<FILE>

=item B<-outdir> I<DIR>

saves the file in the I<DIR> (defaults to "OUT")

=item B<-s>

?

=item B<-nosol>

skip solution section

=item B<-nores>

skip resolution section

=item B<-nohead>

skip the header section

=item B<-no>

skips both the solution and the resolution sections ?

=item B<-showrand>

shows the random choices done

=item B<-srand> I<SEED>

sets the random seed to I<SEED>

=item B<-tit --title> I<TITLE>

sets the title of the test (defaults to the  title from the first exercise)

=item B<-aut -author> I<NAME>

sets the author of the test (defaults to the author of the first exercise)

=item B<-h>

show an example on the exercise format

=item B<-d1>

?

=item B<-d>

show debug information during the pdf creation

=item B<-dl>

show debug information while lexing

=item B<-dump>

uses Data::Dumper to print the intermediate hash

=item B<-catalog> I<PATH>

creates the .tex file in the OUT directory

=item B<-test>

creates the .tex file in the OUT directory

=back

=head1 EXAMPLES

=over

=item pass-validate   submission

=item pass-validate   -vi version_id

=item pass-validate   -mkbase version_id* > f-submission

=back

=head1 AUTHOR

Written by J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

perl(1).

=cut

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",
      }))