Metasploitは一回お休みさせていただいてJavascriptのお話しです。

仕事は主にwebプログラミングなので身も蓋も無い言い方をすると「DBに入れたり出したり」しかしてません。

「もう文字列処理はうんざりなんだよ！」

というのは嘘ですが、たまには動きのある見栄えのするグラフィックとかアニメーションとかプログラムしてみたいと思い、HTML5で使えるようになるらしい、グラフィック機能のcanvasと双方向同期通信のWebSocketsを使ってキャラクターがウロウロするだけのプログラムを作ってみました。

WebSocketsを実装しているのは現状Google Chrome 4以降だけなので、動作してる雰囲気を伝えるために動画にしてみました。

最近のChromeには実装されているので下記のように簡単にサーバーに接続することができます。

ws = new WebSocket("ws://localhost:8080/")
ws.onopen = function() { console.log('open') }
ws.onclose = function() { console.log('close') }
ws.onmessage = function(evt) { ws.send('Hello!') }

CometなどよりとてもシンプルでたちまちWebSocketsが好きになりました！

Ajaxのように非同期に小さなメッセージをちょこちょこ飛ばすのではなく、１ユーザーに対して１本ガッシリしたラインを繋ぎ、双方向にドカドカ通信するイメージでしょうか。

真っ先にネットゲーム的なものでの利用方法が思い付きますが、これが標準的なブラウザで使えるようになれば、他の新しい使い方で出てきて斬新なUIが生まれれば良いなと思います。

とりあえず現状を下記のURLで動かしています。chromeやsafariのnightlyでは動くみたいです。（windows, mac, linuxどれでも動くことは確認しました。）

http://verdana.komagata.org/prowler/

ソースは下記です。

komagata's prowler at master - GitHub

IE で RGB の画像は表示できますが、CMYK の画像は表示できません。 CMYK から RGB に変換する手もありますが、変換時に結構色が変ってしまいます。 ということでアップロードする画像が CMYK の場合は、 バリデーションではじくようにします。

まず CMYK の判定ですが、ImageMagic の identify コマンドで可能です。

~% identify -format '%[colorspace]' ~/archive/normal.jpg
CMYK
~% identify -format '%[colorspace]' ~/archive/normal-rgb.jpg
RGB

ただし古い ImageMagic では -format '%[colorspace]' オプションが認識されないので -verbose オプションを使います。

~% identify -verbose ~/archive/normal.jpg
Image: /home/ancient/archive/normal.jpg
  Format: JPEG (Joint Photographic Experts Group JFIF format)
  Class: DirectClass
  Geometry: 290x200+0+0
  Resolution: 72x72
  Print size: 4.02778x2.77778
  Units: PixelsPerInch
  Type: ColorSeparation
  Endianess: Undefined
  Colorspace: CMYK      <=== これ!!
  Depth: 8-bit
  ...

この identify を呼び出して CMYK をチェックするバリデーションを config/initializers/paperclip.rb に組み込みます。

module Paperclip
  module ClassMethods
    ...

    # CMYK は IE で表示できないため、検証でエラーとする。
    def validates_attachment_not_cmyk name, options = {}
      message = options[:message] || "CMYK フォーマットの画像はブラウザによって表示できないため使用できません。お手数ですが RGB フォーマットに変換してください。"
      attachment_definitions[name][:validations][:not_cmyk] = lambda do |attachment, instance|
        original_file = attachment.instance_variable_get(:@queued_for_write)[:original]
        colorspace =
          begin
            attachment.file? && original_file &&
              Paperclip.run("identify", "-verbose #{original_file.path}")
          rescue
            nil
          end
        if colorspace && colorspace =~ /^\s*Colorspace: CMYK$/
          message
        end
      end
    end
    ....

これでモデルから validates_attachment_not_cmyk というひどい名前のバリデーションが使えるようになります。

  validates_attachment_not_cmyk :picture_1

まとめるとこうなります。

(incf ImageMagic)
(decf IE most-positive-fixnum)

method(if pred
         100
       else
         200
       end)

(method (if pred 100 200))

method(pred ? 100 : 200)

今日は節分でしたね。
あの豆を食べるのが好きです。

早くもネタが尽きてきました。
自分がObjective-Cのポテンシャルがわかっていないので（別にObjective-Cである必要は全然ないのですが）、続き物を書くことができません。

今回はToll-free bridgeについて書いてみようと思います。
またもやどこにもあるようなネタです。

Toll-free bridgeについてはHMDTさんなどで詳しく紹介がされています。
ダイナミックObjective-C (38) Toll-free bridge(1) – 変換コスト0のブリッジ | エンタープライズ | マイコミジャーナル

CocoaのオブジェクトとCoreFoundationのオブジェクトを相互にキャストするだけで変換することができます。
たとえばCocoaのNSStringというクラスは、CoreFoundationではCFStringというものに対応します。

具体例を示しましょう。
変換の話の前に、CoreFoundationでは初期化はどうするか？

NSStringであれば

NSString *hoge = [[NSString alloc] initWithCString:"piyo"];

のように書くところですが、CoreFoundationでは

 
CFStringRef hoge = CFStringCreateWithCString(kCFAllocatorDefault, "piyo", kCFStringEncodingUTF8);

となります。

