javonet-ruby-sdk 2.4.9 → 2.4.11

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

@@ -1,575 +0,0 @@
-package FFI::Platypus::Record;
-
-use strict;
-use warnings;
-use 5.008004;
-use Carp qw( croak );
-use FFI::Platypus;
-use Exporter qw( import );
-use constant 1.32 ();
-
-our @EXPORT = qw( record_layout record_layout_1 );
-
-# ABSTRACT: FFI support for structured records data
-our $VERSION = '2.09'; # VERSION
-
-
-sub record_layout_1
-{
-  if(@_ % 2 == 0)
-  {
-    my $ffi = FFI::Platypus->new( api => 2);
-    unshift @_, $ffi;
-    goto &record_layout;
-  }
-  elsif(defined $_[0] && ref($_[0]) eq 'ARRAY')
-  {
-    my @args = @{ shift @_ };
-    unshift @args, api => 2;
-    unshift @_, \@args;
-    goto &record_layout;
-  }
-  elsif(defined $_[0] && eval { $_[0]->isa('FFI::Platypus') })
-  {
-    goto &record_layout;
-  }
-  else
-  {
-    croak "odd number of arguments, but first argument is not either an array reference or Platypus instance";
-  }
-}
-
-
-sub record_layout
-{
-  my $ffi;
-
-  if(defined $_[0])
-  {
-    if(ref($_[0]) eq 'ARRAY')
-    {
-      my @args = @{ shift() };
-      $ffi = FFI::Platypus->new(@args);
-    }
-    elsif(eval { $_[0]->isa('FFI::Platypus') })
-    {
-      $ffi = shift;
-    }
-  }
-
-  $ffi ||= FFI::Platypus->new;
-
-  my $offset = 0;
-  my $record_align = 0;
-
-  croak "uneven number of arguments!" if scalar(@_) % 2;
-
-  my($caller, $filename, $line) = caller;
-
-  if($caller->can("_ffi_record_size")
-  || $caller->can("ffi_record_size"))
-  {
-    croak "record already defined for the class $caller";
-  }
-
-  my @destroy;
-  my @ffi_types;
-  my $has_string;
-
-  while(@_)
-  {
-    my $spec = shift;
-    my $name = shift;
-    my $type = $ffi->{tp}->parse( $spec, { member => 1 } );
-
-    croak "illegal name $name"
-      unless $name =~ /^[A-Za-z_][A-Za-z_0-9]*$/
-      ||     $name eq ':';
-    croak "accessor/method $name already exists"
-      if $caller->can($name);
-
-    my $size      = $type->sizeof;
-    my $align     = $type->alignof;
-    $record_align = $align if $align > $record_align;
-    my $meta      = $type->meta;
-
-    $offset++ while $offset % $align;
-
-    {
-      my $count;
-      my $ffi_type;
-
-      if($meta->{type} eq 'record') # this means fixed string atm
-      {
-        $ffi_type = 'sint8';
-        $count = $size;
-      }
-      else
-      {
-        $ffi_type = $meta->{ffi_type};
-        $count    = $meta->{element_count};
-        $count    = 1 unless defined $count;
-
-        $has_string = 1 if $meta->{type} eq 'string';
-      }
-      push @ffi_types, $ffi_type for 1..$count;
-    }
-
-    if($name ne ':')
-    {
-
-      if($meta->{type} eq 'string'
-      && $meta->{access} eq 'rw')
-      {
-        push @destroy, eval '# line '. __LINE__ . ' "' . __FILE__ . qq("\n) .qq{
-          sub {
-            shift->$name(undef);
-          };
-        };
-        die $@ if $@;
-      }
-
-      my $full_name = join '::', $caller, $name;
-      my $error_str = _accessor
-        $full_name,
-        "$filename:$line",
-        $type,
-        $offset;
-      croak("$error_str ($spec $name)") if $error_str;
-    };
-
-    $offset += $size;
-  }
-
-  my $size = $offset;
-
-  no strict 'refs';
-  constant->import("${caller}::_ffi_record_size", $size);
-  constant->import("${caller}::_ffi_record_align", $record_align);
-  *{join '::', $caller, '_ffi_record_ro'} = \&_ffi_record_ro;
-  *{join '::', $caller, 'new'} = sub {
-    my $class = shift;
-    my $args = ref($_[0]) ? [%{$_[0]}] : \@_;
-    croak "uneven number of arguments to record constructor"
-      if @$args % 2;
-    my $record = "\0" x $class->_ffi_record_size;
-    my $self = bless \$record, $class;
-
-    while(@$args)
-    {
-      my $key = shift @$args;
-      my $value = shift @$args;
-      $self->$key($value);
-    }
-
-    $self;
-  };
-
-  {
-    require FFI::Platypus::Record::Meta;
-    my $ffi_meta = FFI::Platypus::Record::Meta->new(
-      \@ffi_types,
-      !$has_string,
-    );
-    *{join '::', $caller, '_ffi_meta'} = sub { $ffi_meta };
-  }
-
-  my $destroy_sub = sub {};
-
-  if(@destroy)
-  {
-    $destroy_sub = sub {
-      return if _ffi_record_ro($_[0]);
-      $_->($_[0]) for @destroy;
-    };
-  }
-  do {
-    no strict 'refs';
-    *{"${caller}::DESTROY"} = $destroy_sub;
-  };
-  ();
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-FFI::Platypus::Record - FFI support for structured records data
-
-=head1 VERSION
-
-version 2.09
-
-=head1 SYNOPSIS
-
-C:
-
- struct my_person {
-   int         age;
-   const char  title[3];
-   const char *name
- };
- 
- void process_person(struct my_person *person)
- {
-   /* ... */
- }
-
-Perl:
-
- package MyPerson;
- 
- use FFI::Platypus::Record;
- 
- record_layout_1(
-   'int'       => 'age',
-   'string(3)' => 'title',
-   'string rw' => 'name',
- );
- 
- package main;
- 
- use FFI::Platypus 2.00;
- 
- my $ffi = FFI::Platypus->new( api => 2 );
- $ffi->lib("myperson.so");
- $ffi->type("record(MyPerson)" => 'MyPerson');
- 
- my $person = MyPerson->new(
-   age   => 40,
-   title => "Mr.",
-   name  => "John Smith",
- );
- 
- $ffi->attach( process_person => [ 'MyPerson*' ] => 'void' );
- 
- process_person($person);
- 
- $person->age($person->age + 1); # another year older
- 
- process_person($person);
-
-=head1 DESCRIPTION
-
-[version 0.21]
-
-This module provides a mechanism for building classes that can be used
-to mange structured data records (known as C as "structs" and in some
-languages as "records").  A structured record is a series of bytes that
-have structure understood by the C or other foreign language library
-that you are interfacing with.  It is designed for use with FFI and
-L<FFI::Platypus>, though it may have other applications.
-
-Before you get to deep into using this class you should also consider
-the L<FFI::C>, which provides some overlapping functionality.  Briefly,
-it comes down to this:
-
-(The tl;dr is: use this class when you need to pass by value (since
-L<FFI::C> does not support pass by value) and use L<FFI::C> in all
-other circumstances).
-
-=over 4
-
-=item L<FFI::Platypus::Record>
-
-Supports:
-
-=over 4
-
-=item C pointers to C<struct> types
-
-=item Passing C C<struct>s by-value.
-
-=back
-
-Does not support:
-
-=over 4
-
-=item C C<union> types.
-
-=item C arrays of C<struct> and C<union> types.
-
-=back
-
-=item L<FFI::C>
-
-Supports:
-
-=over 4
-
-=item C C<struct> andC<union> types
-
-=item C arrays of C<struct> and C<union> types.
-
-=back
-
-Does not support:
-
-=over 4
-
-=item Passing C C<struct>s by-value.
-
-=back
-
-String members are as of this writing a TODO for L<FFI::C>, but
-should be coming soon!
-
-=back
-
-=head1 FUNCTIONS
-
-=head2 record_layout_1
-
- record_layout_1($ffi, $type => $name, ... );
- record_layout_1(\@ffi_args, $type => $name, ... );
- record_layout_1($type => $name, ... );
-
-Define the layout of the record.  You may optionally provide an instance
-of L<FFI::Platypus> as the first argument in order to use its type
-aliases.  Alternatively you may provide constructor arguments that will
-be passed to the internal platypus instance.  Thus this is the same:
-
- my $ffi = FFI::Platypus->new( lang => 'Rust', api => 2 );
- record_layout_1( $ffi, ... );
- # same as:
- record_layout_1( [ lang => 'Rust' ], ... );
-
-and this is the same:
-
- my $ffi = FFI::Platypus->new( api => 2 );
- record_layout_1( $ffi, ... );
- # same as:
- record_layout_1( ... );
-
-Then you provide members as type/name pairs.
-
-For each member you declare, C<record_layout_1> will create an accessor
-which can be used to read and write its value. For example imagine a
-class C<Foo>:
-
- package Foo;
- 
- use FFI::Platypus::Record;
- 
- record_layout_1(
-   int          => 'bar',  #  int bar;
-   'string(10)' => 'baz',  #  char baz[10];
- );
-
-You can get and set its fields with like named C<bar> and C<baz>
-accessors:
-
- my $foo = Foo->new;
- 
- $foo->bar(22);
- my $value = $foo->bar;
- 
- $foo->baz("grimlock\0\0"); # should be 10 characters long
- my $string_value = $foo->baz; # includes the trailing \0\0
-
-You can also pass initial values in to the constructor, either passing
-as a list of key value pairs or by passing a hash reference:
-
- $foo = Foo->new(
-   bar => 22,
-   baz => "grimlock\0\0",
- );
- 
- # same as:
- 
- $foo = Foo->new( {
-   bar => 22,
-   baz => "grimlock\0\0",
- } );
-
-If there are members of a record that you need to account for in terms
-of size and alignment, but do not want to have an accessor for, you can
-use C<:> as a place holder for its name:
-
- record_layout_1(
-   'int'        => ':',
-   'string(10)' => 'baz',
- );
-
-=head3 strings
-
-So far I've shown fixed length strings.  These are declared with the
-word C<string> followed by the length of the string in parentheticals.
-Fixed length strings are included inside the record itself and do not
-need to be allocated or deallocated separately from the record.
-Variable length strings must be allocated on the heap, and thus require
-a sense of "ownership", that is whomever allocates variable length
-strings should be responsible for also free'ing them.  To handle this,
-you can add a C<ro> or C<rw> trait to a string field.  The default is
-C<ro>, means that you can get, but not set its value:
-
- package Foo;
- 
- record_layout_1(
-   'string ro' => 'bar',  # same type as 'string' and 'string_ro'
- );
- 
- package main;
- 
- my $foo = Foo->new;
- 
- my $string = $foo->bar;  # GOOD
- $foo->bar("starscream"); # BAD
-
-If you specify a field is C<rw>, then you can set its value:
-
- package Foo;
- 
- record_layout_1(
-   'string rw' => 'bar',  # same type as 'string_rw'
- );
- 
- package main;
- 
- my $foo = Foo->new;
- 
- my $string = $foo->bar;  # GOOD
- $foo->bar("starscream"); # GOOD
-
-Any string value that is pointed to by the record will be free'd when it
-falls out of scope, so you must be very careful that any C<string rw>
-fields are not set or modified by C code.  You should also take care not
-to copy any record that has a C<rw> string in it because its values will
-be free'd twice!
-
- use Clone qw( clone );
- 
- my $foo2 = clone $foo;  # BAD  bar will be free'd twice
-
-=head3 arrays
-
-Arrays of integer, floating points and opaque pointers are supported.
-
- package Foo;
- 
- record_layout_1(
-   'int[10]' => 'bar',
- );
- 
- my $foo = Foo->new;
- 
- $foo->bar([1,2,3,4,5,6,7,8,9,10]); # sets the values for the array
- my $list = $foo->bar;  # returns a list reference
- 
- $foo->bar(5, -6); # sets the 5th element in the array to -6
- my $item = $foo->bar(5); gets the 5th element in the array
-
-=head2 record_layout
-
- record_layout($ffi, $type => $name, ... );
- record_layout(\@ffi_args, $type => $name, ... );
- record_layout($type => $name, ... );
-
-This function works like C<record_layout> except that
-C<api =E<gt> 0> is used instead of C<api =E<gt> 1>.
-All new code should use C<record_layout_1> instead.
-
-=head1 CAVEATS
-
-These useful features (and probably more) are missing, and unlikely to be added.
-
-=over 4
-
-=item Unions
-
-=item Nested records
-
-=back
-
-If you need these features, consider using L<FFI::C> instead.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<FFI::Platypus>
-
-The main platypus documentation.
-
-=item L<FFI::C>
-
-Another interface for constructing structured data.  It includes support for
-C<union> and array types (which this module does not), but lacks support for
-passing records by-value.
-
-=item L<FFI::Platypus::Record::TieArray>
-
-Tied array interface for record array members.
-
-=item L<Convert::Binary::C>
-
-Another method for constructing and dissecting structured data records.
-
-=item L<pack and unpack|perlpacktut>
-
-Built-in Perl functions for constructing and dissecting structured data
-records.
-
-=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

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

@@ -1,122 +0,0 @@
-package FFI::Platypus::ShareConfig;
-
-use strict;
-use warnings;
-use 5.008004;
-use File::Spec;
-
-our $VERSION = '2.09'; # VERSION
-
-sub dist_dir ($)
-{
-  my($dist_name) = @_;
-
-  my @pm = split /-/, $dist_name;
-  $pm[-1] .= ".pm";
-
-  foreach my $inc (@INC)
-  {
-    if(-f File::Spec->catfile($inc, @pm))
-    {
-      my $share = File::Spec->catdir($inc, qw( auto share dist ), $dist_name );
-      if(-d $share)
-      {
-        return File::Spec->rel2abs($share);
-      }
-      last;
-    }
-  }
-  Carp::croak("unable to find dist share directory for $dist_name");
-}
-
-sub get
-{
-  my(undef, $name) = @_;
-  my $config;
-
-  unless($config)
-  {
-    my $fn = File::Spec->catfile(dist_dir('FFI-Platypus'), 'config.pl');
-    $fn = File::Spec->rel2abs($fn) unless File::Spec->file_name_is_absolute($fn);
-    local $@;
-    unless($config = do $fn)
-    {
-      die "couldn't parse configuration $fn $@" if $@;
-      die "couldn't do $fn $!"                  if $!;
-      die "bad or missing config file $fn";
-    };
-  }
-
-  defined $name ? $config->{$name} : $config;
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-FFI::Platypus::ShareConfig
-
-=head1 VERSION
-
-version 2.09
-
-=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