javonet-ruby-sdk 2.1.8 → 2.1.10

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp/Substitute.pm

@@ -34,7 +34,7 @@ use strict;
 use PPI::Token::Regexp             ();
 use PPI::Token::_QuoteEngine::Full ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp/Transliterate.pm

@@ -38,7 +38,7 @@ use strict;
 use PPI::Token::Regexp             ();
 use PPI::Token::_QuoteEngine::Full ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp.pm

@@ -45,7 +45,7 @@ The following methods are inherited by this class' offspring:
 use strict;
 use PPI::Token ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token";
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Separator.pm

@@ -35,7 +35,7 @@ parent classes.
 use strict;
 use PPI::Token::Word ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token::Word";
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Structure.pm

@@ -31,7 +31,7 @@ L<PPI::Token> and L<PPI::Element> parent classes.
 use strict;
 use PPI::Token ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token";
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Symbol.pm

@@ -31,7 +31,7 @@ use strict;
 use Params::Util qw{_INSTANCE};
 use PPI::Token   ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token";
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Unknown.pm

@@ -32,7 +32,7 @@ use PPI::Token     ();
 use PPI::Exception ();
 use PPI::Singletons qw' %MAGIC $CURLY_SYMBOL ';
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token";
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Whitespace.pm

@@ -45,7 +45,7 @@ use strict;
 use Clone      ();
 use PPI::Token ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token";
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Word.pm

@@ -39,7 +39,7 @@ use strict;
 use PPI::Token ();
 use PPI::Singletons qw' %OPERATOR %QUOTELIKE %KEYWORDS ';
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = "PPI::Token";
 