さて、本題のToll-free bridgeによる変換です。
どのようなときに使うのか？
具体例を挙げると、NSStringの遅いメソッドであるcharacterAtIndexを呼び出す代わりに、CoreFoundationにあるCFStringGetCharacterFromInlineBuffer関数を使用して高速に処理するなんて使い方をするとか。
別にすべてCoreFoundationで書いてもかまいませんが、Cocoaを使うよりも幾分面倒なのでこういう適用が多いのではないかと思います。

NSString                *hoge;
CFIndex                 length, current;
CFStringInlineBuffer    buffer;
UniChar                 ch;
 
*hoge = [[NSString alloc] initWithCString:"piyo"];
length = CFStringGetLength((CFStringRef)hoge);
 
CFStringInitInlineBuffer((CFStringRef)hoge, &buffer, CFRangeMake(0, length));
 
current = 0;
while (current < length)
{
    ch = CFStringGetCharacterFromInlineBuffer(&buffer, current);
    NSLog(@"%c", ch);
 
    ++current;
}

こんな風にキャストするだけで渡すことができます。
昔、NSDictionaryの生成をCFDictionaryの生成に変えたところ劇的に速度が向上したことがあったような気がします。

火曜日担当のkomagataです。

Gumblerウィルスが猛威を振るっているので流行に乗ってセキュリティネタです。

脆弱性検証（というか実際に脆弱性を突くので悪用厳禁）ツールのMetasploit3をMacで使ってみました。

Macportsのはrb-railsやrb-rackが普通のgemとぶつかって入りません。（port editで依存性を外せば入りましたが気持ち悪いです。）

なので、svnのtrunkを持ってきました。

% svn co https://www.metasploit.com/svn/framework3/trunk metasploit

今回checkoutしたのはrevision8340でした。

