RubyGems - javonet-ruby-sdk - Versions diffs - 2.4.9 → 2.4.11 - Mend

javonet-ruby-sdk 2.4.9 → 2.4.11

Files changed (1457) hide show

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/FFI/Platypus/Closure.pm DELETED Viewed

@@ -1,199 +0,0 @@
-package FFI::Platypus::Closure;
-use strict;
-use warnings;
-use 5.008004;
-use FFI::Platypus;
-use Scalar::Util qw( refaddr);
-use Carp qw( croak );
-use overload '&{}' => sub {
-  my $self = shift;
-  sub { $self->{code}->(@_) };
-}, bool => sub { 1 }, fallback => 1;
-# ABSTRACT: Platypus closure object
-our $VERSION = '2.09'; # VERSION
-sub new
-{
-  my($class, $coderef) = @_;
-  croak "not a coderef" unless ref($coderef) eq 'CODE';
-  my $self = bless { code => $coderef, cbdata => {}, sticky => 0 }, $class;
-  $self;
-}
-sub add_data
-{
-  my($self, $payload, $type) = @_;
-  $self->{cbdata}{$type} = bless \$payload, 'FFI::Platypus::ClosureData';
-}
-sub get_data
-{
-  my($self, $type) = @_;
-  if (exists $self->{cbdata}->{$type}) {
-      return ${$self->{cbdata}->{$type}};
-  }
-  return 0;
-}
-sub call
-{
-  my $self = shift;
-  $self->{code}->(@_)
-}
-sub sticky
-{
-  my($self) = @_;
-  return if $self->{sticky};
-  $self->{sticky} = 1;
-  $self->_sticky;
-}
-sub unstick
-{
-  my($self) = @_;
-  return unless $self->{sticky};
-  $self->{sticky} = 0;
-  $self->_unstick;
-}
-package FFI::Platypus::ClosureData;
-our $VERSION = '2.09'; # VERSION
-1;
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-FFI::Platypus::Closure - Platypus closure object
-=head1 VERSION
-version 2.09
-=head1 SYNOPSIS
-create closure with OO interface
- use FFI::Platypus::Closure;
- my $closure = FFI::Platypus::Closure->new(sub { print "hello world\n" });
-create closure from Platypus object
- use FFI::Platypus 2.00;
- my $ffi = FFI::Platypus->new( api => 2 );
- my $closure = $ffi->closure(sub { print "hello world\n" });
-use closure
- $ffi->function(foo => ['()->void'] => 'void')->call($closure);
-=head1 DESCRIPTION
-This class represents a Perl code reference that can be called from compiled code.
-When you create a closure object, you can pass it into any function that expects
-a function pointer.  Care needs to be taken with closures because compiled languages
-typically have a different way of handling lifetimes of objects.  You have to make
-sure that if the compiled code is going to call a closure that the closure object
-is still in scope somewhere, or has been made sticky, otherwise you may get a
-segment violation or other mysterious crash.
-=head1 CONSTRUCTOR
-=head2 new
- my $closure = FFI::Platypus::Closure->new($coderef);
-Create a new closure object; C<$coderef> must be a subroutine code reference.
-=head1 METHODS
-=head2 call
- $closure->call(@arguments);
- $closure->(@arguments);
-Call the closure from Perl space.  May also be invoked by treating
-the closure object as a code reference.
-=head2 sticky
- $closure->sticky;
-Mark the closure sticky, meaning that it won't be free'd even if
-all the reference of the object fall out of scope.
-=head2 unstick
- $closure->unstick;
-Unmark the closure as sticky.
-=head1 AUTHOR
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-Contributors:
-Bakkiaraj Murugesan (bakkiaraj)
-Dylan Cali (calid)
-pipcet
-Zaki Mughal (zmughal)
-Fitz Elliott (felliott)
-Vickenty Fesunov (vyf)
-Gregor Herrmann (gregoa)
-Shlomi Fish (shlomif)
-Damyan Ivanov
-Ilya Pavlov (Ilya33)
-Petr Písař (ppisar)
-Mohammad S Anwar (MANWAR)
-Håkon Hægland (hakonhagland, HAKONH)
-Meredith (merrilymeredith, MHOWARD)
-Diab Jerius (DJERIUS)
-Eric Brine (IKEGAMI)
-szTheory
-José Joaquín Atria (JJATRIA)
-Pete Houston (openstrike, HOUSTON)
-Lukas Mai (MAUKE)
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2015-2022 by Graham Ollis.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/FFI/Platypus/Constant.pm DELETED Viewed

