dpk

# remove sendmail from a FreeBSD system

echo 'sendmail_enable="NO"' >> /etc/rc.conf
chmod 0 /usr/libexec/sendmail/sendmail
chmod 0 /usr/sbin/sendmail
mv /usr/libexec/sendmail/sendmail /usr/libexec/sendmail/sendmail.bak
mv /usr/sbin/sendmail /usr/sbin/sendmail.bak

dpk

#include <stdlib.h>

unsigned long utf8_strlen(unsigned char *s) {
    unsigned long len = 0;
    s--;
    while (*++s) {
        len += !(*s >> 7) || (*s >> 6);
    }
    return len;
}

dpk

PyICU cheat sheet

Because you can't get the docs.

Transliteration

Create a transliterator:

greek2latin = icu.Transliterator.createInstance('Greek-Latin')

dpk

#!/usr/bin/perl -w

# clipcat: the misleadingly-named textClipping outputter for Mac OS X.
# you'll need MacPerl and DeRez. I think the latter ships with OS X,
# but at least comes with the dev tools (which by definition you have
# if you installed MacPerl)
# -------------------------
# by David Kendal (http://dpk.org.uk / @dpkendal)
# bug reports & comments to the address on http://dpk.org.uk/contact/

dpk

diff -rNu mk.old/libbio/Make.Darwin-x86_64 mk.new/libbio/Make.Darwin-x86_64
--- mk.old/libbio/Make.Darwin-x86_64	1970-01-01 01:00:00.000000000 +0100
+++ mk.new/libbio/Make.Darwin-x86_64	2017-12-18 11:33:22.000000000 +0100
@@ -0,0 +1,7 @@
+CC=gcc
+CFLAGS+=-Wall -Wno-missing-braces -Wno-parentheses -Wno-switch -O2 -g -c -I. -I${PREFIX}/include
+O=o
+AR=ar
+ARFLAGS=rvc
+NAN=nan64.$O

dpk

import os
import os.path
import fcntl
import ctypes
from ctypes.util import find_library
import re

libc = None
F_CLOSEM = None
strategy = None

dpk

(define L (lambda (a) (lambda (b) (lambda (c) (lambda (d) (lambda (e) (lambda (f) (lambda (g) (lambda (h) (lambda (i) (lambda (j) (lambda (k) (lambda (l) (lambda (m) (lambda (n) (lambda (o) (lambda (q) (lambda (p) (lambda (s) (lambda (t) (lambda (u) (lambda (v) (lambda (w) (lambda (x) (lambda (y) (lambda (z) (lambda (r) (r ((((((((((((((((((((((((((t h) i) s) i) s) a) f) i) x) e) d) p) o) i) n) t) c) o) m) b) i) n) a) t) o) r)))))))))))))))))))))))))))))

(define Yk (((((((((((((((((((((((((L L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L) L))

(define (factorial c)
  (lambda (n)
     (if (= n 0)
           1
           (* n (c (- n 1))))))

dpk

import unicodedata as u

def itergraphemes(str):
  def modifierp(char): return u.category(char)[0] == 'M'
  start = 0
  for end, char in enumerate(str):
    if not modifierp(char) and not start == end:
      yield str[start:end]
      start = end
  yield str[start:]

dpk

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                xmlns:isbn="tag:nonceword.org,2016:isbn">
   <xsl:import href="util.xslt"/>
   <xsl:import href="unformat.xslt"/>
   <xsl:function name="isbn:format-13">
      <xsl:param name="isbn"/>
      <xsl:value-of select="string(isbn:format-13-internal($isbn))"/>
   </xsl:function>
   <xsl:function name="isbn:format-13-internal">

dpk

<?xml version='1.0' encoding='utf-8'?>
<!DOCTYPE ISBNRangeMessage [
<!ELEMENT ISBNRangeMessage (MessageSource?, MessageSerialNumber?, MessageDate, EAN.UCCPrefixes, RegistrationGroups) >
<!ELEMENT MessageSource (#PCDATA) >
<!ELEMENT MessageSerialNumber (#PCDATA) >
<!ELEMENT MessageDate (#PCDATA) >
<!ELEMENT EAN.UCCPrefixes (EAN.UCC+) >
<!ELEMENT RegistrationGroups (Group+) >
<!ELEMENT EAN.UCC (Prefix, Agency, Rules) >
<!ELEMENT Group (Prefix, Agency, Rules) >