package DLDtest;

use strict;
use warnings;
use Exporter qw(import);
use English;

our @EXPORT = qw (dld_initialize);

#------------------------------------------------
# initialize dld and open data files
#------------------------------------------------
sub dld_initialize {
  my ($lic_file, $password, $num_files, $dl_format) = @_;
  
  my @files = ();

  # initalize the DLD library
  my $dlid = dl_DlInit("");


  # set the license file and password
  unless (dl_DlSetLicense($dlid, $lic_file, $password)) {
    return (0,@files);
  }

  # open the DLD files  
  for (my $cntr = 0; $cntr < $num_files; $cntr++) {
    
    my $path = sprintf($dl_format, $cntr + 1);
    
    my $fileid = dl_DlFileOpen($dlid, $path);

    $files[$cntr] = $fileid ? $fileid : 0;    

  }
  
  return ($dlid,@files); 
}

#------------------------------------------------
# C functions to interface with Pitney library
#------------------------------------------------

use Inline (C => Config => 
            DIRECTORY => '/var/www/addrez/Inline',
            INC => "-I/var/www/addrez/ext.att/include",
            LIBS => '-L/var/www/addrez/ext.att/lib -ldemolibMT');

use Inline "C";
Inline->init;

__DATA__
__C__

#include "dl.h"

/*-----------------------------------------------
 * Initialize the DLD librariy
 *---------------------------------------------*/
long dl_DlInit (SV* initPath) {

  return DlInit(SvPV (initPath, PL_na));

}

/*-----------------------------------------------
 * associate a license file and password with dl
 *---------------------------------------------*/
int dl_DlSetLicense(long dl, char* licenseFile, long password) {

  return DlSetLicense(dl, licenseFile, password);

}

/*-----------------------------------------------
 * open a data file and return FileID
 *---------------------------------------------*/
long dl_DlFileOpen (long dl, char *path) {
  
  return DlFileOpen(dl, path);

}