CodeBlog

RubyCocoaでスクリーンセーバを作る

2008-01-19T17:16:00.002+09:00

MacOSでは ScreenSaverView クラスを実装して.saverという名前のbundleに格納すればスクリーンセーバになる。 RubyCocoaでスクリーンセーバを書く方法をこちらに解説しておいた。

自前のCプログラムをRubyCocoaから呼ぶ

2008-01-13T17:33:00.001+09:00

Objective-CのメソッドをRubyCocoaから呼ぶのはとても簡単である。
πを計算する以下のようなクラスが存在するとき、

#import <Cocoa/Cocoa.h>

@interface Pi : NSObject
- (double)calc:(id)param;
@end

@implementation Pi
- (double)calc:(id)param
{
  // すごい方法でπを計算
  return 3.14159265358979;
}
@end

Xcodeを使ってこれからPi.frameworkを作成し、 /Library/Frameworksとかに置いておけば以下のように簡単にRubyから呼び出すことができる。

require 'osx/cocoa'
include OSX

NSBundle.bundleWithPath("/Library/Frameworks/Pi.framework").load
ns_import :Pi

class Pi < NSObject
  addRubyMethod_withType('calc', 'v@:@')
end

pi = Pi.alloc.init
puts pi.calc(nil)

自前のCプログラムをすぐにRubyから使えるので便利である。

10桁ISBNのチェックディジットの計算

2008-01-08T14:57:00.001+09:00

def add_checksum(isbn)
  v = 0
  (0..8).each { |i|
    v += isbn[i,1].to_i * (i+1)
  }
  v %= 11
  checksum = (v == 10 ? 'X' : v.to_s)
  isbn + checksum
end

AppleRemoteをRubyで使う

2008-01-07T09:16:00.000+09:00

Tim Burks氏の Use your Apple Remote from Rubyというサイトに AppleRemote(最近のMacに付属してくる赤外線リモコン)をRubyで使う方法が載っている。 Martin Kahr氏が作った AppleRemote用ライブラリを framework化してビルドしてRubyから呼べばよいらしい。

現在(2008/1)のKahr氏のシステムは、ソースコードの構成やライブラリの引数がBurks氏の記事とは異なっているが、必要そうなものを全部まとめてframework化して以下のようにコードを少し変えると無事動かすことができた。

require 'osx/cocoa'
include OSX

NSBundle.bundleWithPath("/Library/Frameworks/AppleRemote.framework").load
ns_import :AppleRemote

class AppleRemoteDelegate < NSObject
  addRubyMethod_withType('sendRemoteButtonEvent:pressedDown:remoteControl:', 'v@:ii@')

  def sendRemoteButtonEvent_pressedDown_remoteControl(buttonIdentifier, pressDown, remoteControl)
    puts "button #{buttonIdentifier}, pressed #{pressDown}"
  end
end


appleRemoteDelegate = AppleRemoteDelegate.alloc.init
appleRemote = AppleRemote.alloc.initWithDelegate(appleRemoteDelegate)
appleRemote.startListening self

NSApplication.sharedApplication.run

Leopard上でのOpenGL/GLUT

2008-01-07T05:39:00.001+09:00

昔のUnixMagazine記事で OpenGLによるクロスプラットフォーム開発の話を書いたのだがMacは含まれていなかった。 OSXにはOpenGLとGLUTがFrameworkとして標準装備されているので、以下のようにリンクするだけで簡単にビルドすることができる。

-framework GLUT -framework OpenGL

RubyOSA

2007-12-26T08:06:00.000+09:00

RubyOSA を使うとRubyからAppleScriptを操作できる。
例えば以下のスクリプトでiTunesの中の曲をリストできるので、 Rubyから検索したり自動再生したりできる。

require 'rubygems'
require 'rbosa'

OSA::app('iTunes').sources[0].library_playlists[0].tracks.each { |s|
  puts "#{s.name} / #{s.album} / #{s.artist}"
}

