javonet-ruby-sdk 2.5.9 → 2.5.11

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

@@ -2,7 +2,7 @@ package Javonet::Core::Transmitter::PerlTransmitter;
 use strict;
 use warnings;
 use Cwd;
-use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate set_config_source set_javonet_working_directory);
 
 sub send_command {
     my ($self, $message_byte_array_ref) = @_;
@@ -20,4 +20,9 @@ sub set_config_source {
     PerlTransmitterWrapper->set_config_source($config_path);
 }
 
+sub set_javonet_working_directory {
+    my ($self, $working_directory) = @_;
+    PerlTransmitterWrapper->set_javonet_working_directory($working_directory);
+}
+
 1;

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

@@ -15,6 +15,7 @@ my $read_response_native;
 my $activate_native;
 my $get_native_error_native;
 my $set_config_source_native;
+my $set_working_directory_native;
 
 sub initialize {
     my $osname = $^O;
@@ -53,6 +54,7 @@ sub initialize {
         $activate_native = $ffi->function('Activate' => ['string'] => 'int');
         $get_native_error_native = $ffi->function('GetNativeError' => [] => 'string');
         $set_config_source_native = $ffi->function('SetConfigSource' => ['string'] => 'int');
+        $set_working_directory_native = $ffi->function('SetWorkingDirectory' => ['string'] => 'int');
     }
 }
 
@@ -102,4 +104,17 @@ sub set_config_source {
     }
 }
 
+sub set_javonet_working_directory {
+    my ($self, $working_directory) = @_;
+    initialize();
+    my $set_working_directory_result = $set_working_directory_native->($working_directory);
+    if ($set_working_directory_result < 0) {
+        my $error_message = $get_native_error_native->();
+        die "Javonet set working directory result: $set_working_directory_result. Native error message: $error_message";
+    }
+    else {
+        return $set_working_directory_result;
+    }
+}
+
 1;

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

@@ -6,12 +6,12 @@ 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::Transmitter::PerlTransmitter' => 'Transmitter', qw(activate send_command set_config_source set_javonet_working_directory);
 use aliased 'Javonet::Core::Exception::SdkExceptionHelper' => 'SdkExceptionHelper';
 use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger', qw(get_runtime_info);
 
 BEGIN {
-    SdkExceptionHelper->send_exception_to_app_insights("SdkMessage","Javonet Sdk initialized");
+    SdkExceptionHelper->send_exception_to_app_insights("SdkMessage", "Javonet Sdk initialized");
 }
 
 sub activate {
@@ -40,7 +40,7 @@ sub with_config {
         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");
+        SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
         die $_;
     };
 }
@@ -54,9 +54,27 @@ sub set_config_source {
     try {
         Transmitter->set_config_source($config_path);
     } catch {
-        SdkExceptionHelper->send_exception_to_app_insights($_,"setConfigSource");
+        SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
         die $_;
     };
 }
 
+# Sets the working directory for the Javonet SDK.
+# @param $path [String] The working directory path.
+sub set_javonet_working_directory {
+    my ($self, $path) = @_;
+    try {
+        $path =~ s{\\}{/}g;
+        $path .= '/' unless $path =~ m{/$};
+        mkdir $path, 0700 unless -d $path;
+        #ActivationHelper->working_directory($path);
+        Transmitter->set_javonet_working_directory($path);
+    } catch {
+        SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
+        die $_;
+    };
+}
+
+
+
 1;

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

@@ -0,0 +1,79 @@
+@rem = '--*-Perl-*--
+@set "ErrorLevel="
+@if "%OS%" == "Windows_NT" @goto WinNT
+@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+@set ErrorLevel=%ErrorLevel%
+@goto endofperl
+:WinNT
+@perl -x -S %0 %*
+@set ErrorLevel=%ErrorLevel%
+@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
+@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
+@goto endofperl
+@rem ';
+#!/usr/bin/perl
+#line 16
+use strict;
+use warnings;
+
+use Encode;
+use YAML::PP::Parser;
+use YAML::PP::Common;
+use Getopt::Long;
+Getopt::Long::Configure('bundling');
+GetOptions(
+    'help|h' => \my $help,
+    'module|M=s' => \my $module,
+) or usage(1);
+
+usage(0) if $help;
+
+$module ||= 'YAML::PP';
+if ($module eq 'YAML::PP') {
+    $module = 'YAML::PP::Parser';
+}
+elsif ($module eq 'YAML::PP::LibYAML') {
+    require YAML::PP::LibYAML::Parser;
+    $module = 'YAML::PP::LibYAML::Parser';
+}
+elsif ($module eq 'YAML::PP::Ref') {
+    require YAML::PP::Ref;
+    $module = 'YAML::PP::Ref::Parser';
+}
+
+my ($file) = @ARGV;
+
+my $parser = $module->new(
+    receiver => sub {
+      my ($self, undef, $event) = @_;
+      print encode_utf8(YAML::PP::Common::event_to_test_suite($event, { flow => 1 })), "\n";
+    },
+    $file ? (reader => YAML::PP::Reader::File->new) : (),
+);
+if ($file) {
+    $parser->parse_file($file);
+}
+else {
+    my $yaml;
+    $yaml = do { local $/; <STDIN> };
+    $yaml = decode_utf8($yaml);
+    $parser->parse_string($yaml);
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --module -M  Module to use for parsing. YAML::PP (default),
+                 YAML::PP::LibYAML or YAML::PP::Ref
+EOM
+    exit $rc;
+}
+__END__
+:endofperl
+@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%

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