% cd metasploit
% ./msfconsole
/Users/komagata/code/metasploit/lib/msf/core/exploit/mixins.rb:46:in `require': /Users/komagata/code/metasploit/lib/msf/core/exploit/capture.rb:358: syntax error, unexpected ')', expecting kEND (SyntaxError)
/Users/komagata/code/metasploit/lib/msf/core/exploit/capture.rb:375: syntax error, unexpected $end, expecting kEND
        from /Users/komagata/code/metasploit/lib/msf/core/exploit/mixins.rb:46
        from /Users/komagata/code/metasploit/lib/msf/core/exploit.rb:216:in `require'
        from /Users/komagata/code/metasploit/lib/msf/core/exploit.rb:216
        from /Users/komagata/code/metasploit/lib/msf/core.rb:52:in `require'
        from /Users/komagata/code/metasploit/lib/msf/core.rb:52
        from /Users/komagata/code/metasploit/lib/msf/ui/console/driver.rb:1:in `require'
        from /Users/komagata/code/metasploit/lib/msf/ui/console/driver.rb:1
        from /Users/komagata/code/metasploit/lib/msf/ui/console.rb:10:in `require'
        from /Users/komagata/code/metasploit/lib/msf/ui/console.rb:10
        from /Users/komagata/code/metasploit/lib/msf/ui.rb:10:in `require'
        from /Users/komagata/code/metasploit/lib/msf/ui.rb:10
        from ./msfconsole:16:in `require'
        from ./msfconsole:16

ところがcoreで読み込んでるファイルがsyntax error。ほぼ全てのコマンドが動きません。

「これは良いコミットエンドラン・・・（ゴクリ）」

% svn diff
Index: lib/msf/core/exploit/capture.rb
===================================================================
--- lib/msf/core/exploit/capture.rb     (revision 8340)
+++ lib/msf/core/exploit/capture.rb     (working copy)
@@ -355,7 +355,7 @@
                rescue RuntimeError => e
                        @pcaprub_error = e
                        print_status("Cannot stat device: #{@pcaprub_error}")
-                       raise RuntimeError, "Pcaprub error: #{@pcaprub_error}")
+                       raise RuntimeError, "Pcaprub error: #{@pcaprub_error}"
                end
                return my_net
        end

取り敢えずこれで動きますのでお急ぎの方は是非。

% ./msfconsole

                |                    |      _) |   
 __ `__ \   _ \ __|  _` |  __| __ \  |  _ \  | __| 
 |   |   |  __/ |   (   |\__ \ |   | | (   | | |   
_|  _|  _|\___|\__|\__,_|____/ .__/ _|\___/ _|\__| 
                              _|                   


       =[ metasploit v3.3.4-dev [core:3.3 api:1.0]
+ -- --=[ 176 exploits - 30 auxiliary
+ -- --=[ 104 payloads - 17 encoders - 5 nops
       =[ svn r8340 updated today (2010.02.01)

msf >

metasploitはversion3からperlからrubyになったらしく、僕にとっては読みやすくて嬉しいです。でもWebインターフェースがRailsなのは少しアグレッシヴですね。

次回は実際に脆弱性を突いてみようと思います。

ActiveRecord::Base ではクラスメソッドとして find や all の検索メソッドが定義されています。

Common Lisp でそれらを実装するにあたり、メタクラスのメソッドとして実装してみます。 Common Lisp では自分でメタクラスを定義することができます。 次のようにメタクラスを定義します。 なんとなく、テーブル名とカラム情報を持たせています。

(defclass active-record-class (standard-class)
  ((%table-name :initarg :%table-name :accessor %table-name-of)
   (%columns :initarg :%columns :accessor %columns-of)))

メタクラスに全レコードを取得する all メソッドを実装します。

(defmethod all ((class active-record-class))
  (multiple-value-bind (rows columns)
      (clsql-sys:query (format nil "select * from ~a" (%table-name-of class)))
    (loop for i in rows
          collect (make-instance-from-row class i columns))))

(def-record post) は次のように展開されて :METACLASS ACTIVE-RECORD::ACTIVE-RECORD-CLASS を指定します。

(PROGN
  (DEFPARAMETER POST
    (DEFCLASS POST (BASE)
      ((ID :INITARG :ID :INITFORM NIL :ACCESSOR ID-OF)
       (NAME :INITARG :NAME :INITFORM NIL :ACCESSOR NAME-OF)
       (TITLE :INITARG :TITLE :INITFORM NIL :ACCESSOR TITLE-OF)
       (CONTENT :INITARG :CONTENT :INITFORM NIL :ACCESSOR CONTENT-OF)
       (CREATED-AT :INITARG :CREATED-AT :INITFORM NIL :ACCESSOR
                   CREATED-AT-OF)
       (UPDATED-AT :INITARG :UPDATED-AT :INITFORM NIL :ACCESSOR
                   UPDATED-AT-OF))
      (:METACLASS ACTIVE-RECORD::ACTIVE-RECORD-CLASS)))
      ...

そんな感じでメタクラスによる

(all post)

ソースはこちらから http://github.com/quek/lisp-on-rails

第3回につづきます

#!/usr/bin/perl
# PerlとC++は世界一。

srand(time);

my $a = 0;
my $b = 0;
for(my $i = 0; $i < 1000; $i++) {
    (rand(2)<1 ? $a : $b) += 1;
}
print "$a, $b\n"

(let ((a 0) (b 0))
  (declare (special a b))
  (dotimes (i 1000)
    (incf (symbol-value
           (if (< (random 2) 1) 'a 'b))))
  (format t "~A, ~A~%" a b))
;⇒ NIL
----------
499, 501

(let ((a 0) (b 0))
  (dotimes (i 1000)
    (incf (if (< (random 2) 1) a b)))
  (format t "~A, ~A~%" a b))
;⇒ NIL
----------
513, 487

for(my $i = 0; $i < 1000; $i++) {
    if (rand(2) < 1) { 
      $a 
    } else {
      $b
    } += 1;
}

今回も前回のGeohashに引き続き、位置情報に関する内容です。
ググれば出てくる内容なので、新しいことはなんにもないのが申し訳ないところです。

位置情報に関するライブラリは

• CoreLocation
• MapKit

GPSで現在位置を取得するにはCoreLocationを使用し、地図を表示したり現在地の大まかな住所を取得するためにはMapKitを使用します。

CoreLocationではCLLocationManagerDelegateを実装し

CLLocationManager *locationManager = [[CLLocationManager alloc] init];
    if ([locationManager locationServicesEnabled])
    {
        [locationManager setDelegate:self];
        [locationManager setDesiredAccuracy:kCLLocationAccuracyBest];
        [locationManager setDistanceFilter:kCLDistanceFilterNone];
    }

- (void)locationManager:(CLLocationManager *)manager didUpdateToLocation:(CLLocation *)newLocation fromLocation:(CLLocation *)oldLocation
{
    NSLog(@"%@", newLocation);
}

このようにすればLogに現在地の情報が取得できます。

地図を表示するには

CGRect screen = [[UIScreen mainScreen] bounds];
MKMapView *mapView = [[MKMapView alloc] initWithFrame:screen];
[[self view] addSubview:mapView];
[mapView release];

MKCoordinateRegion  region;
region.center = [location coordinate];
region.span.latitudeDelta = 0.005;
region.span.longitudeDelta = 0.005;
[mapView setRegion:region animated:YES];

とすれば、locationで指定した座標に移動します。

現在地を取得するにはMKReverseGeocoderDelegateを実装し

MKReverseGeocoder *reverseGeocoder = [[MKReverseGeocoder alloc] initWithCoordinate:[location coordinate]];
[reverseGeocoder setDelegate:self];
[reverseGeocoder start];

- (void)reverseGeocoder:(MKReverseGeocoder *)geocoder didFindPlacemark:(MKPlacemark *)placemark
{
    NSLog(@"%@", [placemark title]);
}

とすることで取得することができます。
すべてのAPIが非常にシンプルに作られているので、使用するのは非常に簡単です。

興味のある言語にLispと書いておいたら面接で爆笑された

面接官「Lisp・・・ふははっ！Lisp！」

面接官「Lispやってるんですか？ｗｗｗｗｗ」

俺「(唖然)は、はい・・まだS式を理解したぐらいですが。。」

面接官「Lisp・・・ﾆﾔﾆﾔ」

Hunchentootで動いてるこのブログを見て弊社に面接に来た方がCommon Lispに興味なかったらメンバー全員がっかりしますね・・・。

gitよく分からないのでどういう風に使ってるのかデモってくれと言われたので実際に仕事のコードにコミットしてみました。

実録！git!

アクトインディでは「子供とのお出かけ先を探すサイト」いこーよ（http://iko-yo.net）というサイトを運営しています。 リポジトリはデザイナーさんがDreamweaverやCodaのsvnクライアントを使うのでSubversionです。

svnの最新リビジョンだけを持ってくる。（全部持ってくると死ぬほど時間がかかる。）

% git svn clone -r HEAD https://svn.actindi.net/svn/oyaiku/trunk/outing outing --username=komagata

Redmineのチケットを見る。 予め仕込んでおいた簡単そうなチケットを発見。（redmineではイシューというみたいです）

チケットに対応したブランチを作る。

% git branch issue3487

作業ブランチを切り替える。

% git checkout issue3487

ブランチ確認。

% git branch
  master
* issue3487

shouldaスタイルのマクロが使いたいのでremarkableを入れる。

# config/environment.rb
Rails::Initializer.run do |config|
  config.gem 'remarkable_rails', :lib => false
end

# spec/spec_helper.rb
require 'spec/rails' # ここの下に書く
require 'remarkable_rails'

% sudo rake gems:install
% rake gems:unpack
% rake gems:refresh_spec

一旦、コミット。

% git add vendor vendor/gems/remarkable_rails-3.1.12
% git commit -a -m'added remarkable'

app/model/city.rbのテストを作る。

# app/model/city.rb
class City < ActiveRecord::Base
  belongs_to :prefecture

  validates_presence_of :name, :reading, :roman
  validates_length_of :name, :within => 1..40
  validates_length_of :reading, :within => 1..40
  validates_length_of :roman, :within => 1..40
  validates_uniqueness_of :roman
end

# spec/models/city_spec.rb
require 'spec_helper'

describe City do
  fixtures :cities

  should_belong_to :prefecture
  should_validate_presence_of :name
  should_validate_presence_of :reading
  should_validate_presence_of :roman
  should_validate_length_of :name, :within => 1..40
  should_validate_length_of :reading, :within => 1..40
  should_validate_length_of :roman, :within => 1..40
  should_validate_uniqueness_of :roman
end

テスト実行（ホントは全部のテストを実行する）

% ./script/spec spec/models/city_spec.rb

City
- should belong to prefecture
- should require name to be set
- should require reading to be set
- should require roman to be set
- should ensure length of name is within 1..40 characters
- should ensure length of reading is within 1..40 characters
- should ensure length of roman is within 1..40 characters
- should require unique values for roman

Finished in 0.770165 seconds

8 examples, 0 failures

コミット

% git add spec/models/city_spec.rb
% git ci -a -m'added city_spec. fixed #3487'

masterに移る。

% git checkout master

最新版を持ってくる

% git svn rebase

issue3487をマージする

% git merge issue3487

svnにコミット。

% git svn dcommit

完了。

その他の便利機能

いっこ前のコミットなかったことにする

% git reset HEAD^

昔のコミットを修正したい

% git log --oneline
c5524b2 * removed foo * removed remarkable
460bfa1 [デザイン] TOPページ「外へおでかけ」の変更 (refs #3490) * 谷さん修正分
9b819fd * add city_spec * add remarkable * add foo
695b1eb [システム] [mobile] /facilities/:id のレイアウト変更。 (refs #2899) * いらないhrを削除。

% git rebase -i 695b1eb

エディタが立ち上がるので修正したいリビジョンのpickをeditに変更して終了する。

pick 9b819fd * add city_spec * add remarkable * add foo
pick 460bfa1 [デザイン] TOPページ「外へおでかけ」の変更 (refs #3490) * 谷さん修正分
edit c5524b2 * removed foo * removed remarkable

指定したリビジョンの状態に戻るので好きにaddしたり編集したりする。

% git commit --amend
% git rebase --continue

修正完了

複数の適当なコミットを一つにまとめたい

% git log --oneline
68fb234 add text2 in foo
5cd81d6 add text in foo
43fdcb7 add foo
fb91711 removed old paperclip
aa21e65 fixed

% git rebase -i fb91711
pick 43fdcb7 add foo
pick 5cd81d6 add text in foo
pick 68fb234 add text2 in foo

次のリビジョンとまとめたいリビジョンの先頭をpickからsquashに変える。

pick 43fdcb7 add foo
squash 5cd81d6 add text in foo
squash 68fb234 add text2 in foo

コミットメッセージをいれて終了。

みなさんおっしゃってますが、やはり、svnからgitにして嬉しいのはbranchの作成やcommitが気軽できるところですね。一つの作業をやってる途中に別の優先タスクが入った場合も、現在のbranchをほっぽってすぐにそちらのタスクに移れるのは精神的にもとても楽です。

適当にfixed, fixedなどとコミットしていっても後で綺麗にまとめられるところもいいですね。

gitは他にもいろいろ出来るみたいですが、今のところリアルにこんな感じで使っています。便利な使い方があれば教えて頂けると嬉しいです。

いま仕事で Ruby on Rails を使っています。 正直 Active Record いいっすねー。 DB いじるには楽です。

くやしいので Common Lisp でそれっぽいのを実装してみます。 Lisp on Rails ですね(何だか以前から聞く言葉のような気もします)。

第1回目の今日は何となく Active Record っぽい雰囲気のような感じだけです。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf *connection-spec* '("localhost" "blog_test" "root" ""))
  (setq clsql-sys:*default-database-type* :mysql)
  (establish-connection))

;; レコードの定義
(def-record post)
;; インサート
(save (make-instance 'post :name "名前" :title "タイトル" :content "内容"))
;; 検索
(all post)

ソースはこちらから http://github.com/quek/lisp-on-rails

第2回につづきます

def iota(n)
  if n.zero?
    0
  else
    [n, *iota(n - 1)]
  end
end

iota(10)
;⇒ [10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0]

Proc.new do |x, y| x * y;end [100,2]
;⇒ 200

;; Common LISP
(let ((x 3))
  `#(0 ,@(if (evenp x)
             '(1 2 3)
             '(:a :b :c))))