この方式だとAppleScript臭が皆無になるのが嬉しいかも。

RubyでMacの辞書アプリケーションを呼ぶ

2007-12-23T02:33:00.000+09:00

アプリケーションのサービスを利用するとMacのアプリケーションの機能を Rubyから呼び出すことができる。例えば辞書アプリを以下のように呼び出すことができて便利。

require 'osx/cocoa'

p = OSX::NSPasteboard.generalPasteboard                                                                                                                                       
p.declareTypes_owner([OSX::NSStringPboardType],self)                                                                                                                          
p.setString_forType("単語",OSX::NSStringPboardType)                                                                                                                           

OSX::NSPerformService("Look Up in Dictionary", p)

iTunesをRubyで制御する

2007-12-23T02:29:00.000+09:00

RubyCocoa経由でAppleScriptを呼ぶことによって RubyからiTunesなどを制御できるようだ。屋上屋を重ねる感じだが、とりあえず仕方がないのかも。

require 'osx/cocoa'

script = OSX::NSAppleScript.alloc.initWithSource(%{
tell application "iTunes"                                                                                                                                                                                   
  play                                                                                                                                                                                                      
end tell                                                                                                                                                                                                    
})
errinfo = OSX::OCObject.new
result = script.executeAndReturnError(errinfo)

Greasemonkeyで外部スクリプトを呼ぶ

2007-02-01T06:55:00.000+09:00

Greasemonkeyの中でprototype.jsなど外部のライブラリを呼ぶには以下のようにすればいいらしい。

面倒だけれども使える。

Rubilicious

2006-08-13T11:56:00.000+09:00

del.icio.us APIは仕様が変わったようなので古いRubiliciousが動かなくなってしまったようだ。まさお氏のパッチで直るようだ。

Rubilicious

2006-04-28T10:42:00.000+09:00

Rubiliciousから del.icio.usへのアクセスがエラーになるのでいろいろ調べていたら勝手に直ってしまった。
del.icio.usにしばらくアクセスしないとエラーになるんだろうか?

SQLite

2006-02-19T23:17:00.000+09:00

本棚.orgがどうにも遅いのでSQLiteという簡易RDBを試してみたところ、ファイルを利用してデータベースを構築するよりはかなり高速に処理できることがわかった。 SQLiteでは全データがひとつのファイルとして扱われるのだが本棚.org全データで30MBぐらいになる。意外と小さい。毎日バックアップをとっても困らないかもしれない。
...というわけで完全移行しようと思う。いつごろできるやら。

TCP通信のログを見る

2006-02-07T17:02:00.000+09:00

田中氏作のdebug-socket.rbを利用すると、 TCP通信のログを見ることができる。

require 'debug-socket'
require "xmlrpc/client"

server = XMLRPC::Client.new("b.hatena.ne.jp", "/xmlrpc", 80)
ok, param = server.call2("bookmark.getCount","http://d.hatena.ne.jp/")

param.each { |key,val|
  puts key
  puts val
}

などとするとXMLRPCのログが/tmpに残る。

Emacsに色をつける

2006-01-14T12:24:00.000+09:00

インデントに応じて色を変えると便利かと思ったのだが、こういうことをするためには文字ごとに属性を設定しなければならないらしい。面倒なのでやる気がうせたが一応作ってみた。

(setq indent-colors
     '(
       "DarkSeaGreen1"
       "DarkSeaGreen2"
       "DarkSeaGreen3"
       "DarkSeaGreen4"
       "SeaGreen1"
       "SeaGreen2"
       "SeaGreen3"
       "SeaGreen4"
       "PaleGreen1"
       "PaleGreen2"
       "PaleGreen3"
       ))

