#!/usr/bin/perl -s
#FIXME: ainda em obras

our ($s,$nfs,$o); ## 
use strict;
use Text::TabDB;
my $f=shift;

my @S;
my $NF=0;
my ($FS,$NFS,$context,$NC,$NR);
$NR=0;

Text::TabDB::tabdt(
   {
     $nfs?(nfs=>$nfs):(),
     $o?(o=>$o):(),
     $s?(sch=>$s):(),
   }, $f,{
   begin=>sub { my ($fs,@f)=@_;
      $FS=$fs;
      $NFS=$nfs || $fs;
      $NF=@f;
      @S=@f;
      join($NFS,@f)."\n";
    },

   tup_a=>sub {my @f=@_;
      my $len=@f;
      $NR++;
      join(" $NFS ",@f)."\n";
    },

#   com => sub {""},
   end=>sub {"" },
 }
);

__END__

=encoding utf8

=head1 NAME

tab2... - 

=head1 SYNOPSIS

 tab2 [-lang=...] f.tab

=head1 DESCRIPTION

=head2 EXPORT

=head1 AUTHOR

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

=head1 SEE ALSO

perl(1). Text::TabDB(3pm)

=cut