;⇒ #(0 :A :B :C)

(defun iota (n)
  (if (zerop n)
      (list 0)
      `(,n ,@(iota (1- n)))))

;⇒ (10 9 8 7 6 5 4 3 2 1 0)

(multiple-value-call #'* (values-list '(100 2)))
;⇒ 200

;; もしくは
(apply #'* '(100 2))
;⇒ 200

先日chibaさんがGeohashをdecodeするものをCLで書いていらしたので、それを微妙に参考にしながらCocoaのCoreLocationのCLLocationにgeohashをencode/decodeするメソッド追加してみました。

本当はビット演算がしたいのですが、文字列処理の方が自分には単純で簡単だったため、とりあえず今回は文字列処理にしてみました。

我ながらひどいコードだと思いますので、これからリファクタリングをしていきたいところです。

[CLLocation+Geohash.h]

#import <CoreLocation/CoreLocation.h>
#import <Foundation/Foundation.h>


@interface CLLocation(Geohash)

@property (nonatomic, readonly)   NSString    *geohash;

+ (CLLocation *)locationFromGeohash:(NSString *)aGeohash;

@end

[CLLocation+Geohash.m]

#import "CLLocation+Geohash.h"

#include <math.h>

NSString *int_to_binary(NSUInteger input)
{
    if (input == 1 || input == 0)
    {
        return [NSString stringWithFormat:@"%d", input];
    }

    return [NSString stringWithFormat:@"%@%d", int_to_binary(input / 2), input % 2];
}


double parse_binary(NSString *binary, double max, double min)
{
    double mid = 0.0;
    
    for (NSUInteger i = 0; i < [binary length]; ++i)
    {
        if ([binary characterAtIndex:i] == '1')
        {
            min = mid;
        }
        else
        {
            max = mid;
        }
        
        mid = (max + min) / 2;
    }
    
    return mid;
}


NSUInteger binary_to_int(NSString *input)
{
    NSUInteger result, length;

    result = 0;
    length = [input length];

    for (NSUInteger i = 0; i < length; ++i)
    {
        if ([input characterAtIndex:i] == '1')
        {
            result += pow(2, length - i - 1);
        }
    }

    return result;
}


NSString * generate_binary(double input, double max, double min, int cutoff)
{
    NSMutableString     *result;
    double              mid;

    result = [NSMutableString string];
    for (int i = 0; i < cutoff; ++i)
    {
        mid = (max + min) / 2;

        if (input > mid)
        {
            [result appendString:@"1"];
            min = mid;
        }
        else
        {
            [result appendString:@"0"];
            max = mid;
        }
    }

    return [NSString stringWithString:result];
}


@implementation CLLocation(Geohash)

- (NSString *)geohash
{
    int cutoff = 15;
    NSString *base32_characters  = @"0123456789bcdefghjkmnpqrstuvwxyz";

    NSString            *bin_lat, *bin_lng;
    NSMutableString     *bin_packed, *result;
    
    bin_lat = generate_binary([self coordinate].latitude, 90.0, -90.0, cutoff);
    bin_lng = generate_binary([self coordinate].longitude, 180.0, -180.0, cutoff);

    bin_packed = [NSMutableString string];

    for (int i = 0; i < [bin_lat length]; ++i)
    {
        [bin_packed appendFormat:@"%c%c", [bin_lng characterAtIndex:i], [bin_lat characterAtIndex:i]];
    }

    result = [NSMutableString string];

    // extract by 5-bit.
    for (int i = 0; i < [bin_packed length] / 5; ++i)
    {
        NSUInteger index;
        index = binary_to_int([bin_packed substringWithRange:NSMakeRange(i * 5, 5)]);
        [result appendFormat:@"%c", [base32_characters characterAtIndex:index]];
    }

    return result;
}


+ (CLLocation *)locationFromGeohash:(NSString *)aGeohash
{
    NSString *base32_characters  = @"0123456789bcdefghjkmnpqrstuvwxyz";

    NSMutableString *bin_packed, *bin_lat, *bin_lng;

    bin_packed = [NSMutableString string];

    for (NSUInteger i = 0; i < [aGeohash length]; ++i)
    {
        NSString *character;
        character = [[NSMutableString stringWithFormat:@"%c", [aGeohash characterAtIndex:i]] lowercaseString];

        for (NSUInteger j = 0; j < [base32_characters length]; ++j)
        {
            if ([character isEqualToString:[NSString stringWithFormat:@"%c", [base32_characters characterAtIndex:j]]])
            {
                NSMutableString *binary;
                binary = [NSMutableString stringWithFormat:@"%@", int_to_binary(j)];

                NSUInteger length = [binary length];
                for (NSUInteger k = 0; k < 5 - length; ++k)
                {
                    [binary insertString:@"0" atIndex:0];
                }

                [bin_packed appendString:binary];
                break;
            }
        }
    }

    bin_lat = [NSMutableString string];
    bin_lng = [NSMutableString string];

    for (NSUInteger i = 0; i < [bin_packed length]; ++i)
    {
        if (i % 2)
        {
            // a latitude is composed of odd bits. 
            [bin_lat appendFormat:@"%c", [bin_packed characterAtIndex:i]];
        }
        else
        {
            // a longitude is composed of even bits.
            [bin_lng appendFormat:@"%c", [bin_packed characterAtIndex:i]];
        }
    }

    return [[CLLocation alloc] initWithLatitude:parse_binary(bin_lat, 90.0, -90.0)
                                      longitude:parse_binary(bin_lng, 180.0, -180.0)];
}


@end

NSStringでかなり遅いcharacterAtIndexを使いまくっている。

参考

Geohash - Wikipedia, the free encyclopedia
GeoHashのdecodeのアルゴリズムの解説します & ScalaのGeoHashライブラリを作ってみました(仮) - ゆろよろ日記

rspecのテストが通らないとデプロイを止めてしまうcapistranoのレシピのgemを作りました。

showstopper 0.1.0

ShowStopper is capistrano recipe that stop deploy when rspec is red.

インストール

$ sudo gem install showstopper -s http://gemcutter.org

Capfileの中で読み込むだけで設定完了です。

$ vi Capfile
(...)
require 'showstopper'

これでrspecが通ってないのに誰かがデプロイしようとすると・・・

% cap deploy
(...)
  * == Currently executing `deploy'
    triggering before callbacks for `deploy'
  * == Currently executing `deploy:spec'
    rspec test failed

showstopperがデプロイを中止してしまいます！

これを投入していい加減なテストのあるプロジェクトを恐怖のどん底に陥れてやりましょう！

script/autospec の結果を表示してくれる Growl がうらやましいのですが、私 の使っているのは Linux です。しかし、Linux には Stumpwm があります。 Stumpwm の stumpish を使えば echo でメッセージを表示することができます。

そこで script/autospec の結果を Stumpwm で表示する gem を作ってみます。

参考サイト

• Route 477 - モナドって結局なんなの , gemcutterの使い方まとめ (2009年秋)
• jeweler でらくらく rubygems 作成（github編） - まさにっき（コードで世界を変えたい人の記録）
• Route 477 - gemspecの作り方がわからない？ならばjewelerだ
• technicalpickles's jeweler at master - GitHub
• svoop's autotest-growl at master - GitHub

gem を作るには Jeweler を使うのがよさそうです。 Jeweler は GitHub の API を使うようなので、まずその設定を行います。 user_name と api_token には自分の Username と API Token を指定します。

git config --global github.user user_name
git config --global github.token api_token

Jeweler をインストールしてプロジェクトを作ってみます。

gem install jeweler
jeweler --rspec --create-repo autotest-stumpwm

これで綺麗にプロジェクトが作成されます。 おまけに GitHub にリポジトリまでできています。

次に Rakefile を編集します。TODO になっている次の二箇所を適当に編集すればよさそうです。 あと依存する gem も指定しておきます。

    gem.summary = %Q{TODO: one-line summary of your gem}
    gem.description = %Q{TODO: longer description of your gem}
    gem.add_dependency "autotest-growl", ">= 0.1.7"

次に lib の下のファイルに Stumpwm を使って script/autospec の結果を表示するたコードを書きます。 コードが出きたら次のようにリリースします。

rake version:write
rake gemspec
rake release

これだけで Gemcutter にも自動的に公開されます。 Jeweler すばらしい!!

修正したら git commit して、次のいずれかでバージョンをあげ rake release するだけ。

rake version:bump:major              # Bump the gemspec by a major version.
rake version:bump:minor              # Bump the gemspec by a minor version.
rake version:bump:patch              # Bump the gemspec by a patch

できあがった autotest-stumpwm を使うには gem install autotest-stumpwm して、 ~/.autotest に次の一行を書きます。これで autospec と Stumpwm の幸せな生活がおくれます。

require 'autotest/stumpwm'

さて、一番大切な Stumpwm で結果を表示するコードですが、

# -*- coding: undecided -*-
require 'rubygems'
require 'autotest/growl'

module Autotest::Growl
  def self.growl(title, message, icon, priority=0, stick="")
    priority = if priority > 0  # error or feailed
                 1              # red
               elsif priority == -2 # passed
                 2                  # green
               else
                 3              # yellow
               end
    system "stumpish echo ^#{priority}* #{title} #{message}"
  end
end

(defpackage :geohash
  (:use :cl)
  (:import-from :shibuya.lisp
                :$ :$*))

(in-package :geohash)

(defun tr (from to string)
  (map 'string 
       (lambda (c)
         (or (some (lambda (x y) 
                     (and (char-equal x c) y))
                   from to)
             (char-upcase c)))
       string))

(defun 5bits (string)
  (map 'list
       ($ format nil "~5,'0,B" 
          $ read-from-string 
          $ format nil "#32R~A" 
          $ tr "0123456789BCDEFGHJKMNPQRSTUVWXYZ" 
               "0123456789ABCDEFGHKJKLMNOPQRSTUV" 
          $ string $)
       string))

(defun longitude-latitude (strings)
  (let ((bit-c-list ($* concatenate 'list strings)))
    (loop :for c :in bit-c-list
          :for i :from (if (char= #\0 (car bit-c-list)) 0 1)
          :if (evenp i) :collect c :into even
          :else :collect c :into odd
          :finally (return 
                     (list :longitude
                           (coerce even 'string) 
                           :latitude
                           (coerce odd 'string))))))

(defun bitlist (string)
  (map 'list ($ parse-integer $ string $) 
       string))

(defun decode (bits min mid max)
  (if (endp bits)
      mid
      ($* decode 
          (cdr bits)
          (if (zerop (car bits))
              (list min (/ (+ mid min) 2) mid)
              (list mid (/ (+ mid max) 2) max)))))

(defun decode-geohash (string)
  (let* ((u ($ longitude-latitude $ 5bits string))
         (lon (getf u :longitude))
         (lat (getf u :latitude)))
    (list 
     :longitude 
     ($ float $ decode (bitlist lon) -90 0 90)
     :latitude
     ($ float $ decode (bitlist lat) -180 0 180))))

(decode-geohash "u4pruydqqvj")
;⇒ (:LONGITUDE 57.64911 :LATITUDE 10.407439)

とりあえず最初は今までやったのにアップロードしていなかったプログラムプレゼンテーションのネタを書こうかなと思います。

第3回 cocoa*life - Grand Central Dispatchを試してみる。

以下、同様にblogに載せようと思って途中でやめていたものを載せようと思います。

プログラムプレゼンテーションの第2回は、iPhoneを用いてDelaunay分割をするというものにしてみました。

本当は他のものをやるつもりだったのですが、前回のプログラムプレゼンテーションではkomagataさんがObjective-Cのキメラさ、カオスさをおもしろがっていたと勝手に仮定して、Objective-C++でさらなるカオスさを目指すことにしました。

そんな折りに以前ドロネー分割をするためのプログラムをつくって、アップロードしようかなといっていたのを思い出しました。

ということで、今回はそれを流用することにしました。
単純に移植するだけだから簡単だろと思ったところ、意外と手直しに時間がかかってしまいました。

ドロネー分割については計算幾何学で出てくるものですが、この余白はそれを書くのにはせますぎるということで、ググればきっとわかる！！！

ソースコードはこちらです。
ライブラリとしてBoost C++ Librariesを使用しています。

実行すると、毎回ランダムな10点を作成し、下図のようにドロネー分割された図が表示されます。

右側の図は外接円も表示させた場合です。
ドロネー分割では生成された三角形によって作られる外接円の中に、その三角形以外の点が含まれてはいけません。

ランダムな点を生成する部分にはboost::randomを用い、ドロネー分割を計算する部分はC++で書かれています。

Objective-CとC++のコードを混ぜる場合の注意点は、HMDTさんによくまとめられているのでこちらを参照していただくのがよいかと思います。
HMDT – Objective-C++

Objective-C++のソースを書かれるときは、.mとなっている拡張子を.mmにしてくださいね。
自分はこれをしないでObjective-C++のファイルだと認識されずはまりまくりました。

こんな風にC++のコードも簡単に使用することができるので、Objective-Cを使われている皆様もぜひ組み合わせてみてはいかがでしょうか？？？

P.S.
本当はNSOperationを使って、スレッドを新しく作ってバックグラウンドで処理をしたかったのですが、プログラムの構造上面倒なのでやめました。

参考
Objective-C プログラミング言語：C++ と Objective-C の併用
HMDT – Objective-C++

新しくtaharaさんをメンバーに加えて、毎日持ち回りでこのブログを更新していくことになりました。

火曜日：komagata
水曜日：masudaさん
木曜日：chibaさん
金曜日：taharaさん

このような曜日担当で更新してきます。忘れていたら罵倒してください・・・。

ほとんどtaharaさんが書いてくれたのですが、Webプログラマーチュートリアルを作りました。

web-programmer-tutorial - Project Hosting on Google Code

何らかのプログラム経験さえあれば、これをみて自習するだけで業務するのに必要なスキルが習得できるように、ゴールと参考URL・書籍の一覧を用意しました。

入社した最初の一ヶ月を研修期間としてこれをやることにしました。（やりながらメニュー自体も改善する）

これならば自宅を警備しながらスキルを付けることが出来るのではないかと期待しております。

OJTのみになってしまっているのを改善したいITベンチャーの方や自宅警備員の方でこれを使ってわからないところがあれば全力で支援いたします。

現在このブログは次のような構成で動いています。

• Steel Bank Common Lisp (SBCL)
• Hunchentoot
• Elephant
• SQLite3
• CL-WHO

それでは、今後ともよろしくお願いいたします。

今回は、このちょっとしたカスタマイズネタや使い方です。

Actindi社内では現在全面的にRedmineで仕事を管理していて、仕事の確認/依頼もチケット番号ですることが非常に多いです。
いつもチケットの番号でやりとりするのですが、伝えられた番号をぱっと開きたいことが多いので、これをStumpWMで便利にしてみようということで工夫してみました

  
(DEFPARAMETER *LAST-TICKET* NIL)

(DEFCOMMAND SHOW-TICKET (TICKET-NUMBER) ((:STRING "Ticket#: "))
  (WHEN (RUN-SHELL-COMMAND 
         (FORMAT NIL 
                "/usr/bin/firefox "https://redmine.example.com/issues/show/~A\""
                 TICKET-NUMBER))
   (SETQ *LAST-TICKET* TICKET-NUMBER)))

(DEFCOMMAND EDIT-IT () ()
  (RUN-SHELL-COMMAND
    (FORMAT NIL
            "/usr/bin/firefox "https://redmine.example.com/issues/edit/~A\""
            *LAST-TICKET*)))

非常にでっちあげ感の漂う適当なコードですが、show-ticket 1234という風に実行すると、Redmineの1234番のチケットがfirefoxで表示されます。
edit-itコマンドは保存していた直前のチケット番号を編集状態で開くという単純なものです。 ちょっとした工夫ですが、割と便利で愛用しています。
といった具合で、その他、StumpWMの機能の説明をして1時間をしのぎました。
みなさんもご興味あれば、StumpWMをお試しあれ。

今回のプログラム・プレゼンテーションのネタは日常で使うちょっとしたスクリプトをCommon Lispでやってみようというものです。

ネタ切れなので自分の ブログに書いたネタ を再演しつつ、ブログでは紹介してなかったwgetも併せて動かしてみました

Software ToolsのごとくCommon Lisp上にユーティリティを作成して行けば、Common Lispだけでこういう細かい仕事はできるようになるやもしれません。

今回のプログラム・プレゼンテーションのネタはこのブログもどきについてです。 そもそもは、ちょっと変ったことをしてみようということで、技術方面のブログはCLで作ってみようということになりました。

構成は、

• CL処理系: SBCL
• AllegroServe(RubyでいうWEBrickのようなもの)

SBCL処理系は、ライブラリをロードした状態の処理系のメモリイメージを実行可能ファイルとしてダンプできるのですが、適当に手元のノートPCでAllegroServe(CLのウェブサーバー)をロードした状態でダンプしたものを、さくらサーバーに置いたところ動いてしまったので、そのまま動かすことにしました。(x86の実行ファイルです)

場当たり的に作っていく中で色々な問題に遭遇しました。

• AllegroServeだとサーバーの処理系を大文字と小文字を区別するように設定することが前提になっているのでそうしないと色々困る。
• AllegroServeをAllegro CL上で動かさない場合、日本語の扱いに難がある

自分は特にプログラムを書くのが趣味という訳でもないので、プログラムプレゼンテーションは割と苦手なのですが、今回は、過去に作った便利Emacs Lispをプレゼンして場をしのぎました。

アイデアとしては、ファイルを

file-2009-09-26.txt

komagataです。

“プログラムプレゼンテーション”でAquesTalkのRubyバインディングを作りました。（Windowsのみ）

win32-aques_talk - AquesTalk rubyバインディング - p0t

AquesTalkのrubyバインディング作りました。

komagata’s win32-aques_talk at master – GitHub

AquesTalkはwindows版dllのみが組み込んで配布することもOKとなっているのでwindows版をRubyから手軽に使いたいと思って作りました。RubyバインディングといってもC言語拡張ではなく、ruby-ffi(Foreign Function Interface)を使っています。

豊富なCのライブラリをRubyからサッと使いたいと思ってruby-ffiを使ってみました。ヘッダが必要で無く、動的ライブラリを直接実行するのが面白かったです。また、Windows上で、opensshやgitがいつも通り使えるのがちょっと意外でした。(rubyのgitバインディングはうまく動かないけど）

komagataです。

“プログラムプレゼンテーション”で継続的インテグレーションコマンドを作って発表しました。

saimaa - 今すぐ始められる継続的インテグレーション - p0t

継続的インテグレーションについては、CIサーバー(Continuous Integration Server)というやつが沢山あって非常に機能も豊富です。僕の仕事には少々大げさな気がしたのと、

「cronでsvn up && rakeじゃ駄目なのかしら？」

などと思ったのでそれをちょっとだけサポートするコマンドを作ってみました。

komagata’s saimaa at master – GitHub

アクトインディではcapistranoのデプロイコマンドにrspecとcucumberのフックが掛けてあるのでテストが通らなければデプロイはできません。ですが、コミットはできるのでテスト通らないコードがコミットされるとすぐにこの仕組みでメールが飛んでくるのでなかなか便利です。

これを作って感じたのは、rubygemsとgithubはクロスプラットフォームのCUIプログラム（コマンド）を作る環境として素晴らしいなということです。（全開と似たようなこと言ってますが）

rubygemsはインストールするとPATHが通ってるところに実行できる場所にコマンドをコピーしてくれるんですよね。jewelerでgithubへのアップも簡単です。

アクトインディでは週一回、エンジニアが持ち回りで、「動いて、ダウロードできるプログラム」を公開・発表するという“プログラムプレゼンテーション”（まあ単なるプレゼンです）をやることにしました。

第一回はShu MASUDAさんでしたのでそちらはお任せするとして、僕は２回目にやりました。

Talkedbun - 日本語テキストトゥースピーチサーバー - p0t

URLにひらがなを指定すると、そのひらがなの音声がmp3で得られるwebサーバーを作りました。

komagata’s talkedbun at master – GitHub

日本語のURLからそのまま音声が取れたら面白いかなと思って作りました。作っていて一番勉強になったのは、RubyはRubygems, Rack, Sinatraなど、クロスプラットフォームでのマイクロウェイブアプリケーションを作る環境が素晴らしく整っているなということでした。RailsがWebrickをローカルに立ち上げて開発するというスタイルを作ったので自然とWebサーバーの実装、WAFの実装、周辺ツールなどの選択肢がたくさんあります。

ついでにhaml, sassも使ってみましたが、HTMLのインデントやCSSの重複した記述が病的に気になる僕にはぴったりのアホなツールでとても気に入りました。

（ジェバンニマチダさんが３０分でやってくれました）

  % apt-cache search vrms
vrms - virtual Richard M. Stallman

  % vrms
                Non-free packages installed on dev

gdb-doc                   The GNU Debugger Documentation

  1 non-free packages, 0.2% of 503 installed packages.

  % sudo apt-get remove --purge gdb-doc
% vrms
No non-free packages installed on dev!  rms would be proud.

ちなみにぼくの会社では、監視ツールや自作監視スクリプトでアラートをエンジニア社員全員に送って、誰かが対応することになっています。（たまに誰も対応やレスをしなくて上司に怒られます） これはぼくら社員にとって正直ストレスになるので、なにかよいルールや体制を上司に提案したいなと考えています。