@@ -0,0 +1,71 @@
+@rem = '--*-Perl-*--
+@set "ErrorLevel="
+@if "%OS%" == "Windows_NT" @goto WinNT
+@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+@set ErrorLevel=%ErrorLevel%
+@goto endofperl
+:WinNT
+@perl -x -S %0 %*
+@set ErrorLevel=%ErrorLevel%
+@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
+@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
+@goto endofperl
+@rem ';
+#!/usr/bin/perl
+#line 16
+use strict;
+use warnings;
+
+use YAML::PP::Highlight;
+use Encode;
+use Getopt::Long;
+
+GetOptions(
+    'help|h' => \my $help,
+    'expand-tabs|et!' => \my $expand_tabs,
+) or usage(1);
+
+$expand_tabs = 1 unless defined $expand_tabs;
+
+usage(0) if $help;
+
+my ($file) = @ARGV;
+my $yaml;
+
+unless ($file) {
+    $yaml = do { local $/; <STDIN> };
+    $yaml = decode_utf8($yaml);
+}
+
+my $error;
+my $tokens;
+if (defined $file) {
+    ($error, $tokens) = YAML::PP::Parser->yaml_to_tokens( file => $file );
+}
+else {
+    ($error, $tokens) = YAML::PP::Parser->yaml_to_tokens( string => $yaml );
+}
+my $highlighted = YAML::PP::Highlight->ansicolored($tokens, expand_tabs => $expand_tabs);
+print encode_utf8 $highlighted;
+if ($error) {
+    die $error;
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --expand-tabs    --et         Expand tabs to 8 spaces (default true)
+    --no-expand-tabs --no-et      Don't expand tabs
+EOM
+    exit $rc;
+}
+
+__END__
+:endofperl
+@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%

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

