initial try

Author: genio

.clang-format

@@ -0,0 +1,5 @@
+---
+Language: Cpp
+BasedOnStyle: Mozilla
+IndentWidth: 4
+SortIncludes: false

.gitignore

@@ -0,0 +1,29 @@
+Build
+/MANIFEST.SKIP.bak
+/MANIFEST.bak
+META.YML
+MYMETA*
+Makefile
+Makefile.old
+SSL
+blib
+blib/
+.vscode/
+_vscode/
+.build/
+_build/
+cover_db/
+/_eumm/
+/UV*
+UV-*/
+UV-*.tar.gz
+.perl-version
+pm_to_blib
+*.sw*
+*.tar.gz
+xx*
+*.bs
+*.o
+lib/*.c
+lib/UV/*.c
+.tmp/

.perltidyrc

@@ -0,0 +1,13 @@
+-pbp     # Start with Perl Best Practices
+-nst     # undo -st from -pbp, to allow for command line use
+-w       # Show all warnings
+-iob     # Ignore old breakpoints
+-l=80    # 80 characters per line
+-mbl=2   # No more than 2 blank lines
+-i=4     # Indentation is 4 columns
+-ci=4    # Continuation indentation is 4 columns
+-vt=0    # Less vertical tightness
+-pt=2    # High parenthesis tightness
+-bt=2    # High brace tightness
+-sbt=2   # High square bracket tightness
+-isbc    # Don't indent comments without leading space

cpanfile

@@ -0,0 +1,23 @@
+on 'runtime' => sub {
+    requires 'strict';
+    requires 'warnings';
+    requires 'feature';
+    requires 'utf8';
+    requires 'Alien::Base::Wrapper';
+    requires 'Alien::libuv' => '1.013';
+    requires 'Carp';
+    requires 'Cwd';
+    requires 'Data::Dumper';
+    requires 'Exporter' => '5.57';
+    requires 'FFI::Platypus' => '1.00';
+    requires 'File::Basename';
+    requires 'File::ShareDir';
+    requires 'File::Spec';
+    requires 'Path::Tiny';
+    requires 'Ref::Util';
+    requires 'Sub::Util';
+};
+
+on 'test' => sub {
+    requires 'Test::More' => '0.88';
+};

dist.ini

@@ -0,0 +1,56 @@
+
+name    = Sodium-FFI
+author  = Chase Whitener <[email protected]>
+license = Perl_5
+copyright_holder = Chase Whitener <[email protected]>
+copyright_year   = 2020
+
+[ReadmeAnyFromPod / Markdown_Readme]
+type = gfm
+source_filename = lib/Sodium/FFI.pm
+filename = README.md
+location = root
+
+[Regenerate::AfterReleasers]
+plugin = Markdown_Readme
+
+[@Starter::Git]
+revision = 4
+managed_versions = 1
+installer = MakeMaker::Awesome
+; MakeMaker::Awesome.WriteMakefile_arg[0] = DEFINE => "-DMARKED_SECTION"
+; MakeMaker::Awesome.WriteMakefile_arg[1] = H => [ qw(hparser.h hctype.h tokenpos.h pfunc.h hparser.c util.c) ]
+RewriteVersion.global = 1
+NextRelease.format = %-9v %{yyyy-MM-dd}d
+regenerate = Makefile.PL
+regenerate = META.json
+regenerate = README.md
+regenerate = LICENSE
+regenerate = t/00-report-prereqs.t
+Git::Check.allow_dirty = META.json
+
+[Prereqs::FromCPANfile]
+
+[MinimumPerl]
+perl = 5.008
+
+[Git::Contributors]
+[GithubMeta]
+issues  = 1
+user    = genio
+
+[CheckChangeLog]
+[CheckChangesHasContent]
+[Test::ChangesHasContent]
+
+[Test::Kwalitee]
+skiptest = no_symlinks
+[Test::Version]
+filename_match = qr/FFI\.pm$/
+[Test::Pod::Coverage::Configurable]
+trustme = Sodium::FFI
+
+[Test::PodSpelling]
+wordlist = Pod::Wordlist
+spell_cmd = aspell list
+stopword = CPAN

ffi/constants.c

@@ -0,0 +1,17 @@
+#include <ffi_platypus_bundle.h>
+#include <string.h>
+#include <stdint.h>
+#include <sodium.h>
+
+#define _str(name) c->set_str(#name, name)
+#define _sint(name) c->set_sint(#name, name)
+
+void
+ffi_pl_bundle_constant(const char* package, ffi_platypus_constant_t* c)
+{
+    _str(SODIUM_VERSION_STRING);
+
+    _sint(SODIUM_LIBRARY_VERSION_MAJOR);
+    _sint(SODIUM_LIBRARY_VERSION_MINOR);
+    _sint(SODIUM_LIBRARY_MINIMAL);
+}

lib/Sodium/FFI.pm

@@ -0,0 +1,85 @@
+package Sodium::FFI;
+use strict;
+use warnings;
+
+our $VERSION = '0.001';
+
+use Carp qw(croak);
+use Data::Dumper::Concise qw(Dumper);
+use Exporter qw(import);
+
+use Alien::Sodium;
+use FFI::Platypus;
+use Path::Tiny qw(path);
+use Sub::Util qw(set_subname);
+
+my $ffi;
+BEGIN {
+    $ffi = FFI::Platypus->new(api => 1);
+    $ffi->lib(Alien::Sodium->dynamic_libs);
+   # $ffi->bundle();
+}
+
+# Protect subclasses using AUTOLOAD
+sub DESTROY { }
+our @EXPORT_OK = qw();
+
+# All of these functions were shipped with libuv v1.0 and don't
+# need to be gated by version.
+$ffi->attach('sodium_version_string' => [] => 'string');
+$ffi->attach('sodium_library_version_major' => [] => 'int');
+$ffi->attach('sodium_library_version_minor' => [] => 'int');
+$ffi->attach('sodium_library_minimal' => [] => 'int');
+
+our %function = (
+);
+
+our %maybe_function = (
+);
+
+foreach my $func (keys %function) {
+    $ffi->attach($func, @{$function{$func}});
+}
+
+foreach my $func (keys %maybe_function) {
+    my $href = $maybe_function{$func};
+    if (_version_or_better(@{$href->{added}})) {
+        $ffi->attach($func, @{$href->{ffi}});
+    }
+    else {
+        # monkey patch in the subref
+        no strict 'refs';
+        no warnings 'redefine';
+        my $pkg = __PACKAGE__;
+        *{"${pkg}::$func"} = set_subname("${pkg}::$func", $href->{fallback});
+    }
+}
+
+
+sub _version_or_better {
+    my ($maj, $min, $pat) = @_;
+    $maj //= 0;
+    $min //= 0;
+    $pat //= 0;
+    foreach my $partial ($maj, $min, $pat) {
+        if ($partial =~ /[^0-9]/) {
+            croak("_version_or_better requires 1 - 3 integers representing major, minor and patch numbers");
+        }
+    }
+    # if no number was passed in, then the current version is higher
+    return 1 unless ($maj || $min || $pat);
+
+
+    return 0 if Sodium::FFI->UV_VERSION_MAJOR < $maj; # full version behind of requested
+    return 1 if Sodium::FFI->UV_VERSION_MAJOR > $maj; # full version ahead of requested
+    # now we should be matching major versions
+    return 1 unless $min; # if we were only given major, move on
+    return 0 if Sodium::FFI->UV_VERSION_MINOR < $min; # same major, lower minor
+    return 1 if Sodium::FFI->UV_VERSION_MINOR > $min; # same major, higher minor
+    # now we should be matching major and minor, check patch
+    return 1 unless $pat; # move on if we were given maj, min only
+    return 0 if Sodium::FFI->UV_VERSION_PATCH < $pat;
+    return 1;
+}
+
+1;

t/10-versions.t

@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Test::More;
+use Sodium::FFI ();
+
+my $ver_string = Sodium::FFI::sodium_version_string();
+my $ver_major = Sodium::FFI::sodium_library_version_major();
+my $ver_minor = Sodium::FFI::sodium_library_version_minor();
+ok($ver_string, "version string: $ver_string");
+ok($ver_major, "version major: $ver_major");
+ok($ver_minor, "version minor: $ver_minor");
+# ok(Sodium::FFI::sodium_library_minimal(), "version minimal");
+# ok(defined Sodium::FFI::UV_VERSION_MAJOR, "VERSION MAJOR: ". Sodium::FFI::UV_VERSION_MAJOR);
+# ok(defined Sodium::FFI::UV_VERSION_MINOR, "VERSION MINOR: ". Sodium::FFI::UV_VERSION_MINOR);
+# ok(defined Sodium::FFI::UV_VERSION_PATCH, "VERSION PATCH: ". Sodium::FFI::UV_VERSION_PATCH);
+# ok(defined Sodium::FFI::UV_VERSION_HEX, "VERSION HEX: ". Sodium::FFI::UV_VERSION_HEX);
+# ok(defined Sodium::FFI::UV_VERSION_SUFFIX, "VERSION SUFFIX: ". Sodium::FFI::UV_VERSION_SUFFIX);
+# ok(defined Sodium::FFI::UV_VERSION_IS_RELEASE, "VERSION IS RELEASE: ". Sodium::FFI::UV_VERSION_IS_RELEASE);
+
+done_testing;