@@ -1,246 +0,0 @@
-package FFI::Platypus::Constant;
-use strict;
-use warnings;
-use 5.008004;
-use constant 1.32 ();
-use FFI::Platypus;
-# ABSTRACT: Define constants in C space for Perl
-our $VERSION = '2.09'; # VERSION
-{
-  my $ffi = FFI::Platypus->new( api => 2 );
-  $ffi->bundle;
-  $ffi->type( 'opaque'                => 'ffi_platypus_constant_t' );
-  $ffi->type( '(string,string)->void' => 'set_str_t'       );
-  $ffi->type( '(string,sint64)->void' => 'set_sint_t'      );
-  $ffi->type( '(string,uint64)->void' => 'set_uint_t'      );
-  $ffi->type( '(string,double)->void' => 'set_double_t'    );
-  $ffi->mangler(sub {
-    my($name) = @_;
-    $name =~ s/^/ffi_platypus_constant__/;
-    $name;
-  });
-  $ffi->attach( new => [ 'set_str_t', 'set_sint_t', 'set_uint_t', 'set_double_t' ] => 'ffi_platypus_constant_t' => sub {
-    my($xsub, $class, $default_package) = @_;
-    my $f = $ffi->closure(sub {
-      my($name, $value) = @_;
-      if($name !~ /::/)
-      {
-        $name = join('::', $default_package, $name);
-      }
-      constant->import($name, $value);
-    });
-    bless {
-      ptr => $xsub->($f, $f, $f, $f),
-      f   => $f,
-    }, $class;
-  });
-  $ffi->attach( DESTROY => ['ffi_platypus_constant_t'] => 'void' => sub {
-    my($xsub, $self) = @_;
-    $xsub->($self->ptr);
-  });
-  sub ptr { shift->{ptr} }
-}
-1;
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-FFI::Platypus::Constant - Define constants in C space for Perl
-=head1 VERSION
-version 2.09
-=head1 SYNOPSIS
-C<ffi/foo.c>:
- #include <ffi_platypus_bundle.h>
- void
- ffi_pl_bundle_constant(const char *package, ffi_platypus_constant_t *c)
- {
-   c->set_str("FOO", "BAR");       /* sets $package::FOO to "BAR" */
-   c->set_str("ABC::DEF", "GHI");  /* sets ABC::DEF to GHI        */
- }
-C<lib/Foo.pm>:
- package Foo;
- use strict;
- use warnings;
- use FFI::Platypus 2.00;
- use Exporter qw( import );
- my $ffi = FFI::Platypus->new( api => 2 );
- # sets constants Foo::FOO and ABC::DEF from C
- $ffi->bundle;
- 1;
-=head1 DESCRIPTION
-The Platypus bundle interface (see L<FFI::Platypus::Bundle>) has an entry point
-C<ffi_pl_bundle_constant> that lets you define constants in Perl space from C.
- void ffi_pl_bundle_constant(const char *package, ffi_platypus_constant_t *c);
-The first argument C<package> is the name of the Perl package.  The second argument
-C<c> is a struct with function pointers that lets you define constants of different
-types.  The first argument for each function is the name of the constant and the
-second is the value.  If C<::> is included in the constant name then it will be
-defined in that package space.  If it isn't then the constant will be defined in
-whichever package called C<bundle>.
-=over 4
-=item set_str
- c->set_str(name, value);
-Sets a string constant.
-=item set_sint
- c->set_sint(name, value);
-Sets a 64-bit signed integer constant.
-=item set_uint
- c->set_uint(name, value);
-Sets a 64-bit unsigned integer constant.
-=item set_double
- c->set_double(name, value);
-Sets a double precision floating point constant.
-=back
-=head2 Example
-Suppose you have a header file C<myheader.h>:
- #ifndef MYHEADER_H
- #define MYHEADER_H
- #define MYVERSION_STRING "1.2.3"
- #define MYVERSION_MAJOR 1
- #define MYVERSION_MINOR 2
- #define MYVERSION_PATCH 3
- enum {
-   MYBAD = -1,
-   MYOK  = 1
- };
- #define MYPI 3.14
- #endif
-You can define these constants from C:
- #include <ffi_platypus_bundle.h>
- #include "myheader.h"
- void ffi_pl_bundle_constant(const char *package, ffi_platypus_constant_t *c)
- {
-   c->set_str("MYVERSION_STRING", MYVERSION_STRING);
-   c->set_uint("MYVERSION_MAJOR", MYVERSION_MAJOR);
-   c->set_uint("MYVERSION_MINOR", MYVERSION_MINOR);
-   c->set_uint("MYVERSION_PATCH", MYVERSION_PATCH);
-   c->set_sint("MYBAD", MYBAD);
-   c->set_sint("MYOK", MYOK);
-   c->set_double("MYPI", MYPI);
- }
-Your Perl code doesn't have to do anything when calling bundle:
- package Const;
- use strict;
- use warnings;
- use FFI::Platypus 2.00;
- {
-   my $ffi = FFI::Platypus->new( api => 2 );
-   $ffi->bundle;
- }
- 1;
-=head1 AUTHOR
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-Contributors:
-Bakkiaraj Murugesan (bakkiaraj)
-Dylan Cali (calid)
-pipcet
-Zaki Mughal (zmughal)
-Fitz Elliott (felliott)
-Vickenty Fesunov (vyf)
-Gregor Herrmann (gregoa)
-Shlomi Fish (shlomif)
-Damyan Ivanov
-Ilya Pavlov (Ilya33)
-Petr Písař (ppisar)
-Mohammad S Anwar (MANWAR)
-Håkon Hægland (hakonhagland, HAKONH)
-Meredith (merrilymeredith, MHOWARD)
-Diab Jerius (DJERIUS)
-Eric Brine (IKEGAMI)
-szTheory
-José Joaquín Atria (JJATRIA)
-Pete Houston (openstrike, HOUSTON)
-Lukas Mai (MAUKE)
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2015-2022 by Graham Ollis.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/FFI/Platypus/DL.pm DELETED Viewed

