javonet-ruby-sdk 2.4.6 → 2.4.8

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/TypeDeserializer.pm

@@ -5,13 +5,6 @@ use Moose;
 use Encode;
 use lib 'lib';
 
-sub deserializeInt {
-    my ($self, $acc_ref) = @_;
-    my @int_array = @$acc_ref;
-    my $decoded_int = unpack "V", pack "C4",  @int_array;
-    return $decoded_int;
-}
-
 sub deserializeString {
     my ($self, $string_encoding_mode, $acc_ref) = @_;
     my @string_array = @$acc_ref;
@@ -20,11 +13,16 @@ sub deserializeString {
     return $decoded_string;
 }
 
-sub deserializeDouble {
+sub deserializeInt {
     my ($self, $acc_ref) = @_;
-    my @double_array = @$acc_ref;
-    my $decoded_double = unpack "d", pack "C8",  @double_array;
-    return $decoded_double;
+    my @int_array = @$acc_ref;
+    my $decoded_int = unpack "i", pack "C4",  @int_array;
+    return $decoded_int;
+}
+
+sub deserializeBool {
+    my ($self, $boolean_value) = @_;
+    return $boolean_value;
 }
 
 sub deserializeFloat {
@@ -34,9 +32,50 @@ sub deserializeFloat {
     return $decoded_float;
 }
 
-sub deserializeBoolean {
-    my ($self, $boolean_value) = @_;
-    return $boolean_value;
+sub deserializeByte {
+    my ($self, $acc_ref) = @_;
+    my @byte_array = $acc_ref;
+    my $decoded_byte = unpack "C", pack "C",  @byte_array;
+    return $decoded_byte;
+}
+
+sub deserializeChar {
+    my ($self, $acc_ref) = @_;
+    my @char_array = $acc_ref;
+    my $decoded_char = unpack "C", pack "C",  @char_array;
+    return $decoded_char;
+}
+
+sub deserializeLongLong {
+    my ($self, $acc_ref) = @_;
+    my @longlong_array = @$acc_ref;
+    my $decoded_longlong = unpack "q", pack "C8",  @longlong_array;
+    return $decoded_longlong;
+}
+
+sub deserializeDouble {
+    my ($self, $acc_ref) = @_;
+    my @double_array = @$acc_ref;
+    my $decoded_double = unpack "d", pack "C8",  @double_array;
+    return $decoded_double;
+}
+
+sub deserializeULongLong {
+    my ($self, $acc_ref) = @_;
+    my @ulonglong_array = @$acc_ref;
+    my $decoded_ulonglong = unpack "Q", pack "C8",  @ulonglong_array;
+    return $decoded_ulonglong;
+}
+
+sub deserializeUInt {
+    my ($self, $acc_ref) = @_;
+    my @uint_array = @$acc_ref;
+    my $decoded_uint = unpack "V", pack "C4",  @uint_array;
+    return $decoded_uint;
+}
+
+sub deserializeUndef {
+    return undef;
 }
 
 no Moose;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Protocol/TypeSerializer.pm

@@ -8,12 +8,14 @@ use lib 'lib';
 use aliased 'Javonet::Sdk::Core::Type' => 'Type', qw(get_type);
 use aliased 'Javonet::Sdk::Core::StringEncodingMode' => 'StringEncodingMode', qw(get_string_encoding_mode);
 
-sub serializeInt {
-    my ($self, $int_value) = @_;
-    my $length = 4;
-    my @initial_array = (Type->get_type('JavonetInteger'), $length);
-    my @bytes =  unpack "C*", pack "V",  $int_value;
-    return (@initial_array, @bytes);
+sub serializeCommand {
+    my $self = $_[0];
+    my $command = $_[1];
+    my $length = @{$command->{payload}};
+    my @length =  unpack "C*", pack "V",  $length;
+    my @initial_array =(Type->get_type('Command'), @length, $command->{runtime},$command->{command_type});
+
+    return @initial_array;
 }
 
 sub serializeString {
@@ -25,31 +27,23 @@ sub serializeString {
     my @length =  unpack "C*", pack "V",  $length;
     my @initial_array =(Type->get_type('JavonetString'),
         StringEncodingMode->get_string_encoding_mode('UTF8'),
-    @length, @serialized_string);
+        @length, @serialized_string);
 
     return @initial_array;
 }
 
-sub serializeDouble {
-    my ($self, $double_value) = @_;
-    my $length = 8;
-    my @initial_array = (Type->get_type('JavonetDouble'), $length);
-    my @bytes =  unpack "C*", pack "d",  $double_value;
-    return (@initial_array, @bytes);
-}
-
-sub serializeFloat {
-    my ($self, $float_value) = @_;
+sub serializeInt {
+    my ($self, $int_value) = @_;
     my $length = 4;
-    my @initial_array = (Type->get_type('JavonetFloat'), $length);
-    my @bytes = unpack "C*", pack "f",  $float_value;
+    my @initial_array = (Type->get_type('JavonetInteger'), $length);
+    my @bytes =  unpack "C*", pack "i",  $int_value;
     return (@initial_array, @bytes);
 }
 
-sub serializeBoolean {
+sub serializeBool {
     my ($self, $bool_value) = @_;
     my $length = 1;
-    my @initial_array = (Type->get_type('JavonetBoolean'), $length);
+    my @initial_array = (Type->get_type('JavonetBool'), $length);
     my @bytes;
     if ($bool_value) {
         @bytes =  ($bool_value);
@@ -61,13 +55,68 @@ sub serializeBoolean {
     return (@initial_array, @bytes);
 }
 
-sub serializeCommand {
-    my $self = $_[0];
-    my $command = $_[1];
-    my $length = @{$command->{payload}};
-    my @length =  unpack "C*", pack "V",  $length;
-    my @initial_array =(Type->get_type('Command'), @length, $command->{runtime},$command->{command_type});
+sub serializeFloat {
+    my ($self, $float_value) = @_;
+    my $length = 4;
+    my @initial_array = (Type->get_type('JavonetFloat'), $length);
+    my @bytes = unpack "C*", pack "f",  $float_value;
+    return (@initial_array, @bytes);
+}
 
-    return @initial_array;
+sub serializeByte {
+    my ($self, $byte_value) = @_;
+    my $length = 1;
+    my @initial_array = (Type->get_type('JavonetByte'), $length);
+    my @bytes =  ($byte_value);
+    return (@initial_array, @bytes);
 }
+
+sub serializeChar {
+    my ($self, $char_value) = @_;
+    my $length = 1;
+    my @initial_array = (Type->get_type('JavonetChar'), $length);
+    my @bytes =  ($char_value);
+    return (@initial_array, @bytes);
+}
+
+sub serializeLongLong {
+    my ($self, $longlong_value) = @_;
+    my $length = 8;
+    my @initial_array = (Type->get_type('JavonetLongLong'), $length);
+    my @bytes =  unpack "C*", pack "q",  $longlong_value;
+    return (@initial_array, @bytes);
+}
+
+sub serializeDouble {
+    my ($self, $double_value) = @_;
+    my $length = 8;
+    my @initial_array = (Type->get_type('JavonetDouble'), $length);
+    my @bytes =  unpack "C*", pack "d",  $double_value;
+    return (@initial_array, @bytes);
+}
+
+sub serializeUllong {
+    my ($self, $ullong_value) = @_;
+    my $length = 8;
+    my @initial_array = (Type->get_type('JavonetUnsignedLongLong'), $length);
+    my @bytes =  unpack "C*", pack "Q",  $ullong_value;
+    return (@initial_array, @bytes);
+}
+
+sub serializeUint {
+    my ($self, $uint_value) = @_;
+    my $length = 4;
+    my @initial_array = (Type->get_type('JavonetUnsignedInteger'), $length);
+    my @bytes =  unpack "C*", pack "V",  $uint_value;
+    return (@initial_array, @bytes);
+}
+
+sub serializeUndef {
+    my $length = 1;
+    my @initial_array = (Type->get_type('JavonetNull'), $length);
+    my @bytes =  (0);
+    return (@initial_array, @bytes);
+}
+
+
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Receiver/Receiver.pm

@@ -1,7 +1,6 @@
 package Javonet::Core::Receiver::Receiver;
 use strict;
 use warnings;
-use Exporter;
 use Config;
 use File::Basename;
 
@@ -16,23 +15,19 @@ BEGIN {
 
 use lib "$perlLibDirJavonet";
 use lib "$perlLibDirDeps";
-
 use aliased 'Javonet::Core::Interpreter::Interpreter' => 'Interpreter', qw(process);
 
-our @ISA = qw(Exporter);
-our @EXPORT = qw(send_command heart_beat);
-
 sub heart_beat {
-    my (@byte_array) = @_;
-    my $response = "10";
-    return $response;
+    my ($self, $message_byte_array_ref) = @_;
+    my @response_byte_array = (49, 48);
+    return \@response_byte_array;
 }
 
 sub send_command {
-    my ($byte_array_as_string) = @_;
-    my @byte_array = unpack("C*", Encode::encode("ascii", $byte_array_as_string));
-    my @response = Interpreter->process(\@byte_array);
-    return join '', map chr, @response;
+    my ($self, $message_byte_array_ref) = @_;
+    my @message_byte_array = @$message_byte_array_ref;
+    my @response_byte_array = Javonet::Core::Interpreter::Interpreter->process(\@message_byte_array);
+    return \@response_byte_array;
 }
 
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Transmitter/PerlTransmitter.pm

@@ -3,15 +3,11 @@ use strict;
 use warnings;
 use Cwd;
 use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command_ activate_);
-use Exporter;
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(send_command activate_with_license_file activate_with_credentials activate_with_credentials_and_proxy);
 
 sub send_command {
-    my ($self, $message_ref) = @_;
-    my @response = PerlTransmitterWrapper->send_command($message_ref);
-    return @response;
+    my ($self, $message_byte_array_ref) = @_;
+    my $response_byte_array_ref = PerlTransmitterWrapper->send_command($message_byte_array_ref);
+    return $response_byte_array_ref;
 }
 
 sub activate_with_license_file {

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Transmitter/PerlTransmitterWrapper.pm

@@ -4,13 +4,9 @@ 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_native;
 my $read_response_native;
 my $activate_native;
@@ -51,7 +47,7 @@ sub send_command {
     if ($response_array_len > 0) {
         my @response_array = (1 .. $response_array_len);
         $read_response_native->(\@response_array, $response_array_len);
-        return @response_array;
+        return \@response_array;
     }
     elsif ($response_array_len == 0) {
         my $error_message = "Response is empty";

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Javonet.pm

@@ -3,27 +3,48 @@ use strict;
 use warnings FATAL => 'all';
 use Moose;
 use lib 'lib';
+use Try::Tiny;
+use threads;
 use aliased 'Javonet::Sdk::Internal::RuntimeFactory' => 'RuntimeFactory';
 use aliased 'Javonet::Core::Transmitter::PerlTransmitter' => 'Transmitter', qw(activate_with_license_file activate_with_credentials activate_with_credentials_and_proxy);
+use aliased 'Javonet::Core::Exception::SdkExceptionHelper' => 'SdkExceptionHelper';
 
 BEGIN {
-    Transmitter->activate_with_license_file()
+    try {
+        Transmitter->activate_with_license_file();
+    } catch {
+        SdkExceptionHelper->send_exception_to_app_insights($_,"JavonetStatic");
+    };
 }
 
 sub activate {
     if(@_ == 1) {
-        return Transmitter->activate_with_license_file();
+        try {
+            return Transmitter->activate_with_license_file();
+        } catch {
+            Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,"licenseFile");
+            die($_);
+        };
     }
     if(@_ == 2) {
         my($self, $licenseKey) = @_;
-        return Transmitter->activate_with_credentials($licenseKey);
+        try {
+            return Transmitter->activate_with_credentials($licenseKey);
+        } catch {
+            Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,$licenseKey);
+            die($_);
+        };
     } elsif (@_ > 2) {
         my($self, $licenseKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
         $proxyUserName //="";
         $proxyPassword //="";
-        return Transmitter->activate_with_credentials_and_proxy($licenseKey, $proxyHost, $proxyUserName, $proxyPassword);
+        try {
+            return Transmitter->activate_with_credentials_and_proxy($licenseKey, $proxyHost, $proxyUserName, $proxyPassword);
+        } catch {
+            Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,$licenseKey);
+            die($_);
+        };
     }
-
 }
 
 sub in_memory {
@@ -31,7 +52,6 @@ sub in_memory {
 }
 
 sub tcp {
-    # additional shift is needed to pass second argument
     my $class = shift;
     my $address = shift;
     return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('Tcp'), $address, undef);
@@ -39,10 +59,13 @@ sub tcp {
 
 sub with_config {
     my ($self, $config_path) = @_;
-    # Sets the configuration source
-    Transmitter->set_config_source($config_path);
-    # Returns a new RuntimeFactory instance configured with a custom configuration file
-    return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('WithConfig'), undef, $config_path);
+    try {
+        Transmitter->set_config_source($config_path);
+        return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('WithConfig'), undef, $config_path);
+    } catch {
+        SdkExceptionHelper->send_exception_to_app_insights($_,"withConfig");
+        die $_;
+    };
 }
 
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/PerlCommand.pm

@@ -2,7 +2,6 @@ package Javonet::Sdk::Core::PerlCommand;
 use strict;
 use warnings;
 use lib 'lib';
-use Exporter;
 use Moose;
 use Scalar::Util;
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/PerlCommandType.pm

@@ -1,10 +1,7 @@
 package Javonet::Sdk::Core::PerlCommandType;
 use strict;
 use warnings;
-use Exporter;
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(get_command_type);
+use Moose;
 
 my %command_type = (
     'Value'                     => 0,
@@ -41,9 +38,9 @@ my %command_type = (
     'AsRef'                     => 31,
     'AsOut'                     => 32,
     'GetRefValue'               => 33,
-
-
-
+    'EnableNamespace'           => 34,
+    'EnableType'                => 35,
+    'CreateNull'                => 36,
 );
 
 sub get_command_type {

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/RuntimeLib.pm

@@ -1,12 +1,7 @@
-#!/usr/bin/perl
 package Javonet::Sdk::Core::RuntimeLib;
 use warnings;
 use strict;
-use Exporter;
-
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(get_runtime);
+use Moose;
 
 my %runtimes = (
     'Clr'       => 0,
@@ -25,4 +20,6 @@ sub get_runtime {
     return $runtimes{$runtime};
 }
 
+no Moose;
+
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/StringEncodingMode.pm

@@ -1,11 +1,7 @@
 package Javonet::Sdk::Core::StringEncodingMode;
 use strict;
 use warnings;
-use Exporter;
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(get_string_encoding_mode);
-
+use Moose;
 
 my %string_encoding_mode = (
     'ASCII'             => 0,
@@ -19,4 +15,6 @@ sub get_string_encoding_mode {
     return $string_encoding_mode{$mode};
 }
 
+no Moose;
+
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Core/Type.pm

@@ -1,24 +1,21 @@
 package Javonet::Sdk::Core::Type;
 use strict;
 use warnings FATAL => 'all';
-use Exporter;
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(get_type);
-
+use Moose;
 
 my %my_type = (
     'Command' => 0,
     'JavonetString' => 1,
     'JavonetInteger' => 2,
-    'JavonetBoolean' => 3,
+    'JavonetBool' => 3,
     'JavonetFloat' => 4,
-    'JavonetBytes' => 5,
+    'JavonetByte' => 5,
     'JavonetChar' => 6,
     'JavonetLongLong' => 7,
     'JavonetDouble' => 8,
     'JavonetUnsignedLongLong' => 9,
-    'JavonetUnsignedInteger' => 10
+    'JavonetUnsignedInteger' => 10,
+    'JavonetNull' => 11,
 );
 
 sub get_type {
@@ -26,4 +23,6 @@ sub get_type {
     return $my_type{$type};
 }
 
+no Moose;
+
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Sdk/Internal/ConnectionType.pm

@@ -1,13 +1,8 @@
 package Javonet::Sdk::Internal::ConnectionType;
 use strict;
 use warnings FATAL => 'all';
-use Exporter;
 use Moose;
 
-our @ISA = qw(Exporter);
-our @EXPORT = qw(get_connection_type);
-
-
 my %connection_type = (
     'InMemory'       => 0,
     'Tcp'    => 1,