omonuinen

あまり知られていないかもしれないが、Android上でPharo Smalltalkを動かすことができる。実際にPharoで作られたDrGeoというアプリケーションがGoogle Playで配布されているくらいだ。
以下では、Android上で動くPharoアプリケーションをどのように作るかについてまとめる。
情報源としては、squeakvm-tabletを参考にした。
なお、上記サイトではCogDroidとPharoDroidの２つのVMが利用できると書かれているが、後者は現時点でダウンロードできないため、前者のCogDroidを用いた作成方法について説明する。また、一般的にARMアーキテクチャのデバイスを用いることが多いと思われるのでARMに絞った話にしてあるのと、私自身はMac上で開発を行っているので、Macでの方法であることを予め断っておく。
続きを読む →

以前にPharoでXMLRPCを使う。という記事を書いたが、Pharo 2.0でXMLRPC使おうとすると問題が起こる。
というのもXMLRPCではKom系のWebサーバーを使っているのに対して、Pharo 2.0ではZincがデフォルトだからである。
過去の記事どおりにインストールしようとすると、いろいろなパッケージを入れた後でエラーとなってしまう。
手動でKom系を追加してもいいのだろうが、今後どのような扱いがされるのか不安なので、XMLRPCでZincが使えるようにした。
嘘です。嘘を言いました。ごめんなさい。
実は、既にXMLRPCではZincが使えるようにされているので若干の修正を加えればちゃんと動きます。
ConfigurationOfXMLRPCを書き換えるのが面倒だったので、以下では、手動で構築する手順について述べていきます。

準備

XMLParserとXMLWriterが必要なので、あらかじめパッケージをインストールしておきます。

MetacelloConfigurationBrowser open.

でMetacelloのブラウザを起動し、一覧からXMLParserを選んでInstallボタンを押してインストールします。
ついでにXMLWriterも自動的にインストールされるので、これで準備はOKです。

Client-Coreパッケージのロード

まずは、XMLRPCのClientパッケージをロードする。そのために、Monticelloにレポジトリを追加する。

MCHttpRepository
	location: 'http://ss3.gemstone.com/ss/XMLRPC'
	user: ''
	password: ''

上記のようにHTTPのレポジトリを追加して開くと、XMLRPC関係のパッケージが表示される。
XMLRPC-Client-Coreを選んだら、右側のペインでXMLRPC-Client-Core-SantiagoBragagnolo.30を選んでLoadする。
（おそらく、これ以降のパッケージを選んでも大丈夫だと思うが、EiichiroItoというシグネチャのものは選ばない方がいいと思われるwww。以下同様。）

Client-Testsパッケージのロード

この手のパッケージでテストしないのは地獄を見るだけなので、Testsパッケージも追加する。
先ほどのレポジトリから、XMLRPC-Clients-Testsを選び、右側のペインでXMLRPC-Client-Tests-SantiagoBragagnolo.14を選んでLoadする。

Server-Coreパッケージのロード

レポジトリの左側のペインでXMLRPC-Server-Coreを選び、XMLRPC-Server-Core-SantiagoBragagnolo.19をLoadする。

Server-Testsパッケージのロード

レポジトリの左側のペインでXMLRPC-Server-Coreを選び、XMLRPC-Server-Tests-SantiagoBragagnolo.9をLoadする。
これで一通りのパッケージがロードできた。
しかし、現在のテストコードはKom用なので、これをZinc用に書き換える必要がある。

XMLRPCTestクラスの修正

XMLRPCTestクラスのsetUpメソッドを修正する。このメソッドでは、XMLRPCKomServerEchoTestを使ってテストするように書かれているが、この部分をXMLRPCZNServerEchoTestに書き換える。

XMLRPCStandardEchoクラスの修正

XMLRPCStandardEchoクラスのクラス側メソッドであるecho:を修正する。

echo: aValue
   ^aValue

元のコードでは、エコーで返されるコレクションのfirstをとるようになっているが、このfirstを削除してaValueそのものを返すようにする。

XMLRPCZNServerEchoTestクラスの修正

XMLRPCZNServerEchoTestクラスのsetUpを修正する。

setUp
	"self new setUp"
	"XMLRPCHttpModule stop"
	XMLRPCServer defaultClass: XMLRPCZNServer.
	newServer := false.
	XMLRPCStandardEcho addTests.
	XMLRPCHttpModule
		start;
		setDebugMode.
	(Delay forMilliseconds: 5) wait.
	newServer := true

元のコードでは、HttpServiceでサービスの登録有無を確認しているが、特に必要ないと思われるのでその部分をごっそり削除する。
以上でZincへの対応は終わり。テストクラスのうち、XMLRPCKomServerEchoTestとXMLRPCKomServerTestを除けばちゃんとグリーンでテストがとおるようになる。

問題点

実は大きな問題があり、この修正をかけた後でサーバーを起動したまま保存＆終了すると、次回Pharoがフリーズするという現象を確認している。
Save & Quitする場合は確実にサーバーを止めないと非常に痛い目にあうので注意すること。