@@ -0,0 +1,328 @@
+@rem = '--*-Perl-*--
+@set "ErrorLevel="
+@if "%OS%" == "Windows_NT" @goto WinNT
+@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+@set ErrorLevel=%ErrorLevel%
+@goto endofperl
+:WinNT
+@perl -x -S %0 %*
+@set ErrorLevel=%ErrorLevel%
+@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
+@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
+@goto endofperl
+@rem ';
+#!/usr/bin/perl
+#line 16
+use strict;
+use warnings;
+
+use YAML::PP;
+use YAML::PP::Dumper;
+use YAML::PP::Common qw/
+    :PRESERVE
+/;
+use Encode;
+use Getopt::Long;
+Getopt::Long::Configure('bundling');
+
+GetOptions(
+    'help|h' => \my $help,
+    'boolean=s' => \my $boolean,
+    'cyclic' => \my $cyclic,
+    'duplicate-keys' => \my $duplicate_keys,
+    'indent=i' => \my $indent,
+    'width=i' => \my $width,
+    'header!' => \my $header,
+    'footer!' => \my $footer,
+    'merge' => \my $merge,
+    'catchall' => \my $catchall,
+    'perl' => \my $perl,
+    'preserve|P=s' => \my $preserve,
+    'module|M=s' => \my $module,
+    'dump-module|D=s' => \my $dump_module,
+    'include' => \my $include,
+    'include-absolute' => \my $include_absolute,
+    'yaml-version=s' => \my $yaml_version,
+    'version-directive' => \my $version_directive,
+) or usage(1);
+
+usage(0) if $help;
+
+$module ||= 'YAML::PP';
+$boolean ||= 'JSON::PP';
+$footer ||= 0;
+$indent ||= 2;
+$yaml_version ||= 1.2;
+$dump_module ||= $module;
+if ($dump_module eq 'YAML::PP::Ref') {
+    $dump_module = 'YAML::PP';
+}
+my @yaml_versions = split m/,/, $yaml_version;
+my @schema = ('+');
+if ($merge) {
+    push @schema, 'Merge';
+}
+if ($perl) {
+    push @schema, 'Perl';
+}
+if ($catchall) {
+    push @schema, 'Catchall';
+}
+
+my $preserve_order = 1;
+if (defined $preserve) {
+    $preserve_order = 0;
+    my @split = split m/,/, $preserve;
+    $preserve = 0;
+    for my $split (@split) {
+        $preserve |= PRESERVE_ORDER if $split eq 'order';
+        $preserve_order = 1 if $split eq 'order';
+        $preserve |= PRESERVE_SCALAR_STYLE if $split eq 'scalar';
+        $preserve |= PRESERVE_FLOW_STYLE if $split eq 'flow';
+        $preserve |= PRESERVE_ALIAS if $split eq 'alias';
+    }
+}
+elsif ($dump_module =~ m/JSON/) {
+    $preserve = PRESERVE_ORDER;
+}
+else {
+    $preserve = 1;
+}
+$header = 1 unless defined $header;
+
+my ($file) = @ARGV;
+my $yaml;
+
+my $decode = 1;
+if ($module eq 'YAML::XS') {
+    $decode = 0;
+}
+if ($file) {
+    open my $fh, '<', $file or die "Can not open '$file'";
+    $yaml = do { local $/; <$fh> };
+    close $fh;
+}
+else {
+    $yaml = do { local $/; <STDIN> };
+}
+$yaml = decode_utf8($yaml) if $decode;
+
+my %load_modules = (
+    'YAML::PP' => \&yamlpp,
+    'YAML::PP::LibYAML' => \&yamlpplibyaml,
+    'YAML::PP::Ref' => \&yamlppref,
+    'YAML::XS' => \&yamlxs,
+    'YAML::Tiny' => \&yamltiny,
+    'YAML::Syck' => \&yamlsyck,
+    'YAML' => \&yaml,
+);
+my %dump_modules = (
+    'YAML::PP' => \&yamlpp_dump,
+    'YAML::PP::LibYAML' => \&yamlpplibyaml_dump,
+    'YAML::XS' => \&yamlxs_dump,
+    'YAML::Tiny' => \&yamltiny_dump,
+    'YAML::Syck' => \&yamlsyck_dump,
+    'YAML' => \&yaml_dump,
+    'Data::Dumper' => \&data_dumper,
+    'JSON::PP' => \&json_pp_dump,
+    'JSON::XS' => \&json_xs_dump,
+    'Cpanel::JSON::XS' => \&cpanel_json_xs_dump,
+);
+
+my $code = $load_modules{ $module } or die "Module '$module' not supported for loading";
+my $dump_code = $dump_modules{ $dump_module } or die "Module '$dump_module' not supported for dumping";
+
+my $docs = $code->($yaml, $file);
+my $out_yaml = $dump_code->($docs);
+
+sub _yamlpp {
+    my ($class, $yaml, $file) = @_;
+    my %args;
+    my $inc;
+    if ($include) {
+        require YAML::PP::Schema::Include;
+        $inc = YAML::PP::Schema::Include->new(
+            $include_absolute ? (allow_absolute => 1) : (),
+        );
+        push @schema, $inc;
+    }
+    my $ypp = $class->new(
+        schema => \@schema,
+        boolean => $boolean,
+        cyclic_refs => $cyclic ? 'allow' : 'fatal',
+        duplicate_keys => $duplicate_keys ? 1 : 0,
+        preserve => $preserve,
+        indent => $indent,
+        width => $width,
+        header => $header ? 1 : 0,
+        footer => $footer ? 1 : 0,
+        yaml_version => \@yaml_versions,
+        version_directive => $version_directive || 0,
+    );
+    if ($inc) {
+        $inc->yp($ypp);
+    }
+    my @docs = $file ? $ypp->load_file($file) : $ypp->load_string($yaml);
+    return \@docs;
+}
+sub yamlpp {
+    _yamlpp('YAML::PP' => @_);
+}
+sub yamlpp_dump {
+    _yamlpp_dump('YAML::PP' => @_);
+}
+sub yamlpplibyaml {
+    eval { require YAML::PP::LibYAML };
+    _yamlpp('YAML::PP::LibYAML' => @_);
+}
+sub yamlppref {
+    eval { require YAML::PP::Ref };
+    _yamlpp('YAML::PP::Ref' => @_);
+}
+sub yamlpplibyaml_dump {
+    eval { require YAML::PP::LibYAML };
+    _yamlpp_dump('YAML::PP::LibYAML' => @_);
+}
+sub _yamlpp_dump {
+    my ($class, $docs) = @_;
+    my $ypp = $class->new(
+        schema => \@schema,
+        boolean => $boolean,
+        preserve => $preserve,
+        indent => $indent,
+        width => $width,
+        header => $header ? 1 : 0,
+        footer => $footer ? 1 : 0,
+        yaml_version => \@yaml_versions,
+        version_directive => $version_directive || 0,
+    );
+    return $ypp->dump_string(@$docs);
+}
+
+sub yamlxs {
+    eval { require YAML::XS };
+    my ($yaml) = @_;
+    no warnings 'once';
+    local $YAML::XS::LoadBlessed = $perl;
+    my @docs = YAML::XS::Load($yaml);
+    return \@docs;
+}
+sub yamlxs_dump {
+    my ($docs) = @_;
+    eval { require YAML::XS };
+    no warnings 'once';
+    local $YAML::XS::Indent = $indent;
+    return YAML::XS::Dump(@$docs);
+}
+sub yamlsyck {
+    eval { require YAML::Syck };
+    my ($yaml) = @_;
+    no warnings 'once';
+    local $YAML::Syck::LoadBlessed = $perl;
+    local $YAML::Syck::ImplicitTyping = 1;
+    local $YAML::Syck::ImplicitUnicode = 1;
+    my @docs = YAML::Syck::Load($yaml);
+    return \@docs;
+}
+sub yamlsyck_dump {
+    eval { require YAML::Syck };
+    my ($docs) = @_;
+    no warnings 'once';
+    local $YAML::Syck::Headless = 1 unless $header;
+    local $YAML::Syck::ImplicitTyping = 1;
+    local $YAML::Syck::ImplicitUnicode = 1;
+    return YAML::Syck::Dump(@$docs);
+}
+sub yaml {
+    eval { require YAML };
+    no warnings 'once';
+    local $YAML::LoadBlessed = $perl;
+    my ($yaml) = @_;
+    my @docs = YAML::Load($yaml);
+    return \@docs;
+}
+sub yaml_dump {
+    my ($docs) = @_;
+    eval { require YAML };
+    no warnings 'once';
+    local $YAML::UseHeader = $header ? 1 : 0;
+    local $YAML::Indent = $indent;
+    return YAML::Dump(@$docs);
+}
+sub yamltiny {
+    eval { require YAML::Tiny };
+    my ($yaml) = @_;
+    my @docs = YAML::Tiny::Load($yaml);
+    return \@docs;
+}
+sub yamltiny_dump {
+    eval { require YAML::Tiny };
+    my ($docs) = @_;
+    return YAML::Tiny::Dump(@$docs);
+}
+sub data_dumper {
+    my ($docs) = @_;
+    local $Data::Dumper::Useqq = 1;
+    local $Data::Dumper::Sortkeys = 1 unless $preserve_order;
+    my $out = '';
+    $out .= Data::Dumper->Dump([$docs->[ $_ ]], ["doc$_"]) for 0 ..$#$docs;
+    return $out;
+}
+sub json_pp_dump { require JSON::PP; _json_dump('JSON::PP', @_) }
+sub json_xs_dump { require JSON::XS; _json_dump('JSON::XS', @_) }
+sub cpanel_json_xs_dump { require Cpanel::JSON::XS; _json_dump('Cpanel::JSON::XS', @_) }
+sub _json_dump {
+    my ($class, $docs) = @_;
+    my $coder = $class->new->ascii->pretty->allow_nonref->space_before(0);
+    $coder = $coder->indent_length($indent) if $coder->can('indent_length');
+    $coder = $coder->canonical unless $preserve_order;
+    my $out = '';
+    $out .= $coder->encode($docs->[ $_ ]) for 0 ..$#$docs;
+    return $out;
+}
+
+if ($decode) {
+    print encode_utf8 $out_yaml;
+}
+else {
+    print $out_yaml;
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --boolean=            'perl', 'JSON::PP', 'boolean'
+    --cyclic              Allow cyclic references
+    --duplicate-keys      Allow duplicate keys
+    --indent=             Number of spaces for indentation
+    --width=              Maximum column width (only used in flow style for now)
+    --[no-]header         Print '---' (default)
+    --[no-]footer         Print '...'
+    --merge               Enable loading merge keys '<<'
+    --catchall            Ignore any unknown tags
+    --perl                Enable loading perl types and objects (use only
+                          on trusted input!)
+    --preserve, -P        Comma separated: 'order', 'scalar', 'flow', 'alias'.
+                          Set to 0 to preserve nothing.
+                          By default all things are preserved
+    --module -M           YAML::PP (default), YAML, YAML::PP::LibYAML,
+                          YAML::Syck, YAML::Tiny, YAML::XS, YAML::PP::Ref
+    --dump-module -D      All of the above plus Data::Dumper, JSON::PP,
+                          JSON::XS, Cpanel::JSON::XS
+    --yaml-version=       '1.2' (default), '1.1', '1.2,1.1', '1.1,1.2'
+    --version-directive   Print '%YAML <version>'
+    --include             Enable Include Schema
+    --include-absolute    Allow absolute paths and ../../../ in includes (use
+                          only on trusted input!)
+EOM
+    exit $rc;
+}
+__END__
+:endofperl
+@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%