hadashiA

(defun html-quote (str)
  (replace-regexp-in-string "[&<>]"
                            (lambda (m)
                              (or (cdr (assq (string-to-char m)
                                             '((?& . "&amp;")
                                               (?< . "&lt;")
                                               (?> . "&gt;"))))
                                  m))
                            str))

hadashiA

<?php

class IRCNotifierError extends Exception {}

class IRCNotifier {
    private $_socket;

    function __construct($url, $options) {
        $url_info = parse_url($url);
        if ($url_info === false) {

hadashiA

(defmacro do-with-val-macro (val &rest body)
  `(let ((,val 1))
     ,@body)
  )

(defmacro do-with-val-macro2 (spec)
  `(let ((,(car spec) 1))
     ,@(cdr spec))
  )

hadashiA

#!/Usr/bin/env ruby
# -*- coding: utf-8 -*-

basename = ARGV.shift
in_list = ARGV.map{|num| "#{basename}_#{num}.png" }.join(' ')
`convert -delay 17.5 -loop 0 -dispose previous #{in_list} #{basename}.gif`

hadashiA

#!/Usr/bin/env ruby
# -*- coding: utf-8 -*-

GYO   = 20
RETSU = 20

num_letters = num_gyo = num_retsu = 0

open(ARGV.last) do |io|
  io.each_char do |c|

hadashiA

convert -delay 0.5 -loop 0 -dispose previous tanuki*.png tanuki_anim.gif