package eis_ccsds_interface;

#use lib "/home/matt/solarb/util/lib/CcsdsLib2";

use strict;

use vars qw(@ISA @EXPORT $VERSION);

use Exporter;
$VERSION = 1.00;
@ISA = qw(Exporter CcsdsInterface);

@EXPORT = qw();

sub BEGIN {
#    print STDOUT "Ccsds BEGIN\n";
#    $numberOfPackets = 0;
}

sub new {
    my $classname = shift;
    my $self = $classname->SUPER::new(@_);
    $self->_init(@_);
    return $self;
}

sub _init {
    my $self = shift;
    $self->{_header[0..9]} = 0,
    $self->{_filename}     = "",
    $self->{_basename}     = "",
    $self->{_io_error}     = 0,
    $self->{_error_string} = "",
}


sub clear_errors {
    my $self = shift;
    $self->{_io_error}     = 0;
    $self->{_error_string} = "";
}

sub set_errors {
    my ($self, $io, $str)  = @_;
    $self->{_io_error}     = $io;
    $self->{_error_string} = $str;
}

sub get_error {
    my $self = shift;
    return($self->{_io_error}, $self->{_error_string});
}

sub set_basename {
    my ($self, $bn) = @_;
    $self->{_basename} = $bn;
}

sub set_filename {
    my ($self, $fn) = @_;
    $self->{_filename} = $fn;
}

sub get_header {
    my $self = shift;
    return $self->{_header};
}