mwgamera

#!/usr/bin/env perl
# 𐑕𐑹𐑑𐑦𐑙 𐑖𐑱𐑝𐑾𐑯 𐑕𐑑𐑮𐑦𐑙𐑟 𐑿𐑟𐑦𐑙 𐑞 ·𐑿𐑯𐑦𐑒𐑴𐑛 𐑒𐑩𐑤𐑱𐑖𐑩𐑯 𐑨𐑤𐑜𐑼𐑦𐑞𐑩𐑥 𐑥𐑪𐑡𐑵𐑤
# 𐑕𐑴 𐑞𐑑 𐑦𐑑 𐑒𐑨𐑯 𐑐𐑤𐑱 𐑯𐑲𐑕𐑤𐑦 𐑢𐑦𐑞 𐑥𐑦𐑒𐑕𐑑 𐑕𐑒𐑮𐑦𐑐𐑑𐑕 𐑯 𐑳𐑞𐑼 𐑑𐑱𐑤𐑼𐑦𐑙
# klg, Jul 2025
package Unicode::Collate::Shavian;
use strict;
use base 'Unicode::Collate';
use Carp;

our $version = Unicode::Collate->new->version;

mwgamera

#!/usr/bin/env perl
# klg, Mar 2021
use strict;
use utf8;
use open qw/:std :utf8/;

use constant PATH => <'~/lib/dict/readlex/kingsleyreadlexicon.tsv'>;

unless (@ARGV) {
  utf8::decode($0);

mwgamera

#!/usr/bin/env perl
# 𐑑𐑻𐑯 𐑖𐑱𐑝𐑾𐑯 𐑢𐑻𐑛𐑟 𐑳𐑐𐑕𐑲𐑛 𐑛𐑬𐑯
# klg, 𐑪𐑒𐑑 2024
use strict;
use utf8;
use open qw/:std :utf8/;
use Carp;
use Getopt::Std;

# 43-𐑤𐑧𐑑𐑼 𐑖𐑱𐑝𐑾𐑯 𐑨𐑤𐑓𐑩𐑚𐑧𐑑:

mwgamera

comment_char %
escape_char /

LC_IDENTIFICATION
title     "Shavian English locale"
source    ""
address   ""
contact   ""
email     "[email protected]"
tel       ""

mwgamera

#!/usr/bin/env python
# 𐑖𐑱𐑝𐑾𐑯 𐑦𐑟 𐑷𐑮𐑛𐑩𐑮𐑛 𐑮𐑪𐑙 𐑦𐑯 UCA, 𐑤𐑧𐑑𐑕 𐑓𐑦𐑒𐑕 𐑦𐑑
# klg, 𐑡𐑨𐑯 2022

"""
𐑞 𐑕𐑑𐑨𐑯𐑛𐑼𐑛 𐑨𐑤𐑓𐑩𐑚𐑧𐑑𐑦𐑒 𐑹𐑛𐑼 𐑝 𐑖𐑱𐑝𐑾𐑯 𐑨𐑟 𐑜𐑦𐑝𐑩𐑯
𐑨𐑑 𐑞 𐑧𐑯𐑛 𐑝 ‹𐑖𐑷-𐑕𐑒𐑮𐑦𐑐𐑑› 𐑯𐑳𐑥𐑚𐑼 8 𐑦𐑟:

  𐑐 𐑚 𐑑 𐑛 𐑒 𐑜 𐑓 𐑝 𐑔 𐑞 𐑕 𐑟 𐑖 𐑠 𐑗 𐑡 𐑘 𐑢 𐑙 𐑣
  𐑤 𐑮 𐑥 𐑯 𐑦 𐑰 𐑧 𐑱 𐑨 𐑲 𐑩 𐑳 𐑪 𐑴 𐑫 𐑵 𐑬 𐑶 𐑭 𐑷

mwgamera

#!/usr/bin/env perl
# klg, Nov 2021
use strict;
# POSIX cksum(1) uses CRC with the same polynomial
# as Zlib but MSB-first while Zlib uses it reversed
# and starts from ~0 instead of appending the length.
# So one can be computed in terms of the other by
# reversing bits appropriately.
use Compress::Zlib 'crc32';
use constant BUF_SIZE => 4096;

mwgamera

STARTFONT 2.1
COMMENT Shavian alphabet, necessarily bad; klg, Nov 2020
FONT -klg-TC14-Medium-R-Normal-shavian-14-140-72-72-C-80-ISO10646-1
SIZE 14 72 72
FONTBOUNDINGBOX 8 14 0 -2
STARTPROPERTIES 19
FOUNDRY "klg"
FAMILY_NAME "TC14"
WEIGHT_NAME "Medium"
SLANT "R"

mwgamera

#!/usr/bin/env ruby
# klg, Sep 2020
# https://xmpp.org/extensions/inbox/omemo-media-sharing.html
# frozen_string_literal: true

require 'openssl'
require 'net/http'

ARGV.each do |arg|
  uri = URI(arg)

mwgamera

#!/usr/bin/env ruby
# klg, Aug 2020
# frozen_string_literal: true

files = {}
Dir[File.join(Dir.home, '.{js,css}/?*.{js,css}')].each do |ent|
  sta = File.stat(ent) # not lstat
  files[[sta.dev, sta.ino]] ||= []
  files[[sta.dev, sta.ino]] << ent
end

mwgamera

#!/usr/bin/env perl
# Fix some JPG data in SWF file so that swfrender doesn't trip on it.
# klg, Apr 2020
use strict;
use warnings;
use IO::Compress::Deflate;
use IO::Uncompress::Inflate;

my $src = \*STDIN;
my $dst = \*STDOUT;