@@ -305,10 +305,12 @@ sub __TOKENIZER__commit {
 				# attribute operator doesn't directly
 				# touch the object name already works.
 				$token_class = 'Word';
-			} else {
+			} elsif ( !($tokens[0] and $tokens[0]->isa('PPI::Token::Operator')) ) {
 				$word .= $1;
 				$t->{line_cursor} += length($1);
 				$token_class = 'Label';
+			} else {
+				$token_class = 'Word';
 			}
 		} elsif ( $word eq '_' ) {
 			$token_class = 'Magic';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/_QuoteEngine/Full.pm

@@ -7,7 +7,7 @@ use Clone                    ();
 use Carp                     ();
 use PPI::Token::_QuoteEngine ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = 'PPI::Token::_QuoteEngine';
 
@@ -43,6 +43,9 @@ my %QUOTES = (
 	# used yet, since I'm not sure on the context differences between
 	# this and the trinary operator, but it's here for completeness.
 	'?'   => { operator => undef, braced => 0,     separator => '?',   _sections => 1, modifiers => 1 },
+
+	# parse prototypes as a literal quote
+	'('   => { operator => undef, braced => 1,     separator => undef, _sections => 1, },
 );
 
 
@@ -70,9 +73,8 @@ sub new {
 	$self->{modifiers} = {} if $self->{modifiers};
 
 	# Handle the special < base
-	if ( $init eq '<' ) {
-		$self->{sections}->[0] = Clone::clone( $SECTIONS{'<'} );
-	}
+	$self->{sections}[0] = Clone::clone $SECTIONS{'<'} if $init eq '<';
+	$self->{sections}[0] = Clone::clone $SECTIONS{'('} if $init eq '(';
 
 	$self;
 }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/_QuoteEngine/Simple.pm

@@ -5,7 +5,7 @@ package PPI::Token::_QuoteEngine::Simple;
 use strict;
 use PPI::Token::_QuoteEngine ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = 'PPI::Token::_QuoteEngine';
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/_QuoteEngine.pm

@@ -33,7 +33,7 @@ If -E<gt>fill returns true, finalise the token.
 use strict;
 use Carp ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token.pm

@@ -25,7 +25,7 @@ use Params::Util   qw{_INSTANCE};
 use PPI::Element   ();
 use PPI::Exception ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA = 'PPI::Element';
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Tokenizer.pm

@@ -87,7 +87,7 @@ use PPI::Token      ();
 use PPI::Exception  ();
 use PPI::Exception::ParserRejection ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 # The x operator cannot follow most Perl operators, implying that
 # anything beginning with x following an operator is a word.
@@ -573,8 +573,8 @@ sub _process_next_char {
 		return undef;
 	}
 
-	# Increment the counter and check for end of line
-	return 0 if ++$self->{line_cursor} >= $self->{line_length};
+    $self->{line_cursor}++;
+    return 0 if $self->_at_line_end;
 
 	# Pass control to the token class
 	my $result;
@@ -614,6 +614,11 @@ sub _process_next_char {
 	1;
 }
 
+sub _at_line_end {
+    my ($self) = @_;
+    return $self->{line_cursor} >= $self->{line_length};
+}
+
 
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Transform/UpdateCopyright.pm

@@ -31,7 +31,7 @@ use strict;
 use Params::Util   qw{_STRING};
 use PPI::Transform ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Transform.pm

@@ -21,7 +21,7 @@ use List::Util    ();
 use PPI::Document ();
 use Params::Util  qw{_INSTANCE _CLASS _CODE _SCALAR0};
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Util.pm

@@ -7,7 +7,7 @@ use Exporter     ();
 use Digest::MD5  ();
 use Params::Util qw{_INSTANCE _SCALAR0 _ARRAY0};
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our @ISA       = 'Exporter';
 our @EXPORT_OK = qw{ _Document _slurp };

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/XSAccessor.pm

@@ -7,7 +7,7 @@ use 5.006;
 use strict;
 use PPI ();
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI.pm

@@ -6,7 +6,7 @@ use 5.006;
 use strict;
 
 # Set the version for CPAN
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our ( $XS_COMPATIBLE, @XS_EXCLUDE ) = ( '0.845' );
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/AbstractCommandHandler.pm

@@ -29,13 +29,13 @@ sub iterate {
     for (my $i=0; $i< $length; $i++){
         my $payload_item = $command->{payload}[$i];
         if(blessed($payload_item) and $payload_item->isa('Javonet::Sdk::Core::PerlCommand')
-            and !($payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Response'))) {
+            and !($payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'))) {
             $command->{payload}[$i] = Javonet::Core::Handler::HandlerDictionary::get_handler(
                 $command->{payload}[$i]->{command_type})->handle_command($command->{payload}[$i]
             );
         }
         if(blessed($payload_item) and $payload_item->isa('Javonet::Sdk::Core::PerlCommand')
-            and $payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Response')) {
+            and $payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Value')) {
             $command->{payload}[$i] = $payload_item->{payload}[0];
         }
     }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ValueHandler.pm

@@ -0,0 +1,30 @@
+package Javonet::Core::Handler::CommandHandler::ValueHandler;
+use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use lib 'lib';
+use Nice::Try;
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
+extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
+
+sub new {
+    my $class = shift;
+    my $self = {
+        required_parameters_count => 1
+    };
+    return bless $self, $class;
+}
+
+sub process {
+    my ($self, $command) = @_;
+    try {
+        return $command->{payload}[0];
+    }
+    catch ( $e ) {
+        return Exception->new($e);
+    }
+}
+
+no Moose;
+1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/PerlHandler.pm

@@ -3,6 +3,7 @@ use strict;
 use warnings FATAL => 'all';
 use Moose;
 use lib 'lib';
+use aliased 'Javonet::Core::Handler::CommandHandler::ValueHandler' => 'ValueHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::LoadLibraryHandler' => 'LoadLibraryHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::GetStaticFieldHandler' => 'GetStaticFieldHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::SetStaticFieldHandler' => 'SetStaticFieldHandler';
@@ -30,6 +31,7 @@ use aliased 'Javonet::Core::Handler::AbstractHandler' => 'AbstractHandler';
 use aliased 'Javonet::Sdk::Core::RuntimeLib' => 'RuntimeLib', qw(get_runtime);
 use aliased 'Javonet::Core::Handler::HandlerDictionary' => 'HandlerDictionary', qw(get_handler);
 
+my $value_handler = ValueHandler->new();
 my $load_library_handler = LoadLibraryHandler->new();
 my $get_static_field_handler = GetStaticFieldHandler->new();
 my $set_static_field_handler = SetStaticFieldHandler->new();
@@ -48,6 +50,10 @@ my $array_get_rank_handler = ArrayGetRankHandler->new();
 my $array_set_item_handler = ArraySetItemHandler->new();
 
 
+Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
+    $value_handler
+);
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     Javonet::Sdk::Core::PerlCommandType::get_command_type('LoadLibrary'),
     $load_library_handler
@@ -120,7 +126,7 @@ sub handle_command {
     if (ref $response eq '') {
         return PerlCommand->new(
             runtime      => Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl'),
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Response'),
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
             payload      => [ $response ]
         )
     }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Interpreter/Interpreter.pm

@@ -13,21 +13,25 @@ our @EXPORT = qw(process execute_);
 
 my $handler = PerlHandler->new();
 
-
 sub execute_ {
     my $self = shift;
     my $command = shift;
     my $connection_type = shift;
     my $tcp_address = shift;
 
-    require Javonet::Core::Transmitter::PerlTransmitter;
     my $commandSerializer = Javonet::Core::Protocol::CommandSerializer->new();
-    my @byte_message = $commandSerializer->encode($command, $connection_type, $tcp_address, 0);
-    my @byte_array = Javonet::Core::Transmitter::PerlTransmitter->send_command(\@byte_message);
-    my $commandDeserializer = CommandDeserializer->new(\@byte_array);
-    my $response_command = $commandDeserializer->decode();
-    return $response_command;
+    my @serialized_command = $commandSerializer->encode($command, $connection_type, $tcp_address, 0);
+    my @response_byte_array;
+    # if ($command->{runtime} eq Javonet::Sdk::Core::RuntimeLib::get_runtime('Perl')) {
+    #     require Javonet::Core::Receiver::Receiver;
+    #     @response_byte_array = Javonet::Core::Receiver::Receiver->send_command(\@serialized_command);
+    # } else {
+    require Javonet::Core::Transmitter::PerlTransmitter;
+    @response_byte_array = Javonet::Core::Transmitter::PerlTransmitter->send_command(\@serialized_command);
+    # }
 
+    my $commandDeserializer = CommandDeserializer->new(\@response_byte_array);
+    return $commandDeserializer->decode();
 }
 
 sub process {

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

@@ -19,24 +19,23 @@ sub activate_with_licence_file {
 }
 
 sub activate_with_credentials {
-    my($self, $email, $licenceKey) = @_;
-    return __activate($email, $licenceKey);
+    my($self, $licenceKey) = @_;
+    return __activate($licenceKey);
 }
 
 sub activate_with_credentials_and_proxy {
-    my($self, $email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
-    return __activate($email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
+    my($self,  $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
+    return __activate($licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
 }
 
 sub __activate {
-    my($email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
+    my($licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
     #set default values
-    $email //="";
     $licenceKey //="";
     $proxyHost //="";
     $proxyUserName //="";
     $proxyPassword //="";
-    return PerlTransmitterWrapper->activate_($email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
+    return PerlTransmitterWrapper->activate_($licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
 }
 
 1;

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

@@ -36,7 +36,7 @@ sub initialize_ {
         $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', 'string' ] => 'int');
+        $activate = $ffi->function('Activate' => ['string', 'string', 'string', 'string' ] => 'int');
         $get_native_error = $ffi->function('GetNativeError' => [] => 'string')
     }
 }
@@ -62,9 +62,9 @@ sub send_command_ {
 }
 
 sub activate_ {
-    my ($self, $email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
+    my ($self, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
     initialize_();
-    my $activation_result = $activate->($email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
+    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";

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

@@ -14,15 +14,14 @@ sub activate {
     if(@_ == 1) {
         return Transmitter->activate_with_licence_file();
     }
-
-    if(@_ == 3) {
-        my($self, $email, $licenceKey) = @_;
-        return Transmitter->activate_with_credentials($email, $licenceKey);
-    } elsif (@_ > 3) {
-        my($self, $email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
+    if(@_ == 2) {
+        my($self, $licenceKey) = @_;
+        return Transmitter->activate_with_credentials($licenceKey);
+    } elsif (@_ > 2) {
+        my($self, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
         $proxyUserName //="";
         $proxyPassword //="";
-        return Transmitter->activate_with_credentials_and_proxy($email, $licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
+        return Transmitter->activate_with_credentials_and_proxy($licenceKey, $proxyHost, $proxyUserName, $proxyPassword);
     }
 
 }

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

@@ -83,11 +83,16 @@ sub drop_first_payload_argument {
 
 }
 
-sub add_arg_to_payload_on_beginning{
-    my ($self, $argument) = @_;
+sub prepend_arg_to_payload{
+    my ($self, $current_command) = @_;
     my $current_payload_ref = $self->{payload};
     my @cur_payload = @$current_payload_ref;
-    my @merged_payload = ($argument, @cur_payload);
+    my @merged_payload;
+    if(defined $current_command) {
+        @merged_payload = ($current_command, @cur_payload);
+    } else {
+        @merged_payload = @cur_payload;
+    }
 
     return Javonet::Sdk::Core::PerlCommand->new(runtime => $self->{runtime}, command_type => $self->{command_type}, payload => \@merged_payload);
 }

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

@@ -7,7 +7,7 @@ our @ISA = qw(Exporter);
 our @EXPORT = qw(get_command_type);
 
 my %command_type = (
-    'Response'                  => 0,
+    'Value'                     => 0,
     'LoadLibrary'               => 1,
     'InvokeStaticMethod'        => 2,
     'GetStaticField'            => 3,
@@ -35,6 +35,10 @@ my %command_type = (
     'SetInstanceField'          => 25,
     'InvokeGenericStaticMethod' => 26,
     'InvokeGenericMethod'       => 27,
+    'CreateGenericClassInstance'=> 28,
+    'GetEnumItem'               => 29,
+    'GetEnumName'               => 30,
+    'GetEnumValue'              => 31,
 
 
 );

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Sdk/Internal/Abstract/AbstractEnumInvocationContext.pm

@@ -0,0 +1,22 @@
+package Javonet::Sdk::Internal::Abstract::AbstractMethodInvocationContext;
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use Scalar::Util qw( blessed );
+use Attribute::Abstract;
+
+
+sub invoke_static_method : Abstract;
+
+sub set_generic_type : Abstract;
+
+sub get_static_field : Abstract;
+
+sub set_static_field : Abstract;
+
+sub get_enum_name : Abstract;
+
+sub get_enum_value : Abstract;
+
+no Moose;
+1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Sdk/Internal/Abstract/AbstractTypeContext.pm

@@ -7,5 +7,9 @@ use Attribute::Abstract;
 
 sub get_type : Abstract;
 
+sub cast: Abstract;
+
+sub get_enum_item : Abstract;
+
 no Moose;
 1;