Songmu

<?php
require_once('MDB2.php');

/* 
MDB2PLUS is wrapper class of MDB2.
Its interface is same as MDB2.
(Some method doesn't work(eg. MDB2::isResult). But, these are
 not too necessary.)

When occurring error, it not returns PEAR::Error object, 

Songmu

//祝日を求めるjavascript 昔書いたやつ
// Ported From Calendar::Japanese::Holiday.pm

"use strict"

var FurikaeStr = '振替休日';
var staticHolidays = [
// 4/29 みどりの日 : 昭和の日 変更
// みどりの日は5/4に移行
  {

Songmu

/* Dateをがんばって継承してみようとしたメモ
 * based on:
 *   Prototypal Inheritance by Douglas Crockford
 *   http://javascript.crockford.com/prototypal.html
 */
//Dateを拡張していろいろはまったので
//http://nanto.asablo.jp/blog/2005/10/24/118564
//http://nanto.asablo.jp/blog/2006/10/18/566348
//http://groups.google.co.jp/group/comp.lang.javascript/browse_thread/thread/7ef79470e8fba7a5/e8fb95e4a7693e47
//http://d.hatena.ne.jp/send/20070622/p1

Songmu

#language="PerlScript";
our $Window;
my $document = $Window->document;

use strict;
use warnings;
use utf8;
use Data::Dumper;

use YAML::Syck;

Songmu

#language="PerlScript"
our $Window;

use strict;
use warnings;
use utf8;

use YAML::Syck;
use Encode;
use Net::Twitter;

Songmu

#!/usr/bin/perl
use strict;
use warnings;
use GD::Barcode::NW7;
use Math::CheckDigits;

my $bcd = qq{123432456};

my $cd = Math::CheckDigits->new(
    modulus => '10',

Songmu

#!/usr/bin/perl
use String::Random;
use utf8;
use Encode qw/ encode decode /;

my $rand_maker = String::Random->new;
print encode('cp932', String::Random->rand_maker->randregex('[ーァ-ヶ]{3,6}')) ."\n" for 1..5;

Songmu

diff -ur ./src/Makefile.am ../swfmill-0.3.1.patch/src/Makefile.am
--- ./src/Makefile.am	2010-07-15 09:30:13.000000000 +0900
+++ ../swfmill-0.3.1.patch/src/Makefile.am	2011-06-02 19:46:54.000000000 +0900
@@ -74,7 +74,7 @@
 
 $(SIMPLE_DIALECT_GENERATEDSOURCES): $(SIMPLE_DIALECT_GENERATEDSOURCES:.cpp=.xml) xslt/assemble.xsl $(SIMPLE_DIALECT_XSLTS)
 	xsltproc $(srcdir)/xslt/assemble.xsl $< > $(@:.cpp=.xsl)
-	echo "#include \"xslt/xslt.h\"" > $@
+	echo "#include \"/usr/include/libxslt/xslt.h\"" > $@
 	echo "const char *xslt_simple = " >> $@

Songmu

[\x00-\x09\x0B\x0C\x0E-\x1F\x7F]

Songmu

#!/bin/bash

# /etc/init.d/stone として保存する。
# 設定ファイルは /etc/stone.conf
# chkconfig: 345 98 02
# description: stone

. /etc/rc.d/init.d/functions

if [ -f /etc/sysconfig/stone ]; then