larryv

#!/usr/bin/env python3

import itertools
import subprocess


def main():

    fmt_pieces = ('', '.', '{:01d}', '{:01d}.', '{:02d}', '{:02d}.')

larryv

on foldLeft given operator:op, initial:z, sequence:xs
	(*
		AppleScript handlers can't call handlers that are passed
		as parameters because the enclosing script object
		doesn't recognize the parameter name as a handler. Work
		around this by doing the computation inside an embedded
		script object. (See Neuberg, p. 150.)
	*)
	repeat until xs = {}
		set z to op's f(z, item 1 of xs)

larryv

port -q info --index --line --version --revision --name 'p5-*' | awk '
    BEGIN {
        blacklist["p5-app-ack"] = ""
        blacklist["p5-catalyst-plugin-unicode-encoding"] = ""
        blacklist["p5-class-mop"] = ""
        blacklist["p5-email-mime-modifier"] = ""
        blacklist["p5-graveyard"] = ""
        blacklist["p5-test-tester"] = ""
        blacklist["p5-test-use-ok"] = ""
    }

larryv

# Read a stream of newline-terminated paths from standard input and
# write the corresponding rsync include patterns to standard output.
#
# In the input, directory paths -- and ONLY directory paths -- must end
# with a slash. All paths are treated as literal strings.
#
# The pattern generation assumes that directories' contents are to be
# copied recursively. It also assumes that "rsync --recursive
# --delete-excluded" will use a final "*" pattern to exclude all
# non-included files. Thus, all ancestors require include patterns too,

larryv

#include <errno.h>
#include <stdarg.h>
#include <stdio.h>

void die(const char *fmt, ...)
{
    va_list ap;
    va_start(ap, fmt);

    /* This buffer length is arbitrary. */

larryv

#!/bin/sh

ykpersonalize -S 06050a0e08170b0f1c11180d16090c1986858a8e88978b8f9c91988d96898c99271e1f202122232425262b9e28

larryv

Keybase proof

I hereby claim:

• I am larryv on github.
• I am larryv (https://keybase.io/larryv) on keybase.
• I have a public key ASA2PbEQSvMzBp7j89WM-YZemJrpkz0EfZj87XVnLNxNVQo

To claim this, I am signing this object:

larryv

proc perl5_convert_version {vers} {
    if {[string index $vers 0] eq "v"} {
        set start 1
    } else {
        set start 0
    }
    set index [string first . $vers]
    set other_dot [string first . [string range $vers [expr {$index + 1}] end]]
    if {$index == -1 || $other_dot != -1} {
        return [string range $vers $start end]

larryv

parseopt() {
    [[ -n $1 ]] || return 1

    # Use "--options +" to prevent arguments from being rearranged.
    local -r opts=$(getopt --name "$0" --options + --longoptions "$1" -- "${@:2}")
    case $((10#$?)) in
        1)
            # getopt(1) will print an error first.
            echo >&2 "Try \`$0 --help' for more information."
            return 2

larryv

-----BEGIN PGP PUBLIC KEY BLOCK-----

mJMEV0+CqxMFK4EEACMEIwQAPhnLUWIaQZlMynz9JvYmUrcC8EJ/r9TK7RuKvGB9
MZAKGdEFEk6rVWRHZ26G679kxkor5iRon7RUq4D3C9JnjagAdLGO/bZurLR5nD8Z
A8Pl7BkzHT3igyxE/U5CMD1T5LJCmvNYWp6n56wB7PK0rbtVSxsh3tmnpHyfTlQR
zv+lvmu0Ikxhd3JlbmNlIFZlbMOhenF1ZXogPHZxQGxhcnJ5di5tZT6I5QQTEwoA
SgIbAQwLCQ0KCAwHCwMEAgEHFQoJCAsDAgUWAAMCAQIeAQIXgAIZARYhBFuiwikL
JAhYKVJJQqsw1mQfmvDjBQJZcDuoBQkD+LH9AAoJEKsw1mQfmvDj6CgCCQFHJ9JV
GfDsafIjIL/lESBEDCyt5Us7yqfRJAYC+aPXPN/ySySmAs/lIB5OpXEguDzk5ZJ8
6mWcuoD03XL1KWX9lwIGJuNlC/eYx+2g2cmHBg5v5husWKHClhAPSLxqOYXu7jEU