japhb

--- ansi_color.pl~  2011-05-23 16:41:43.000000000 -0700
+++ ansi_color.pl	2013-01-21 15:41:54.497720468 -0800
@@ -6,15 +6,17 @@
 
 register(
 	"ANSI Color Converter",
-	"0.000001",
+	"0.000002",
 	"Attempt to convert ANSI color codes",
 );

japhb

use v6;

#= Composed into an Attribute subclass that can serialize attribute definitions to Perl source                                                                                                                       
role PerlableAttribute {  
    method traits_perl() {
        my $traits = '';
        $traits ~= ' is rw'         if self.rw;
        $traits ~= ' is box_target' if self.box_target;
        $traits;
    }

japhb

One Perl 6 3D Math Lib to Rule Them All

There are currently several different 3D-related math libraries for Perl6: Math::Vector, Math::Quaternion, etc. They don't interoperate smoothly, have different API designs, and aren't designed with efficiency/performance as a primary goal.

I propose we create a new 3D/graphics-oriented math library with the following design parameters.

Design Parameters

• Build sugary syntax on top of efficient underlying implementation, allowing the library user to choose their tradeoff point

japhb

#!/usr/bin/perl

my $share     = '/YOUR/SHARE/ROOT/HERE';
my $share_bin = "$share/perl6/bin";

my ($vms, $ver) = @ARGV;
my @vms       = split /\s*,\s*/ => $vms || '';
@vms or die "Must specify one or more VMs in path priority order (e.g. 'jvm,parrot') as the first argument.\n";

my @vm_bins;

japhb

Concurrency

• General resiliency under heavy task load, when tasks > all(cores, threads)
  • Correct results
  • No crashes
  • No "cliff-like" performance as overload point is passed
    • Note: better to OOM than GC thrash
    • Similarly better to serve some tasks well than all badly via e.g. context switch storms
• Idle/block on inputs without burning CPU
• (and/or use idle time for something productive like GC)

japhb

1. We aim to be actively welcoming, friendly, respectful, and helpful to everyone interested in Perl 6 and our shared community.
2. We don't discriminate on any basis other than ability to be a kind, positive member of our community.
3. Our standard of behavior is "awesome". If your behavior is LTA (Less Than Awesome), we will call you on it.
4. There is no form of negative behavior that will impress us or gain you favor in our community.
5. We try to hug trolls where possible, but if that doesn't work, we eject them. The health and happiness of our community comes first.

japhb

#!/usr/bin/env perl6

sub MAIN($before, $after) {
    my $pct = 100 * ($before - $after) / $before;
    say abs($pct).fmt: "%9.2f%% {$pct < 0 ?? "more" !! "less"} time";
    say $pct < 0 ?? ($after / $before).fmt("%9.2f  times slower")
                 !! ($before / $after).fmt("%9.2f  times faster");
}

japhb

#!/bin/bash

set -e -x

mkdir build-root
cd build-root

git clone https://github.com/rakudo/rakudo.git
git clone https://github.com/ugexe/zef.git

japhb

FROM rakudo-star:2020.10
WORKDIR /app
COPY . .

# This is the bug trigger; comment out and no BUG
USER raku

RUN raku -c -I. -MDockertest -e ''

japhb

#!/usr/bin/env raku

use sigpipe;
use Text::MiscUtils::Layout;


sub show-cp($cp) {
    my $char   = $cp.chr;
    my $width  = duospace-width($char);
    my $spacer = ' ' x (2 - $width);