32nd Diary

その名の示すとおり，内部でGeSHi*1を呼び出すというインチキっぷり． まぁ，真面目にハイライトさせるとなるとコンパイラと同じようなことしなくちゃだもんね．時間があればRubyだけでできないこともないけど，ボクにはその気力はないです．すでにある車輪は使おうということで．

さっそくせっさくのプラグインを使ってソースコードを載せておきますね． ええと，リテラルが複雑な部分が若干バグるけど，それはボクのせいではなく，GeSHiのせいです．表示の問題だけで，内容には影響ないので，気にしないことにします．（ぶ

# geshi.rb
#
# GeSHi Plugin for tDiary
#
# Copyright (c) 2006 TAKANO Mitsuhiro <tak at no32.tk>
#
# You can redistribute it and/or modify it under GPL2.
#
def geshi_parse(src, lang)
  src = src.gsub(/([\'\\])/, '\\\\\1')
  geshi = <<-"GESHI"
  <?php
  include('geshi/geshi.php');
 
  $source = '#{src}';
  rtrim($source);
  $language = '#{lang}';
  $path = 'geshi/geshi/';
 
  $geshi = new GeSHi($source, $language, $path);
  echo $geshi->parse_code();
  ?>
  GESHI
 
  IO.popen("/usr/bin/php", "r+") do |io|
    io.puts(geshi)
    io.close_write
    io.read
  end
end
 
def geshi(src = "", lang = '')
  geshi_parse(src.chomp, lang)
end

ご覧の通り，パイプでGeSHiを使っているので，CLI版のPHPが必要です．

この条件さえ満たしていれば，プラグインのインストールは簡単です． まず，GeSHiのアーカイブを解凍するとあらわれるgeshiディレクトリをindex.rbと同じディレクトリに移動させます． んで，上のソースコードを plugin ディレクトリ以下にgeshi.rbなどの名前で保存するだけ．

使い方も簡単で，ヒアドキュメントを用いて以下のように書くことができます．

{{geshi <<'SRC', 'bash'
i in 1 2 3; do
  echo $i
done
SRC
}}

実際の日記ではこんな風に色づけしてくれます．

i in 1 2 3; do
  echo $i
done

うーむ．久々に Lightweight Language の価値を実感しました． わずか30行しか書いていないのにソースコードのハイライトができちゃったよ． ちょっと「オレ様ってSUGEEEE」気分です．

パイプラインを使ったプラグインはいろいろなことに応用できそうですなぁ． 巷にあふれているhoge2htmlを使えばいろいろなものを埋め込むことができそうです．

それでは，みなさま，Enjoy Hilight!!

元ネタやいただいた反応など

• HsbtDiary - スーパーpre記法が欲しい!
• にっき
• YAA's personal log

実は以前から構想はしていたんですよね． 色つけるの欲しいなー，GeSHiでやればうまくいくかね？と． ただきっかけがなかったので放置していたという．．．

ううむ．pure Rubyな実装ではないので，残念ながらHikiDocなどに埋め込むことは難しいかもしれません． 同じようなプラグインをHiki向けにも書いてみようかな．

マルチディスプレイ USB2.0 ビデオカード サインはVGA 青箱 USB20SVGA

大学や会社でデュアルディスプレイの環境を使いたいなぁと思い購入．

Linuxで使えるのかが少しあやしい．．．

モンスターハンターポータブル PSP the Best

ベスト版を購入．

まだゲームの勝手が分からなくて面白さがわからない．

鉄拳 ダーク・リザレクション

初回購入の特典がまだあったので購入．

鉄拳は既知のゲームなのでさくさく遊んでます．

ただ，元がアーケードなだけに少し操作性に難があるなぁ．．．

ストリートファイターII完全攻略本 (完全攻略本シリーズ)(ファミリーコンピュータMagazine編集部)

古本屋にて10円で購入．

なんか懐かしくて買ってしまった．

この本は面白いのであとで別エントリを書こうと思う．

星新一

各100円

なりそこない王子 (新潮文庫)(星 新一)

ボンボンと悪夢 (新潮文庫)(星 新一)

どこかの事件 (新潮文庫)(星 新一)

まずは，以下のようなコードを ~/bin/cygexec.sh などとして保存します．

#!/bin/sh
 
PROG_1='firefox /cygdrive/c/Program Files/Mozilla Firefox/firefox.exe'
PROG_2='xyzzy /cygdrive/d/Tools/xyzzy/xyzzy.exe'
 
NUM=1
while :; do
  eval PROG_NUM=PROG_${NUM}
  eval PROG='$'${PROG_NUM}
  if [ -z "${PROG}" ]; then
    break
  else
    PROG_PATH=${PROG#`basename $0` }
    if [ "$PROG_PATH" != "$PROG" ]; then
      break
    fi
  fi
  NUM=$((${NUM}+1))
done
 
if [ ! -z "${PROG}" ]; then
  if [ $# -eq 1 ]; then
    exec "${PROG_PATH}" "$(cygpath -wa "$1")"
  else
    exec "${PROG_PATH}"
  fi
fi

んで， "ln -s ~/bin/cygexec.sh ~/bin/firefox" といったようにリンクを張れば準備完了． firefoxコマンドの第一引数を cygpath で処理してくれるはずです．

他のプログラムを追加したい場合は例中の xyzzy のように PROG_N の追加とシンボリックリンクの追加を行えばよし．

この件では起動時に引数をcygpathで処理していますが， 最後のif文の周辺でいろいろいじれば他の処理にも使えるはず．

そーいや， LinuxサーバHacks―プロが使うテクニック&ツール100選(ロブ フリッケンガー/Rob Flickenger/山口 晴広/イメージズアンドワーズ) でホスト名と同名のコマンドを作り，いきなりsshする方法を扱っていて，そのときに同じような構造のコマンドを作っていたような気がする．

うーむ．それにしてもいまだにシェルスクリプトはしっくりこない． 書けるっちゃあ書けるんだが，イマイチよくわからない挙動を示す部分があったり，忘れている部分が多く，書き応えがあるんだよな． こっちはそんな無駄な充実感を求めてないよ．．．

スパイウエア検出のソフトウエアでパソコンをスキャンしたところ， スパイウエアを発見しました，と相談を受け， 検出された内容を見てみるとCookieが検出されているだけだった．．．

Cookieのドメインを見て安全か判断してください，としか言いようがない． しかし，説明しても相手がよくわかっていないようなので， 「まぁ，おそらく安全ですよ．」とか言って帰してしまった．

なんとゆーか，サポセンの気持ちが少しだけ分かった気がします．．．

あー，あと余談なんですが，ボクにMS-Officeの使い方なんか聞いても答えられませんよ？ Visual StudioやEclipseの使い方なら腐るほど教えることができますが．（ぶ

終わり方もイマイチで，「ベタな展開，だが，それがいい」という流れを狙って失敗しているように感じた．．． 今までが面白かっただけにちょびーと残念だった．

コードにもボクの流儀とは違う箇所も出てきて面白い． たとえば，

#define COL8_840000 9

という記述があったりするのだけど，ボクだったら

#define COL8_RED 9

のように書くかなぁ．とかそんな部分でも楽しんでいます．

ふむ．3日目と4日目のコードは面倒で目を通していません． 6日目で分割コンパイルをするようなので，それが終わったら全体に目を通してみようと思います．

以下，Mono Projectのソースコードより引用．

guint32
mono_metadata_token_from_dor (guint32 dor_index)
{
	guint32 table, idx;
 
	table = dor_index & 0x03;
	idx = dor_index >> 2;
 
	switch (table){
	case 0: /* TypeDef */
		return MONO_TOKEN_TYPE_DEF | idx;
	case 1: /* TypeRef */
		return MONO_TOKEN_TYPE_REF | idx;
	case 2: /* TypeSpec */
		return MONO_TOKEN_TYPE_SPEC | idx;
	default:
		g_assert_not_reached ();
	}
 
	return 0;
}

ビット演算しまくりんぐｗｗｗ ボクの貧弱な頭ではそろそろ限界かなーｗｗｗ

とはいえ，他のVMの実装は真面目に見たことがないんですが， みんなこんなもんですかね？

本文では

void putfont8(char *vram, int xsize, int x, int y, char c, char *font)
{
        int i;
        char *p, d /* data */;
        for (i = 0; i < 16; i++) {
                p = vram + (y + i) * xsize + x;
                d = font[i];
                if ((d & 0x80) != 0) { p[0] = c; }
                if ((d & 0x40) != 0) { p[1] = c; }
                if ((d & 0x20) != 0) { p[2] = c; }
                if ((d & 0x10) != 0) { p[3] = c; }
                if ((d & 0x08) != 0) { p[4] = c; }
                if ((d & 0x04) != 0) { p[5] = c; }
                if ((d & 0x02) != 0) { p[6] = c; }
                if ((d & 0x01) != 0) { p[7] = c; }
        }
        return;
}

となっていたけど，ボクとしては

void putfont8(char *vram, int xsize, int x, int y, char c, char *font)
{
        int i, j;
        char *p, d /* data */;
        for (i = 0; i < 16; i++) {
                p = vram + (y + i) * xsize + x;
                d = font[i];
                for (j = 0; j < 8; j++) {
                        if ((d & (0x80 >> j)) != 0) { p[j] = c; }
                }
        }
        return;
}

とするかなー．．すみません，どうでもいいですね．はい．

描画したマウスカーソルの形もキレイにしようと思ったけど，いくらいじってもキレイにならなかったので，とりあえず放置することにした．

GDTをいじるときなどに若干激しいビット演算があるものの，仕様とともに分かりやすく説明されているので問題ありませんね．

次はマウスとキーボードか．楽しくなってきたな．続きは月曜日以降になりそう．

require 'socket'
require 'webrick'
 
# TCPOverHTTP
soc = TCPSocket.open('tcp.server', 8080)
 
srv = WEBrick::HTTPServer.new({:BindAddress => '127.0.0.1',
                               :Port => 8080})
srv.mount_proc('/') do
  |req, res|
  puts req.query['cmd']
  soc.puts req.query['cmd']
  soc.flush
  res.body = soc.readline
end
 
Signal.trap('INT') do
  srv.shutdown
end
 
srv.start

これでよし．Ruby & WEBrickは使いやすいな．

クライアントからは

GET /?cmd=This+is+command

なんて文字列を送信してやれば，プロキシがサーバに張ったTCPコネクションを使って"This is command"と送信し，応答がGETリクエストのレスポンスのボディに含まれて帰ってきます．

ちなみに，ひとつ上のネタはこのプログラムをテストするために使ったネタだったりします．

うむ．これでActionScriptのようなプログラムでもTCP経由で通信できる予感．

できねPRO そろそろIPv6事始め(1000円) - 松浦リッチ研究所

無料でIPv6 over IPv4を実現するサービスの紹介や WindowsやFreeBSDでそれを利用する方法など．

ほんとのできるシリーズみたいにスクリーンショットとかがたくさん載っています．

すっげ〜　AVRマイコン(200円) - 極楽ほんげら

AVRマイコンで遊ぶ方法などについて書かれています．

工作に必要な部品や開発に必要なソフトなどについても書かれていて 参考になります．

2進数おしえます．(100円) - 極楽ほんげら

2進数が何か，といったことや補数などの解説．

割と既知な情報だけど安かったのでつい買ってしまった．

新初心者の初心者による初心者のための FPGA(500円) - 電脳律速

なかなか真面目な内容です． VerilogなどのFPGAの基本について書かれている本． 後半はFPGAによるZipのパスワードクラッカーなどを作っていたりして，高度かも．．．

あと，会場で，動いてるところは見れませんでしたが， 電動耳 も現物を拝見しましたｗ

伊集院光深夜のバカ力ライブラリー - 伊集院さん好き好き / エントランスポイント

• あそび　栄冠は君に輝く(500円)
• 帰ってきたあそび　JUDGE OF GOD〜神の判断〜(500円)

深夜のバカ力のネタのまとめ本．

試しに買ってみました． なかなか面白かったので，今度他の巻についても補完しよう．

その後

サークル参加している（大学の）サークルの先輩（OB）に会おうと思ったのですが， このあたりかなぁ，というところに行っても見当たりませんでした．． なもんで，諦めて，撤退．．．

参考

• コミックマーケット66のときの日記
• コミックマーケット68のときの日記

話はターニングポイント．

未来の未来の朝比奈さんはいいキャラだなー． キョンとはどんな関係になっちゃうんだろう．

コンピュータ研とゲームで対戦．

• ちょっｗｗｗドロップキックｗｗｗ
• クソワロスｗｗｗ人の話し聞けｗｗｗ
• ガン○ムｗｗｗ
• 栄光あれｗｗｗガン○ムネタかｗ

長門さんも楽しいことができてよかったねー．

ちょっｗｗｗ予告あってるｗｗｗ

• 何気に焼きそば喫茶の制服について前回の内容でふれてたな
• 長門さんの占いって絶対当たってるよな．．．
• 軽音楽部にも乱入してるんかい！！
  • なんでこんなに上手いんだよｗｗｗ
  • ぶらぼー
  • 衣装とあってねぇぇぇぇぇぇ！！！

うへー，ハルヒが萌えキャラみたいになってるよ．．．

リアルで見てたとすると前々回の続きか．．． 普通に見てたら，内容忘れてそうだな．．．

• ハルヒの抱いた自分の小ささってのは誰でも抱く時期があるよなー
• 車のCGはちょっと不自然だな．．．
• ストーリー的にはあまり進展なし？だいたい今までの話から予想できる話だし．

事件を予感させる最後のセリフ． 次の回が最終回かー． また最後らしくめちゃくちゃな次回予告だったなｗｗｗ

• キョンは妹に起こされてるのか．．．
• にしても，ほんとにストレスを感じさせない映像の流れだな．．．
• 体操服で十分なんじゃねｗ？ > 朝比奈さんの次の衣装
• え？着替えるから出てけ？キョンを意識してるのか？

• 長門さんとのチャットはいいシーンだなー
• まー，ヒントから終わりが分かるんだよな．これ．．．

終わり方も上手いなー．

世界観も崩さず，不用意に続きを匂わせるわけでもなく，すっきりした終わり方でした．満足です．

#include <stdio.h>
 
int main(int argc, char* argv[]) {
   union {
      struct {
         int bit0 : 1;
         int bit1 : 1;
         int bit2 : 1;
         int bit3 : 1;
         int bit4 : 1;
         int bit5 : 1;
         int bit6 : 1;
         int bit7 : 1;
      }bits;
      char byte;
   }byte;
 
   /* 0000 0000 */
   byte.byte = 0;
 
   /* 0000 0001 */
   byte.bits.bit0 = 1;
 
   /* 0000 0101 */
   byte.bits.bit2 = 1;
 
   /* 0000 1101 */
   byte.bits.bit3 = 1;
 
   printf("%d\n", byte.byte);
   return 0;
}

覚えておけば便利なこともあるかもしれない．

使わない領域のサイズを指定したり， バイトの境界を強制的に指定する方法も用意されているので， 興味のある人は調べてみよう．

祭具殿でのドタンバタンという音が意味不明すぎる．

聞こえてる人と聞こえてない人がいるってのはどうやったら説明できるんだろう．．． まさか，単なる怪奇現象だと結論付けるようなことにはならないよね？

どうしても気になる謎はこんくらいで， あとは何かしら理由を付けようと思えば付けられる気がするなぁ．

たとえば以下のような文字列をリージョンで選択して M-x sort-line とすると

hoge
fuga
foo
bar

以下のように並び替えてくれる．

bar
foo
fuga
hoge

#!/usr/bin/env ruby
columns = 20
nums = ARGV.collect {|s| s.to_i}
 
sum = nums.inject(0) do |sum, i|
   sum = sum + i
end
 
max = nums.max
 
nums.each do |i|
   puts '%3d : ' % [i, sum] +
      '*' * (columns * (i.to_f/max) ).ceil
end

% ./graph.rb 4 6 4 9
  4 : *********
  6 : **************
  4 : *********
  9 : ********************

追記．最大値は表示する必要がないかな，と思い，表示しないようにしました．

知恵先生の絵が想像していた通りでいいね．

監督ってのは鬼殺し編の監督と同一人物なのかね？ だとしたら本当に医者を呼ぼうとしたってことかぁ．

本筋についての感想としては， この種のゲームにはこういうタイプのエンディングが 必ずといっていいくらい含まれているので，退屈な感じでしたね．

あまりいつものメンバーと深く関わらない部分で進行するため， どの部分が各シナリオで共通しているのかがわかりやすかった．

解決編の前に軽く推理してみるかね． とはいえ，謎が多すぎるので適当な話になりますがね．．．

集団で人が死ぬということの必然を考えると， 未知の伝染病が広まるのを防いだとかかなぁ？ となると，あの，富竹病（？）みたいなのがその病気という話か．

そう考えると，ダム建設に反対したのも合点がいくな． 水を飲料に使われるとまずいしな．

鬼殺し編で圭一が富竹と同じ症状になったとき（？）に 医者の監督が呼ばれたのにも納得がいくな． んで，監督は病気の原因がわからず責任を感じて自殺，とか． って考えるとあの注射器の中身はワクチンか？

鷹野さんが焼死なのもなんとなく説明がつきそう． 伝染病では自然な対応だしね．

背後に気配を感じるとかも病気の副作用なの．って，ちょっと強引すぎるか．．．

しかも，この説だと赤坂が生きて雛見沢から出ているのがおかしいなぁ．．． 大石は奇病の原因がわかってる，というのは都合のいい考え方かしらん．．．

とりあえず，死んでしまう人間の共通項を考えないと， 赤坂とか大石が雛見沢から普通に抜け出している理由がわからんし， 4年目までの個人がなんで死んだのかはぜんぜんわからんなー．

それがわかっても綿流し編と祟殺し編の狂気の描写の必然性はぜんぜん説明できないねー．．．

あと，たくさん登場するドッペルゲンガーも謎過ぎる． 雛見沢って，実はふしぎ星の双子村なんじゃねーかなー．（ヤケクソ

あなたは「賢者」タイプです。

白魔法、黒魔法、召喚魔法を使えるが、幻術師ほど召喚魔法を極められない。効果は白黒属性をランダムに使いこなすことができる。

ここにたどり着いたあなたの「すっぴん」状態の性格は、情感にあふれています。水の移動のごとく一定の流れに従う性質を持っているため、保護心と依存心を抱きやすく、感性を刺激される何かに出会うと心から感動します。繊細な芸術家としての活躍が期待できます。「賢者」への可能性を秘めるあなたは、都合の悪いことは無視する、都合のいいタイプ。なので、時として予想外の出来事に遭遇して面食らうこともしばしば。楽しいことを何度も回想することも必要ですが、現実を見ることも忘れずに。

===================================================================
RCS file: RCS/category_to_tagcloud.rb,v
retrieving revision 1.1
diff -u -r1.1 category_to_tagcloud.rb
--- category_to_tagcloud.rb     2006/08/22 17:40:02     1.1
+++ category_to_tagcloud.rb     2006/08/22 17:41:32
@@ -45,7 +45,8 @@
                url = "category=#{CGI.escape(t[:tag])}"
                url << ";year=#{@year}" if @year
                url << ";month=#{@month}" if @month
-               @cloud.add(t[:tag], "#{@conf.index}?#{url}", t[:count])
+               period = "year=#{@date.year};month=#{(@date.month - 1) / 3 + 1}Q;"
+               @cloud.add(t[:tag], "#{@conf.index}?#{period}#{url}", t[:count])
        }
        r = ''
        r << %Q[

どうでもいいけど，geshiって diff にも対応してんのな．すげぇなぁ．

function set.cvsroot {
  PS3='select CVSROOT from above:'
  ROOTS=(
    ':pserver:anonymous@tdiary.cvs.sourceforge.net:/cvsroot/tdiary'
    ':ext:takano32@no32.tk:/path/to/cvs/repository'
    ':pserver:takano32@no32.tk:/path/to/cvsrepos'
  );
 
  select ROOT in ${ROOTS[*]}; do
    export CVSROOT=${ROOT}
    break
  done
}

ほんとうはシェルスクリプトにしようと思ったのだけれど， 子プロセスで親プロセスの環境変数を変更できないので， シェル関数として書きました．

さらに抽象化し，EDITOR, PAGER, LANGなどの切り替えにも使おうと， 以下のようなコードにしてみたのだけれど，思い通りにはなりませんでした．

function set.env {
  ENV_NAME=shift 1
  ENV_VALUES=$@
  PS3="select ${ENV_NAME} from above:"
 
  select ENV_VALUE in ${ENV_VALUES[*]}; do
    eval ${ENV_NAME}='$'${ENV_VALUE}
    break
  done
}
 
function set.cvsroot {
  ROOTS=(
    ':pserver:anonymous@tdiary.cvs.sourceforge.net:/cvsroot/tdiary'
    ':ext:takano32@no32.tk:/path/to/cvs/repository'
    ':pserver:takano32@no32.tk:/path/to/cvsrepos'
  );
  set.env "CVSROOT" "${ROOTS[*]}"
}

配列の変数ってそのまま渡すことってできないんだっけ．．．？

236 ：名無しさん＠お腹いっぱい。 ：sage ：2006/04/05(水) 22:29:44 
シェルスクリプトって略すと

シェ
シェル
シェス
シェスク
シェルスクリ
スクリプト
プト

どれが正しいですか？


243 ：名無しさん＠お腹いっぱい。 ：sage ：2006/04/06(木) 10:36:15 
よくわかんないけど単に「スクリプト」と表現したとき、
それがkshなりperlやpythonで記述されてるかどうかなんてふつう気にする？

>>236
シエル



245 ：名無しさん＠お腹いっぱい。 ：sage ：2006/04/06(木) 11:27:20 
>>243
先輩のことかーっ！！

ちょっｗｗｗ月姫ｗｗｗ

function set.env {
  ENV_NAME=$1
  shift
  ENV_VALUES=("$@")
  PS3="select ${ENV_NAME} to set:"
 
  select ENV_VALUE in ${ENV_VALUES}; do
    echo export ${ENV_NAME}=${ENV_VALUE}
    export ${ENV_NAME}=${ENV_VALUE}
    break
  done
}
 
function set.editor {
  EDITORS=(
    'vi'
    'emacs'
    'nano'
  )
  set.env EDITOR $EDITORS
}

ENV_NAME=shift とか書いていたのが動かない原因だったみたい． なにやってんだ，Perlじゃねぇんだぞ．＞自分

PAGER, TERM, CVSROOT, LANG あたりは簡単に切り替えられるようにしておくかね．

function dj {
  PS3='select directory to jump:'
  DIRS=(
    '/home/takano32'
    '/home/takano32/tmp'
    '/home/takano32/var'
  )
 
  select DIR in ${DIRS[*]};do
    echo cd $DIR
    cd $DIR
    break
  done
}

まぁ，シンボリックリンク張ってもいいんだけどね．．．