package eis_ccsds_reader;

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

use strict;

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

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

@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;
    $super->_init();
    $self->{_first_header[0..9]} = 0,
    $self->{_previous_seq_count} = 0,
    $self->{_missing_packets}    = 0,
}

sub clear_errors {
    my $self = shift;
    $super->clear_errors();
    $self->{_missing_packets} = 0;
}

sub missing_packets {
    return $_[0]->{_missing_packets};
}