kosh04

#!/bin/sh
set -eu

# 指定したディレクトリ以下の elisp 行数を数えるスクリプト
usage="Usage: $0 DIRECTORY [IGNORE_PATTERN]"

DIR=${1?$usage}
IGNORE_PATTERN=${2-}

if [ -n "$IGNORE_PATTERN" ]; then

kosh04

// attach-console.c
// Usage1: > cl attach-console.c & attach-console.exe
// Usage2: $ gcc attach-console.c && ./a.exe

#define _WIN32_WINNT 0x0501

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <stdio.h>

kosh04

cookie.txt

kosh04

#!/bin/bash
# 標準入力を URL エンコードする
# NOTE: urldecode は urlencode のシンボリックリンクとする

urlencode() {
    # echo -n ${1-`cat`} | od -t x1 -A n | tr " " % | tr -d "\n"
    # perl -pe 's/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg'
    python -c 'import sys, urllib; print urllib.quote(sys.stdin.read()),'
    # php -r 'echo urlencode(file_get_contents("php://stdin"))."\n";'
}

kosh04

#!/bin/sh

curl -s http://www.jp.freebsd.org/www.FreeBSD.org/layout/images/beastie.png | pngtopnm | ppmtopgm | pgmtopbm | pbmtoascii -2x4
                                   ..
                                .d&9&'
                             .o$6H&'                        o\.
                           .+S$kM'                          ?&Rb.
                         _+S}R&H?                           `\&9Hb.
                        +Z$&&&H&D?.o/p1&S6H&&D#>\\           !k&HHH,
                       |Z$Z&&16&FFR/&&Sk6kMS&9H&HM&b\         H&&&HM:

kosh04

audio tag

Your browser does not support the audio tag.

video tag

kosh04

/* $ gcc -Wall -g [-DDEBUG] curl_writefunction.c -lcurl */
/* $ ./a.out [URL] */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <curl/curl.h>

#define BUFFER_MAX 0x10000
size_t write_length = 0;

kosh04

# Build Emacs Recipe

usage = Usage: make -f $(notdir $(MAKEFILE_LIST)) [EMACS=${EMACS}] [PREFIX=${PREFIX}]

PREFIX?=${HOME}/.local

EMACS?=emacs-26.3
EMACS_ARCHIVE=${EMACS}.tar.xz
EMACS_ARCHIVE_URL=http://ftpmirror.gnu.org/emacs/${EMACS_ARCHIVE}

kosh04

;FFMETADATA1
title=上野さんは不器用

[CHAPTER]
TIMEBASE=1/1000
START=0
END=686200
title=第1話 実験その1「ロッカくん」／実験その2「クマタンダー2号」

[CHAPTER]

kosh04

#!/usr/bin/env newlisp
;; Wake-on-LAN

(define (usage)
  (println "Usage: wol.lsp <IP address> <MAC address>"))

;; Convert MAC address to List format.
;; e.g."EE:EE:EE:00:00:01" to (0xEE 0xEE 0xEE 0x00 0x00 0x01)
(define (mac2list mac)
  ;; XX-XX-XX-XX-XX-XX