昨日のSmalltalk勉強会で学んだNativeBoostで何をやろうかいろいろ考えてたけど、今朝ふっと思い立ったのは「音を鳴らす」だった。
学園祭のゲームで音がないのが寂しかったけど、PharoSoundの状況は芳しくないしどうにもならないと考えていた。
でも、マルチメディア関数を使えば直接鳴るはずではないか！ということに気づいた。
ということで、適当なクラス（SoundTest1）を作って、以下のようなメソッドを追加した。

playSoundNamed: aString
  <primitive: #primitiveNativeCall module: #NativeBoostPlugin>
  ^ self nbCall: #( int PlaySoundA (String aString, 0, 1)) module: 'C:\Windows\System32\winmm.dll'

でもって適当なワークスペースで以下をDo itする。

SoundTest1 new playSoundNamed: 'C:\Windows\Media\chimes.wav'

チャイムが鳴った！
Windows XPでしか試していないけど、超手軽に音を鳴らせることができた。
あと１週間前に気づいていればゲームも華やかになったのだが…
来年の楽しみにしておこう。

Pharo上でマリオが動くという。ウチのゼミではマリオゲームもどきを作っているだけに、どんなものかを試してみた。
NesTalkというパッケージがそれらしい。パッケージ名のとおりNESのエミュレータをPharoで実装したもののようである。
YouTubeのビデオを見るとちゃんと動いていることがわかる。
そのままインストールしようとするとパッケージが不足している旨の警告が出るため、BabyMockのインストールからはじめる。

MCHttpRepository
    location: 'http://ss3.gemstone.com/ss/BabyMock'
    user: ''
    password: ''

上記のレポジトリから、ConfigurationOfBabyMockをインストールする。続いて、

ConfigurationOfBabyMock loadDevelopment.

によってBabyMockをインストールする。
次に、以下のレポジトリからNesTalkをインストールする。

MCHttpRepository
	location: 'http://smalltalkhub.com/mc/zeroflag/NesTalk/main'
	user: ''
	password: ''

適当にロムイメージを入手して、以下のように起動する。パス名の指定のところは適当に変える必要がある。

nes := NesTalk new.
nes insertCartridge: (NtCartridge romFile: (FileSystem disk workingDirectory / 'mario_bros' / 'Mario Bros.nes') pathString).
nes powerOn.

終わったらビデオの通り、以下のようにシャットダウンする。

nes powerOff.

うちの環境(MacBookAir)では、8キーで左、0キーで右に移動できたが、その他のキーがよくわからないためクリアすることはできなかった。
どうやらキーコードの取り方の問題のようで、NesTalkWindow>>#handlesKeyDown:と#handlesKeyUp:を変更することで操作できるようになった。

handlesKeyDown: anEvent
	anEvent keyValue = 6 ifTrue: [joypad pressButtonAt: NtJoypad buttonA. ^ true].
	anEvent keyValue = 7 ifTrue: [joypad pressButtonAt: NtJoypad buttonB. ^ true].
	anEvent keyValue = 125 ifTrue: [joypad pressButtonAt: NtJoypad buttonDown. ^ true].
	anEvent keyValue = 126 ifTrue: [joypad pressButtonAt: NtJoypad buttonUp. ^ true].
	anEvent keyValue = 123 ifTrue: [joypad pressButtonAt: NtJoypad buttonLeft. ^ true].
	anEvent keyValue = 124 ifTrue: [joypad pressButtonAt: NtJoypad buttonRight. ^ true].
	anEvent keyValue = 36 ifTrue: [joypad pressButtonAt: NtJoypad buttonStart. ^ true].
	anEvent keyValue = 49 ifTrue: [joypad pressButtonAt: NtJoypad buttonSelect. ^ true].
	^ false

handlesKeyUp: anEvent
	anEvent keyValue = 6 ifTrue: [joypad releaseButtonAt: NtJoypad buttonA. ^ true].
	anEvent keyValue = 7 ifTrue: [joypad releaseButtonAt: NtJoypad buttonB. ^ true].
	anEvent keyValue = 125 ifTrue: [joypad releaseButtonAt: NtJoypad buttonDown. ^ true].
	anEvent keyValue = 126 ifTrue: [joypad releaseButtonAt: NtJoypad buttonUp. ^ true].
	anEvent keyValue = 123 ifTrue: [joypad releaseButtonAt: NtJoypad buttonLeft. ^ true].
	anEvent keyValue = 124 ifTrue: [joypad releaseButtonAt: NtJoypad buttonRight. ^ true].
	anEvent keyValue = 36 ifTrue: [joypad releaseButtonAt: NtJoypad buttonStart. ^ true].
	anEvent keyValue = 49 ifTrue: [joypad releaseButtonAt: NtJoypad buttonSelect. ^ true].
	^ false

なお、上記の変更を行えば、Mac以外の環境では動かないと思われるので注意。