#!/usr/bin/perl

use strict;
use Skel::Data;

skimport("skel4.skel");

my @h=qw(batata cebola peras tomates);
my @v=qw(vinho cerveja rum  leite sumo );
my $m=[ map {my $x=$_; [ map { length($_ . $x)} @h ] } @v ];

my %p=(
 tabdecl => join("|",map {'@{}c@{}'} @h),
 tabheadh => join("&",map { sprintf('\rr{%s}',$_)} @h),
 hh => \@v, 
 mat => sub { 
    my $m2= [map { join("&",@$_)} @$m];
    MAT(skzipl(\@v,$m2))
 }
);

pdfcroped( MATRIX(\%p));

print MAT([333,444]);
print MAT([333,444],{1=>666,2=>777});
print MAT([333,444],{1=>sub{3*666},2=>777});

sub pdfcroped{ my $t=shift;
  open(F,">","_tmp.tex");
  print F $t;
  close F;

  system("pdflatex _tmp.tex") ==0 or die("pdflatex\n");
  system("pdfcrop.pl _tmp.pdf")  ==0 or die("pdfcrop\n");
  system("xpdf _tmp-crop.pdf")==0 or die("xpdf\n");
}

__END__

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head2 Language

=head3 Metadata section

=head3 Entries

=head1 AUTHOR

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

=head1 SEE ALSO

=cut