CodeBlog

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

増井 — Sat, 19 Jan 2008 08:16:00 +0000

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

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

増井 — Sun, 13 Jan 2008 08:33:00 +0000

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のチェックディジットの計算

増井 — Tue, 08 Jan 2008 05:57:00 +0000

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で使う

増井 — Mon, 07 Jan 2008 00:16:00 +0000

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

増井 — Sun, 06 Jan 2008 20:39:00 +0000

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

-framework GLUT -framework OpenGL

RubyOSA

増井 — Tue, 25 Dec 2007 23:06:00 +0000

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の辞書アプリケーションを呼ぶ

増井 — Sat, 22 Dec 2007 17:33:00 +0000

アプリケーションのサービスを利用すると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で制御する

増井 — Sat, 22 Dec 2007 17:29:00 +0000

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で外部スクリプトを呼ぶ

増井 — Wed, 31 Jan 2007 21:55:00 +0000

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

面倒だけれども使える。

Rubilicious

増井 — Sun, 13 Aug 2006 02:56:00 +0000

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

Rubilicious

増井 — Fri, 28 Apr 2006 01:42:00 +0000

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

SQLite

増井 — Sun, 19 Feb 2006 14:17:00 +0000

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

TCP通信のログを見る

増井 — Tue, 07 Feb 2006 08:02:00 +0000

田中氏作の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に色をつける

増井 — Sat, 14 Jan 2006 03:24:00 +0000

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

(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で動かす

増井 — Wed, 11 Jan 2006 03:02:00 +0000

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)を使う

増井 — Mon, 09 Jan 2006 01:46:00 +0000

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で認意のサイトと通信する方法

増井 — Sun, 08 Jan 2006 09:12:00 +0000

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

増井 — Sat, 07 Jan 2006 03:22:00 +0000

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