CurtTilmes

Day 11 -- Packaging with Libarchive

Distributing physical gifts involves wrapping them up into packages, but suppose you want to distribute digital gifts. How can you use Raku to help you wrap them up? Enter Libarchive!

Simple wrapping files into a package

Let's wrap up just two files, myfile1 and myfile2 into a single package.zip file. (Libarchive just as easily creates tar files, cpio, rar, even iso9660 images for cds or dvds.)

CurtTilmes

use Redis::Async;

my $r = Redis::Async.new("localhost:6379", :0timeout);

sub xread(*@streams, Int :$timeout = 0, Bool :$add-stream, Bool :$add-id)
{
    supply {
        my %streams = @streams.map: * => '$';
        loop {
            with $r.XREAD('block', $timeout, 'streams',

CurtTilmes

use NativeCall;

class foo is repr('CStruct')
{
    has int32 $.a is rw;
    has int64 $.b is rw;
}

sub calloc(size_t, size_t --> Pointer) is native {}
sub free(Pointer) is native {}

CurtTilmes

class AnotherTestClass
{
    has Str @.something;
}

CurtTilmes

sub myfunc(% (:%book (Str:D :$title, Str:D :$author), Int :$count,
              :@tags ($first-tag, *@other-tags)) )
{...}

CurtTilmes

class Book {
    has $.title;
    has $.author;
    has $.count;
    has @.tags;
}

my @booklist =
    Book.new(title => 'A Christmas Carol',
             author => 'Charles Dickens',

CurtTilmes

for @itemlist -> % (:%book (Str:D :$title, Str:D :$author), Int :$count,
                    :@tags ($first-tag, *@other-tags))
{
    say "$title, $author, $count, @tags[], $first-tag, @other-tags[]"
}

CurtTilmes

use JSON::Fast;
my $item = from-json(q:to/END/);
    {
        "book" : {
            "title"  : "A Christmas Carol",
            "author" : "Charles Dickens"
        },
        "count" : 12,
        "tags" : [ "christmas", "santa"]
    }

CurtTilmes

sub myfunc(%h) {
    die "a must be an Int" unless %h<a> ~~ Int;
    die "b must be a Str"  unless %h<b> ~~ Str;
    die "c must be a Rat"  unless %h<c> ~~ Rat;

    my $a = %h<a>;
    my $b = %h<b>;
    my $c = %h<c>;
}

CurtTilmes

sub myfunc(%h) {
    die "a must be an Int" unless %h<a> ~~ Int;
    die "b must be a Str"  unless %h<b> ~~ Str;
    die "c must be a Rat"  unless %h<c> ~~ Rat;
}