package Javonet::Core::Transmitter::PerlTransmitterWrapper;
use warnings;
use strict;
use lib 'lib';
use FFI::Platypus;
use Path::Tiny;
use Exporter;
use File::Spec;
my $ffi;

our @ISA = qw(Exporter);
our @EXPORT = qw(send_command_ activate_);

my $send_command;
my $read_response;
my $activate;
my $get_native_error;

sub initialize_ {
    my $osname = $^O;
    {
        $ffi = FFI::Platypus->new(api => 1);
        use FFI::Platypus::DL qw(dlopen dlerror RTLD_PLATYPUS_DEFAULT);
        my $dir = File::Spec->rel2abs(__FILE__);
        my $current_dir = path($dir)->parent(3);
        my $perl_native_lib;
        if ($osname eq "linux") {
            $perl_native_lib = 'Binaries/Native/Linux/X64/libJavonetPerlRuntimeNative.so';
        }
        elsif ($osname eq "darwin") {
            $perl_native_lib = 'Binaries/Native/MacOs/X64/libJavonetPerlRuntimeNative.dylib';
        }
        else {
            $perl_native_lib = 'Binaries/Native/Windows/X64/JavonetPerlRuntimeNative.dll';
        }
        $ffi->lib("$current_dir/$perl_native_lib");
        $send_command = $ffi->function('SendCommand' => [ 'uchar[]', 'int' ] => 'int');
        $read_response = $ffi->function('ReadResponse' => [ 'uchar[]', 'int' ] => 'int');
        $activate = $ffi->function('Activate' => ['string', 'string', 'string', 'string' ] => 'int');
        $get_native_error = $ffi->function('GetNativeError' => [] => 'string')
    }
}

sub send_command_ {
    my ($self, $message_ref) = @_;
    my @message_array = @$message_ref;
    my $response_array_len = $send_command->(\@message_array, scalar @message_array);

    if ($response_array_len > 0) {
        my @response_array = (1 .. $response_array_len);
        $read_response->(\@response_array, $response_array_len);
        return @response_array;
    }
    elsif ($response_array_len == 0) {
        my $error_message = "Response is empty";
        die "$error_message";
    }
    else {
        my $error_message = $get_native_error->();
        die "Javonet native error code: $response_array_len. $error_message";
    }
}

sub activate_ {
    my ($self, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
    initialize_();
    my $activation_result = $activate->($licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
    if ($activation_result < 0) {
        my $error_message = $get_native_error->();
        die "Javonet activation result: $activation_result. $error_message";
    }
    else {
        return $activation_result;
    }
}

1;