Pakku VS REA

Pakku is a package manager for the Raku Programming Language. Latest releases of Pakku are part of Pakku Celastrina version family. Celastrina name means elegant and beutiful, So I will take the opportunity to introduce how elegant IMO Pakku handles Raku distributions.

ava-1 is the new version of Pakku, it comes with improvements on stability and performance. Thanks to `CUR::Staging` Pakku now avoids double precompilation, that made it 2X faster than previous version. Also it's now supported on macOS (beta version) and Windows (beta version) beside Linux. Other featuers includes allowing tests to run asynchronously, install distributions without precompilation (the precompilation will happen at first loading of the modules) and many other small features.

#!/usr/bin/env raku use v6; use Archive::Libarchive; use Archive::Libarchive::Constants; use Identity::Utils; # What does this script do? # This script recursively searches for tarball files in Raku's REA repository # to find the newest tarball for each distribution. Next, the newest tarball for each # distribution is searched for any outdated file extensions, namely: # .t, .pm, .pm6 # How to run this script? # Clone of https://github.com/Raku/REA repository # Add this script to the top of the repo and execute it my $dir = 'archive'; my @dirs = $dir.IO; my %tarballs; my $count; while @dirs { my $d = @dirs.pop; for dir($d, test => { "$d/$_".IO.d && $_ ~~ $*SPEC.curupdir }) -> $path { my $newest = 0.Version; my $newest_file = ''; # find the newest tarball file for dir($path, test => { "$path/$_".IO.f } ) -> $file { next if !ver($file.Str); CONTROL { when CX::Warn { say $path; say $file; .resume }; } if ver($file.Str).Version > $newest { $newest = ver($file.Str).Version; $newest_file = $file; } } # search the tarball file's entries for old file extensions if $newest_file { # id any tarballs that can't be proceseed for whatever reason CONTROL { when CX::Warn { say $newest_file; .resume }; } my Archive::Libarchive $a .= new: operation => LibarchiveRead, file => $newest_file.Str; my Archive::Libarchive::Entry $entry .= new; while $a.next-header($entry) { $a.data-skip; my $path = $entry.pathname; next if $path.substr(*-1) eq '/'; next if $path !~~ / ( \.t || \.pm || \.pm6 ) $ / ; if %tarballs{$newest_file}:!exists && $entry.pathname ~~ / \.t $ / { %tarballs{$newest_file} = 1; } if %tarballs{$newest_file}:!exists && $entry.pathname ~~ / \.pm $ / { %tarballs{$newest_file} = 1; } if %tarballs{$newest_file}:!exists && $entry.pathname ~~ / \.pm6 $ / { %tarballs{$newest_file} = 1; } } $a.close; } @dirs.push: $path; } } .say for %tarballs.keys.sort; my $t; my $pm; my $pm6; for %tarballs.keys -> $k { $t++ if %tarballs{$k}; $pm++ if %tarballs{$k}; $pm6++ if %tarballs{$k}; } say "t: $t"; say "pm: $pm"; say "pm6: $pm6";

Thanks to REA which has all META information and the archives of the distributions, a minimal online recommendation manager running on `recman.pakku.org` uses REA's META info and can answer Pakku's requests for recommendation or search for a module.