javonet-ruby-sdk 2.5.11 → 2.5.13

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

@@ -0,0 +1,63 @@
+package Javonet::Core::Handler::CommandHandler::InvokeGlobalFunctionHandler;
+use strict;
+use warnings FATAL => 'all';
+use lib 'lib';
+use Moose;
+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 {
+        # Get the payload array reference and convert to array
+        my $payload_ref = $command->{payload};
+        my @payload = @$payload_ref;
+        my $parameters_length = scalar @payload;
+
+        # Verify at least one parameter is provided
+        if ($parameters_length < $self->{required_parameters_count}) {
+            die Exception->new("InvokeGlobalFunctionHandler parameters mismatch: requires at least one parameter (fully qualified method name)");
+        }
+
+        # The first parameter should be the fully qualified method name
+        my $fully_qualified_method = $payload[0];
+
+        # Extract the package name and method name using a regex
+        unless ($fully_qualified_method =~ /^(.*)::([^:]+)$/) {
+            die Exception->new("Invalid fully qualified method name: $fully_qualified_method");
+        }
+        my ($package, $function_name) = $fully_qualified_method =~ /^(.*)::([^:]+)$/;
+
+        # Attempt to load the package (if not already loaded)
+        eval "require $package";
+        if ($@) {
+            die Exception->new("Failed to load package '$package': $@");
+        }
+        #
+        # Check if the package can perform the method
+        my $code_ref = $package->can($function_name);
+        unless ($code_ref) {
+            die Exception->new("Method '$function_name' not found in package '$package'");
+        }
+
+        # Any additional payload elements are passed as arguments to the method
+        my @args = @payload[1 .. $#payload];
+
+        # Invoke the method with the arguments and return the result
+        return $code_ref->(@args);
+    }
+    catch ($e) {
+        return Exception->new($e);
+    }
+}
+
+1;

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

@@ -22,6 +22,7 @@ use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetItemHandler' => 'Ar
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetSizeHandler' => 'ArrayGetSizeHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArrayGetRankHandler' => 'ArrayGetRankHandler';
 use aliased 'Javonet::Core::Handler::CommandHandler::ArraySetItemHandler' => 'ArraySetItemHandler';
+use aliased 'Javonet::Core::Handler::CommandHandler::InvokeGlobalFunctionHandler' => 'InvokeGlobalFunctionHandler';
 
 
 use aliased 'Javonet::Sdk::Core::PerlCommandType' => 'PerlCommandType', qw(get_command_type);
@@ -48,6 +49,7 @@ my $array_get_item_handler = ArrayGetItemHandler->new();
 my $array_get_size_handler = ArrayGetSizeHandler->new();
 my $array_get_rank_handler = ArrayGetRankHandler->new();
 my $array_set_item_handler = ArraySetItemHandler->new();
+my $invoke_global_function_handler = InvokeGlobalFunctionHandler->new();
 
 
 Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
@@ -119,6 +121,11 @@ Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
     $array_set_item_handler
 );
 