@@ -1,231 +0,0 @@
-package FFI::Platypus::DL;
-use strict;
-use warnings;
-use 5.008004;
-use Exporter qw( import );
-require FFI::Platypus;
-our @EXPORT = qw( dlopen dlerror dlsym dlclose );
-push @EXPORT, grep /RTLD_/, keys %FFI::Platypus::DL::;
-# ABSTRACT: Slightly non-portable interface to libdl
-our $VERSION = '2.09'; # VERSION
-1;
-__END__
-=pod
-=encoding UTF-8
-=head1 NAME
-FFI::Platypus::DL - Slightly non-portable interface to libdl
-=head1 VERSION
-version 2.09
-=head1 SYNOPSIS
- use FFI::Platypus 2.00;
- use FFI::Platypus::DL;
- my $handle = dlopen("./libfoo.so", RTLD_PLATYPUS_DEFAULT);
- my $address = dlsym($handle, "my_function_named_foo");
- my $ffi = FFI::Platypus->new( api => 2 );
- $ffi->function($address => [] => 'void')->call;
- dlclose($handle);
-=head1 DESCRIPTION
-This module provides an interface to libdl, the dynamic loader on UNIX.  The underlying interface
-has always been used by L<FFI::Platypus>, but it wasn't a public interface until version 0.52.  The
-name was changed with that version when it became a public interface, so be sure to specify that
-version if you are going to use it.
-It is somewhat non-portable for these reasons:
-=over 4
-=item GNU extensions
-It provides some GNU extensions to platforms such as Linux that support them.
-=item Windows
-It provides an emulation layer on Windows.  The emulation layer only supports C<RTLD_PLATYPUS_DEFAULT>
-as a flag.  The emulation layer emulates the convention described below of passing C<undef> as
-the dynamic library name to mean, use the currently running executable.  I've used it without
-any problems for years, but Windows is not my main development platform.
-=back
-=head1 FUNCTIONS
-=head2 dlopen
- my $handle = dlopen($filename, $flags);
-This opens a dynamic library in the context of the dynamic loader.  C<$filename> is the full or
-relative path to a dynamic library (usually a C<.so> on Linux and some other UNIXen, a C<.dll> on
-Windows and a C<.dylib> on OS X).  C<$flags> are flags that can be used to alter the behavior
-of the library and the symbols it contains.  The return value is an opaque pointer or C<$handle>
-which can be used to look up symbols with C<dlsym>.  The handle should be closed with C<dlclose>
-when you are done with it.
-By convention if you pass in C<undef> for the filename, the currently loaded executable will be
-used instead of a separate dynamic library.  This is the easiest and most portable way to find
-the address of symbols in the standard C library.  This convention is baked into most UNIXen,
-but this capability is emulated in Windows which doesn't come with the capability out of the box.
-If there is an error in opening the library then C<undef> will be returned and the diagnostic
-for the failure can be retrieved with C<dlerror> as described below.
-Not all flags are supported on all platforms.  You can test if a flag is available using can:
- if(FFI::Platypus::DL->can('RTLD_LAZY'))
- {
-   ...
- }
-Typically where flags are not mutually exclusive, they can be or'd together:
- my $handle = dlopen("libfoo.so", RTLD_LAZY | RTLD_GLOBAL);
-Check your operating system documentation for detailed descriptions of these flags.
-=over 4
-=item RTLD_PLATYPUS_DEFAULT
-This is the L<FFI::Platypus> default for C<dlopen> (NOTE: NOT the libdl default).  This is the only
-flag supported on Windows.  For historical reasons, this is usually C<RTLD_LAZY> on Unix and C<0> on
-Windows.
-=item RTLD_LAZY
-Perform lazy binding.
-=item RTLD_NOW
-Resolve all symbols before returning from C<dlopen>.  Error if all symbols cannot resolve.
-=item RTLD_GLOBAL
-Symbols are shared.
-=item RTLD_LOCAL
-Symbols are NOT shared.
-=item RTLD_NODELETE
-glibc 2.2 extension.
-=item RTLD_NOLOAD
-glibc 2.2 extension.
-=item RTLD_DEEPBIND
-glibc 2.3.4 extension.
-=back
-=head2 dlsym
- my $opaque = dlsym($handle, $symbol);
-This looks up the given C<$symbol> in the library pointed to by C<$handle>.  If the symbol is found,
-the address for that symbol is returned as an opaque pointer.  This pointer can be passed into
-the L<FFI::Platypus> C<function> and C<attach> methods instead of a function name.
-If the symbol cannot be found then C<undef> will be returned and the diagnostic for the failure can
-be retrieved with C<dlerror> as described below.
-=head2 dlclose
- my $status = dlclose($handle);
-On success, C<dlclose> returns 0; on error, it returns a nonzero value, and the diagnostic for the
-failure can be retrieved with C<dlerror> as described below.
-=head2 dlerror
- my $error_string = dlerror;
-Returns the human readable diagnostic for the reason for the failure for the most recent C<dl>
-prefixed function call.
-=head1 CAVEATS
-Some flags for C<dlopen> are not portable.  This module may not be supported platforms added to
-L<FFI::Platypus> in the future.  It does work as far as I know on all of the currently supported
-platforms.
-=head1 SEE ALSO
-=over 4
-=item L<FFI::Platypus>
-=back
-=head1 AUTHOR
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-Contributors:
-Bakkiaraj Murugesan (bakkiaraj)
-Dylan Cali (calid)
-pipcet
-Zaki Mughal (zmughal)
-Fitz Elliott (felliott)
-Vickenty Fesunov (vyf)
-Gregor Herrmann (gregoa)
-Shlomi Fish (shlomif)
-Damyan Ivanov
-Ilya Pavlov (Ilya33)
-Petr Písař (ppisar)
-Mohammad S Anwar (MANWAR)
-Håkon Hægland (hakonhagland, HAKONH)
-Meredith (merrilymeredith, MHOWARD)
-Diab Jerius (DJERIUS)
-Eric Brine (IKEGAMI)
-szTheory
-José Joaquín Atria (JJATRIA)
-Pete Houston (openstrike, HOUSTON)
-Lukas Mai (MAUKE)
-=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2015-2022 by Graham Ollis.
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-=cut