(defun set-indent-color ()
 (let (symbol face indent)
   (setq indent (% (indent-level) (length indent-colors)))
   (setq symbol (make-symbol (concat "indent" (format "%d" indent))))
   (setq face (make-face symbol))
   (set-face-foreground face "black")
   (set-face-background face (indent-color indent))
   (save-excursion
     (let (start end)
       (beginning-of-line)
       (setq start (point))
       (end-of-line)
       (setq end (point))
       (if (looking-at "\n") (setq end (1+ (point))))
       (put-text-property start end 'face face)
       ))
   ))

(defun set-indent-colors ()
 (save-excursion
   (let (old new (done nil))
     (goto-char 1)
     (setq old (point))
     (while (not done)
       (set-indent-color)
       (forward-line)
       (setq new (point))
       (setq done (= old new))
       (setq old new)
       )
   )))

(defun indent-color (indent)
 (let (c)
   (setq c (nth indent indent-colors))
   (if (null c)
       (setq c "white"))
   c
   ))

(defun indent-level ()
 (save-excursion
   (progn
     (beginning-of-line)
     (re-search-forward "[^ \t]" nil t)
     (backward-char)
     (current-column)
     )))

Windows/Mac上のRubyスクリプトをDrag&Dropで動かす

2006-01-11T12:02:00.000+09:00

WindowsでもMacintoshでも、ファイルをアイコンにDrag&DropすることによってRubyスクリプトを起動することができる。

Windowsの場合:
xxxx.batというバッチファイルを作り、以下のようにRubyスクリプトを記述する。
```
\cygwin\usr\local\bin\ruby -S -x %0 %1 %2
exit
#!ruby
file = ARGV[0]
(...普通のRubyスクリプト)
```
Macintoshの場合:
AppleScriptを使う。スクリプトエディタで以下のようなスクリプトを作成し、「アプリケーション形式」で保存するとxxxx.appのような名前のアプリケーション (ドロップレット)ができ、Drag&DropしたファイルがfileListに渡されるので、これらを連結して引数としてxxxx.rbに渡す。
```
on open (fileList)
  set args to ""
  repeat with i in fileList
    set arg to POSIX path of i
    set args to args & " " & arg
  end repeat
  do shell script "ruby xxxx.rb " & args
end open 
```

RubyでExifライブラリ(libexif)を使う

2006-01-09T10:46:00.000+09:00

RubyからExifファイル(デジカメのJPEG拡張形式)を扱うlibexif-rubyのインストールメモ。(Cygwin)

SourceForgeから libexif-0.6.13 を入手したがConfigureに失敗するので libexif-0.6.12 を入手してインストール。
libexif-rubyはオリジナルのものがうまく使えないので Debianの libexif-ruby_0.1.2.orig.tar.gz に libexif-ruby_0.1.2-7.diff.gz のパッチをあててruby extconf.rb; makeするとうまくいく。

JavaScriptで認意のサイトと通信する方法

2006-01-08T18:12:00.000+09:00

Ajaxで使われる XMLHttpRequestでは別サイトと通信を行なうことはできないのだが、 scriptタグを使うと認意のサイトと通信を行なうことができることをmala先生に教えてもらった。 (mala氏のコード) 以下のようなコードで動的にscript要素を生成し、 JavaScriptプログラムを吐くCGIを呼び出す。

var s=document.createElement("script");
s.charset="UTF-8";
s.type = "text/javascript";
s.src="http://pitecan.com/xxx.cgi";
document.body.appendChild(s)

たとえばxxx.cgiが

a = 100;

というテキストを返す場合、このコードが非同期的に実行されてaに100が代入される。 (appendChildの実行終了後すぐにこのコードが実行されるわけではないことに注意が必要である)

しかしscriptタグでこういうことができるのならば普通のAjaxで使うXMLHttpRequestは不要ということなのだろうか? 不思議。

CodeBlog

2006-01-07T12:22:00.000+09:00

g新部氏のプロジェクトに参加してコードブログを書く。 RubyとかJavaScriptとかのプログラムを読んでみよう。