+Javonet::Core::Handler::HandlerDictionary::add_handler_to_dict(
+    Javonet::Sdk::Core::PerlCommandType::get_command_type('InvokeGlobalFunction'),
+    $invoke_global_function_handler
+);
+
 sub handle_command {
     my ($self, $command) = @_;
     my $response = Javonet::Core::Handler::HandlerDictionary::get_handler($command->{command_type})->handle_command($command);

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

@@ -6,6 +6,7 @@ use FFI::Platypus;
 use Path::Tiny;
 use File::Spec;
 use Config;
+use Cwd;
 use POSIX qw(uname);
 
 my $ffi;
@@ -23,7 +24,7 @@ sub initialize {
         $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 $current_dir = getcwd();
         my $perl_native_lib;
 
         my $arch = do {
@@ -48,7 +49,14 @@ sub initialize {
         else {
             $perl_native_lib = "Binaries/Native/Windows/$arch/JavonetPerlRuntimeNative.dll";
         }
-        $ffi->lib("$current_dir/$perl_native_lib");
+        
+        my $full_native_lib_path = "$current_dir/$perl_native_lib";
+        my $error_message = "Native library not found at $full_native_lib_path\n" .
+            "Please Download and unzip Binaries at $current_dir directory folder using this link: https://download.javonet.com/binaries/Binaries.zip\n" .
+            "For more info please visit: https://www.javonet.com/guides/v2/getting-started/getting-started-perl";
+        die $error_message unless -e $full_native_lib_path;
+        $ffi->lib($full_native_lib_path);
+
         $send_command_native = $ffi->function('SendCommand' => [ 'uchar[]', 'int' ] => 'int');
         $read_response_native = $ffi->function('ReadResponse' => [ 'uchar[]', 'int' ] => 'int');
         $activate_native = $ffi->function('Activate' => ['string'] => 'int');

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

@@ -20,7 +20,7 @@ my %command_type = (
     'GetInstanceField'          => 13,
     'Optimize'                  => 14,
     'GenerateLib'               => 15,
-    'InvokeGlobalMethod'        => 16,
+    'InvokeGlobalFunction'      => 16,
     'DestructReference'         => 17,
     'Array'                     => 18,
     'ArrayGetItem'              => 19,
@@ -41,6 +41,11 @@ my %command_type = (
     'EnableNamespace'           => 34,
     'EnableType'                => 35,
     'CreateNull'                => 36,
+    'GetStaticMethodAsDelegate' => 37,
+    'GetInstanceMethodAsDelegate' => 38,
+    'PassDelegate'              => 39,
+    'InvokeDelegate'            => 40,
+    'ConvertType'               => 41,
 );
 
 sub get_command_type {

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

@@ -0,0 +1,17 @@
+package Javonet::Sdk::Internal::Abstract::AbstractRuntimeContext;
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use Scalar::Util qw( blessed );
+use Attribute::Abstract;
+
+sub load_library : Abstract;
+sub get_type : Abstract;
+sub cast : Abstract;
+sub get_enum_item : Abstract;
+sub as_out: Abstract;
+sub as_ref: Abstract;
+sub invoke_global_function: Abstract;
+
+no Moose;
+1;

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

@@ -331,8 +331,8 @@ sub get_ref_value {
     );
     return Javonet::Sdk::Internal::InvocationContext->new(
         $self->{runtime_name},
-        $self->get_connection_type(),
-        $self->get_tcp_address(),
+        $self->{connection_type},
+        $self->{tcp_address},
         $self->build_command($command),
         0
     );
@@ -347,8 +347,40 @@ sub create_null {
     );
     return Javonet::Sdk::Internal::InvocationContext->new(
         $self->{runtime_name},
-        $self->get_connection_type(),
-        $self->get_tcp_address(),
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub get_static_method_as_delegate {
+    my ($self, @arguments) = @_;
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetStaticMethodAsDelegate'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
+sub get_instance_method_as_delegate {
+    my ($self, @arguments) = @_;
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('GetInstanceMethodAsDelegate'),
+        payload => \@arguments
+    );
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
         $self->build_command($command),
         0
     );
@@ -377,15 +409,25 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
 
-    if(!defined $payload_item) {
+    if (!defined $payload_item) {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => []
+            payload      => []
         );
     }
-
-    if ($payload_item->isa('Command')) {
+    if (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime      => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload      => $payload_item
+        );
+    }
+    elsif ($payload_item->isa('Command')) {
         my $payload_length = @{$payload_item->{payload}};
         for (my $i = 0; $i < $payload_length; $i++) {
             $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
@@ -395,22 +437,11 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    elsif (ref($payload_item) eq 'ARRAY') {
-        my $payload_length = @$payload_item;
-        for (my $i = 0; $i < $payload_length; $i++) {
-            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
-        }
-        return PerlCommand->new(
-            runtime => $self->{runtime_name},
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
-            payload => $payload_item
-        );
-    }
     else {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => [$payload_item]
+            payload      => [ $payload_item ]
         );
     }
 }

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

@@ -167,6 +167,7 @@ sub get_enum_item {
     );
 }
 
+#@override
 sub as_out {
     my $self = shift;
     my @arguments = @_;
@@ -186,6 +187,7 @@ sub as_out {
     );
 }
 
+#@override
 sub as_ref {
     my $self = shift;
     my @arguments = @_;
@@ -206,6 +208,25 @@ sub as_ref {
 }
 
 #@override
+sub invoke_global_function {
+    my $self = shift;
+    my @arguments = @_;
+
+    my $command = PerlCommand->new(
+        runtime => $self->{runtime_name},
+        command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('InvokeGlobalFunction'),
+        payload => \@arguments
+    );
+
+    return Javonet::Sdk::Internal::InvocationContext->new(
+        $self->{runtime_name},
+        $self->{connection_type},
+        $self->{tcp_address},
+        $self->build_command($command),
+        0
+    );
+}
+
 sub build_command {
     my ($self, $command) = @_;
     my $payload_length = @{$command->{payload}};
@@ -218,15 +239,25 @@ sub build_command {
 sub encapsulate_payload_item {
     my ($self, $payload_item) = @_;
 
-    if(!defined $payload_item) {
+    if (!defined $payload_item) {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => []
+            payload      => []
         );
     }
-
-    if ($payload_item->isa('Command')) {
+    if (ref($payload_item) eq 'ARRAY') {
+        my $payload_length = @$payload_item;
+        for (my $i = 0; $i < $payload_length; $i++) {
+            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
+        }
+        return PerlCommand->new(
+            runtime      => $self->{runtime_name},
+            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
+            payload      => $payload_item
+        );
+    }
+    elsif ($payload_item->isa('Command')) {
         my $payload_length = @{$payload_item->{payload}};
         for (my $i = 0; $i < $payload_length; $i++) {
             $payload_item->{payload}[$i] = $self->encapsulate_payload_item($payload_item->{payload}[$i]);
@@ -236,22 +267,11 @@ sub encapsulate_payload_item {
     elsif ($payload_item->isa('Javonet::Sdk::Internal::InvocationContext')) {
         return $payload_item->get_current_command();
     }
-    elsif (ref($payload_item) eq 'ARRAY') {
-        my $payload_length = @$payload_item;
-        for (my $i = 0; $i < $payload_length; $i++) {
-            $payload_item->[$i] = $self->encapsulate_payload_item($payload_item->[$i]);
-        }
-        return PerlCommand->new(
-            runtime => $self->{runtime_name},
-            command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Array'),
-            payload => $payload_item
-        );
-    }
     else {
         return PerlCommand->new(
-            runtime => $self->{runtime_name},
+            runtime      => $self->{runtime_name},
             command_type => Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'),
-            payload => [$payload_item]
+            payload      => [ $payload_item ]
         );
     }
 }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/bin/yamlpp-load-dump.bat

@@ -35,7 +35,8 @@ GetOptions(
     'header!' => \my $header,
     'footer!' => \my $footer,
     'merge' => \my $merge,
-    'catchall' => \my $catchall,
+    #'catchall' => \my $catchall,
+    'require-footer' => \my $require_footer,
     'perl' => \my $perl,
     'preserve|P=s' => \my $preserve,
     'module|M=s' => \my $module,
@@ -65,9 +66,9 @@ if ($merge) {
 if ($perl) {
     push @schema, 'Perl';
 }
-if ($catchall) {
-    push @schema, 'Catchall';
-}
+#if ($catchall) {
+#    push @schema, 'Catchall';
+#}
 
 my $preserve_order = 1;
 if (defined $preserve) {
@@ -158,6 +159,7 @@ sub _yamlpp {
         footer => $footer ? 1 : 0,
         yaml_version => \@yaml_versions,
         version_directive => $version_directive || 0,
+        require_footer => $require_footer,
     );
     if ($inc) {
         $inc->yp($ypp);
@@ -305,7 +307,7 @@ Options:
     --[no-]header         Print '---' (default)
     --[no-]footer         Print '...'
     --merge               Enable loading merge keys '<<'
-    --catchall            Ignore any unknown tags
+    --require-footer      Require '...' and the end of each document
     --perl                Enable loading perl types and objects (use only
                           on trusted input!)
     --preserve, -P        Comma separated: 'order', 'scalar', 'flow', 'alias'.
@@ -321,6 +323,7 @@ Options:
     --include-absolute    Allow absolute paths and ../../../ in includes (use
                           only on trusted input!)
 EOM
+#    --catchall            Ignore any unknown tags
     exit $rc;
 }
 __END__

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/bin/yamlpp-load.bat

@@ -29,7 +29,8 @@ GetOptions(
     'cyclic' => \my $cyclic,
     'duplicate-keys' => \my $duplicate_keys,
     'merge' => \my $merge,
-    'catchall' => \my $catchall,
+    #'catchall' => \my $catchall,
+    'require-footer' => \my $require_footer,
     'perl' => \my $perl,
     'module|M=s' => \my $module,
     'yaml-version=s' => \my $yaml_version,
@@ -48,9 +49,9 @@ if ($merge) {
 if ($perl) {
     push @schema, 'Perl';
 }
-if ($catchall) {
-    push @schema, 'Catchall';
-}
+#if ($catchall) {
+#    push @schema, 'Catchall';
+#}
 
 my ($file) = @ARGV;
 my $yaml;
@@ -92,6 +93,7 @@ sub _yamlpp {
         duplicate_keys => $duplicate_keys ? 1 : 0,
         preserve => PRESERVE_ORDER,
         yaml_version => \@yaml_versions,
+        require_footer => $require_footer,
     );
     my @docs = $ypp->load_string($yaml);
     return @docs;
@@ -155,13 +157,14 @@ Options:
     --cyclic              Allow cyclic references
     --duplicate-keys      Allow duplicate keys
     --merge               Enable loading merge keys '<<'
-    --catchall            Ignore any unknown tags
+    --require-footer      Require '...' and the end of each document
     --perl                Enable loading perl types and objects (use only
                           on trusted input!)
     --module -M           YAML::PP (default), YAML, YAML::PP::LibYAML,
                           YAML::Syck, YAML::Tiny, YAML::XS, YAML::PP::Ref
     --yaml-version=       '1.2' (default), '1.1', '1.2,1.1', '1.1,1.2'
 EOM
+    #--catchall            Ignore any unknown tags
     exit $rc;
 }
 __END__