frodwith

"""
Urbit nouns with mug, jam, and cue.
"""

import mmh3
from bitstream import BitStream

def byte_length(i: int):
    """how many bytes to represent i?

frodwith

:-  %say
|=  [* ~ *]
:-  %noun
=<  ^-  (list @uv)
    %-  turn
    :_  mung
    ^-  (list *)
    :~  0
        42
        [0 0]

frodwith

?-  val
  {$thing *}  ...
  {$gizmo *}  ...
==

frodwith

use warnings;
use strict;

use DBI;

my $dbname = $ARGV[0] || die 'No database file name';
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbname");

my $games = $dbh->selectall_arrayref('SELECT * FROM t_gibo', { Slice => {} });

frodwith

#!/usr/bin/perl

use warnings;
use strict;

my %keys = ( esc => 53, tab => 48, space => 49);

my %mt = (m => 'command', 'o' => 'option', c => 'control', s => 'shift');
my @mods = @ARGV;
my $key = pop @mods;

frodwith

We have the opportunity now to rethink the way packages are done. The old
methods need to continue working, so we're going to maintain backwards
compatibility -- that is, we are going to support the old package format, etc.

New package system
---
- packages aren't going to be tied to WebGUI::Storage.
    - operates on directories, not tarballs (transport detail)
    - possibly support other transports, like gzipped tarballs

frodwith

import script pseudocode:
    find all sites on this server
    for each site:
        look in config file (see below for example)
        for each entry for this site:
            fetch package from 300dev/config.url
            import package under config.parent with the overwriteLatest flag 
            set according to config.overwrite (default yes)

frodwith

Encoding and utf8 in perl

A perl string is a logical sequence of characters.

encoding a perl string produces a sequence of octets. decoding a sequence of octets produces a perl string.

utf8::is_utf8 tells you whether the string is a sequence of logical characters (true) or a sequence of octets (false). You should not

frodwith

use warnings;
use strict;

use Getopt::Long;

my ($search, $sfilename);

GetOptions(
    'search=s'  => \$search,
    'servers=s' => \$sfilename,

frodwith

# vim:syntax=perl

# A PSGI app that listens for POSTs, runs an editor on the posted text,
# and returns the modified text as the response body.  Intended for use with
# Chrome extensions like TextAid and Edit With Emacs.  
#
# This app blocks, so you'll want to run it in a forking Plack server (like
# Starman).
#
# Requires: Plack