#!/usr/bin/perl
#
# Copyright (c) 2004 Javier Gutierrez <javier.gutierrez@tap3edit.com>.
# All rights reserved. This program is free software; you can redistribute
# it and/or modify it under the same terms as Perl itself.
# http://www.tap3edit.com
#  
#  en: show the structure of a TAP3/RAP file.
#  de: es zeigt die Struktur eines TAP3/RAP Files an.
#  sp: muestra la estructura en pantalla de un archivo TAP3/RAP.
#  
#  
#  Usage: tap3edit_display.txt tapfile
#  
#  E.g: tap3edit_display.txt CDOPER1OPER200001
#  
#  Note: The hexadecimal values may be displayed with unreadable charachters.
#        To change those charachters you will need to handle them as Hexa/ASCII values.
#        These BCDStrings are better handle if you use the newest version of
#        ASN1::Covert (0.19 or higher)


use TAP3::Tap3edit;

use Data::Dumper;
$Data::Dumper::Indent=1;
$Data::Dumper::Quotekeys=1;
$Data::Dumper::Useqq=1;

$filename=shift;

if ( ! $filename ) {
	die "Usage: $0 filename\n";
}


$tap3 = TAP3::Tap3edit->new();
$tap3->decode($filename) || die $tap3->error;

print Dumper ($tap3->structure);