package Hdu;

use lib "/home/matt/perllib/Fits";

#use StudyDefinition;
#use misc;
use strict;
use vars qw(@ISA @EXPORT $VERSION);
use Exporter;

$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw();

sub BEGIN {

}

#sub new {
#    my ($class) = @_;
#    my $self = {
#    	_study => undef,
#    	_response => -1,
#		_parameters => undef,
#    };
#    bless $self, $class;
#    return $self;
#}

sub new {
    my ($class) = @_;
    my $self = {
    	_name => "",
    	_cardImages => undef,
	_hasExtension => 0,
	_hasData => 0,
	_data => undef
    };
    bless $self, $class;
#print "MY STUDY IS [", $self->{_study}, "]\n";
    return $self;
}

sub set_name {
    my $self = shift;
    $self->{_name} = shift;
}

sub name {
    my $self = shift;
    return $self->{_name};
}

sub add_aec_parameters {
    my $self = shift;
    push @{$self->{_parameters}}, shift;
}

sub write_aec_control_table {
    my $self = shift;
    my $output = "";
    my $file_name = "aec_table";
    my $parameters;
    my @list;
    my @params = ();

    if($self->{_response} =~ /1/) {
	foreach $parameters (@{$self->{_parameters}}) {
	    @list = &misc::make_list($parameters);
	    if($list[0] != 0) {
		$params[0] = sprintf("%04X", $list[0]);	# upper thresh
		$params[1] = sprintf("%04X", $list[1]);	# lower thresh
		$params[2] = sprintf("%04X", $list[2]);	# hepc
		$params[3] = sprintf("%08X", $list[3]);	# lepc
		$params[4] = sprintf("%02X", $list[4]);	# exp id
		$params[5] = sprintf("%05X", $list[5]);	# runtime
		
#		print "WRITING AEC PARAMETERS\n";

		open(FILE, "> $misc::outputDirectory" . $file_name) || die;
		print FILE <<EOT;
upper_threshold	$params[0]
lower_threshold	$params[1]
HEPC		$params[2]
LEPC		$params[3]
exposure_id	$params[4]
binning		0
max_runtime	$params[5]
EOT
                close(FILE);
		return "run \'plan_output/$file_name\'\ntaskdelay 1.0\n";
	    }
	    next;
	}
    }
    else {
	print "WRITE AEC CONTROL BUT RESPONSE = ", $self->{_response}, "\n";
    }
    return "";
}

sub describe {
    my $self = shift;
    
}

sub debug_print_aec_properties {
    my $self = shift;
    
    print "debug_print_ll_properties\n";
    print "id      : ", $self->{_id}, "\n";
    print "numLines: ", $self->{_numLines}, "\n";
    print "y start : ", $self->{_ys}, "\n";
    print "y height: ", $self->{_yW}, "\n";
    print "ro node : ", $self->{_ccdRoNode}, "\n";
    print "ccd len : ", $self->{_ccdLength}, "\n";
    print "x start : ", $self->{_xWs}, "\n";
    print "x width : ", $self->{_xW}, "\n";
    print "lines   : ", $self->{_lines}, "\n";
#    print "LINES:\n@lines\n";
    print "lines   : ", scalar @{$self->{_lines}}, "\n";
    print "Line[0] : ", ${$self->{_lines}}[0];
    print "Line[1] : ", ${$self->{_lines}}[1];
}

1;