library searching

LibraryFind.pm6

use LibraryMake;
use LibraryCheck;

sub find-library( Str:D $library, :$version ) {
  my $so = get-vars('')<SO>;
  return $library if $so eq '.dll';  # Windows?
  return $library ~ $so if library-exists( $library ~ $so );
  if $version.defined {
    return $library ~ $so ~ ".$version"
      if library-exists( $library ~ $so ~ ".$version");
  }
  fail "Could not find library for $library";
}

sub library { find-library('libfoo', '1') }

# ... is native(&library) ...
#
sub MAIN('test', $library, $version = Str) {
  say find-library($library, :$version);
}