日記

TeXを参考にしているせいか、文字の配置、ルビの振り方等、かなり美しく組版されています。これ、そのまま頂こうかな。

怪しげな関数を思いつきました。Javaでは表現しにくかった、Smalltalk風の表記法も、TJS2でなら実現できる！

Array.timesRepeat = function (lambda)
{
  if (this.count > 0) {
    var cnt = this[0];
    if (cnt > 0) {
      while (cnt--) {
        lambda();
      }
    }
  }
};

[ 3 ].timesRepeat(function () {println("hoge");});

Array.ifTrue = function (lambda)
{
  if (this.count > 0) {
    lambda() if (this[0]);
  }
};

Array.ifFalse = function (lambda)
{
  if (this.count > 0) {
    lambda() if (!this[0]);
  }
};

var foo = 5;
var bar = 3;

[ foo > bar ].ifTrue(function () {println("fuga");});
[ foo > bar ].ifFalse(function () {println("xyzzy");});

アホです。配列をこんなことに使うなよ…

冗談はさておき。TJS2では、オブジェクトはプロパティを持つことができます。関数もオブジェクトですから、関数もまたプロパティを持つことができます。では、その関数内部から、その関数オブジェクトが持つプロパティにアクセスする方法は？

var func = function()
{
  println(prop1);
};
func.prop1 = "hoge";
func();

現状のTJS2では、このコードは実行時エラーになります。

メンバ "prop1" が見つかりません at test/f2.tjs(3)[(function expression) (anonymous)]

func.prop1と明示すればアクセスできますが、これは美しくありません。また、thisはglobalを指すので、this.prop1でもダメです。まあ、これができたからといって、どうということもないのですが。

より高度なクロージャとは？にあったrange関数の改悪版。

Array.range = function(lambda)
{
  if (this.count > 1) {
    var begin = this[0];
    var end = this[1];
    var step = (this.count > 2) ? this[2] : 1;

    if (begin <= end) {
      step = -step if (step < 0);
      for (var i = begin; i <= end; i += step) {
        lambda(i);
      }
    } else {
      step = -step if (step > 0);
      for (var i = begin; i >= end; i += step) {
        lambda(i);
      }
    }
  }
};

[ 1, 3 ].range(function (n) {println(n);});
[ 5, 1, 2 ].range(function (n) {println(n);});

だから、配列をこういうことに（略）

全然関係ないですが、ラムダ関数で検索するとラムダ関数たん…ハァハァ（内容は真面目です）がトップにくるGoogleは素敵だと思いました。

ネットワーク関係。構想中。こんなイメージで進めてみましょうか。

static function Socket.getResourceViaHTTP(hostname, URI)

HTTP経由でデータを取得（GET）する。

static property Socket.lastError

最後に発生したエラー情報。

class ClientSocket

クライアント用ソケットクラス。原則、非同期モード。

function ClientSocket.ClientSocket()

コンストラクタ。

function ClientSocket.connect(serverHostname, serverPort)

サーバに接続する。

function ClientSocket.close()

クローズする。

property ClientSocket.isEndRequestSend

送信処理終了チェック。

property ClientSocket.isEndRequestReceive

受信処理終了チェック。

function ClientSocket.requestSend(data)

データ（文字列またはオクテット列）を送信する。

function ClientSocket.requestReceiveAsString(size)

文字列を受信する。（要求を出す）

function ClientSocket.requestReceiveAsOctet(size)

オクテット列を受信する。（要求を出す）

property ClientSocket.requestSendResult

リクエスト結果コード

property ClientSocket.requestReceiveResult

リクエスト結果コード

function ServerSocket.ServerSocket()

コンストラクタ

function ServerSocket.createServer(port, async, callbackAccept, callbackConnect, callbackClose, callbackRead, callbackWrite)

サーバソケットを生成する。

function ServerSocket.startServer()

サーバソケットを開始する。

function ServerSocket.accept()

接続受け入れ待ち

property ServerSocket.clientCount

接続中のクライアント数。

function ServerSocket.send(data)

データ（文字列またはオクテット列）を送信する。

function ServerSocket.receiveAsString(size)

文字列を受信する。

function ServerSocket.receiveAsOctet(size)

オクテット列を受信する。

property Socket.aliases

ホスト名エイリアス（配列）。

property Socket.addresses

アドレスエイリアス（配列）。

function Socket.getHostInfo(hostname)

ホスト情報を取得する。

今のテレビ放送事情って、HDTVだのデジタル放送だの、画質がどうの双方向性がどうの、なんだかもう、視聴者置いてけぼりです。まあ、正直言ってどうでもいいんですけどね。そこそこ綺麗に映ればいいんですよ、テレビなんて。本気で画質云々言ってるのは、一部の映像マニアだけじゃないんですか？

バジリスクと、十月から放映開始予定のリリカルなのはA'sがそこそこ綺麗に映ればそれで良し。画質に疎い俺にとっては、テレビなんてそんなもの。

あ、いや、待て。ゲームの画面は綺麗に映って欲しいな。

• LunaClientSocketクラスインスタンスは、メンバにソケットハンドルとオーバーラップデータを持つ。
• インスタンスはWSASend/WSARecvで、オーバーラップI/Oを使用してリクエストを発行する。
• このとき、オーバーラップデータへのポインタと、リクエスト処理完了時コールバック関数へのポインタも指定する。
• このコールバック関数はソケットハンドルを受け取れない。
• このコールバック関数は、通常の__stdcall。
• 通常の関数ポインタを受け取る引数に、メンバ関数へのポインタを渡すのは危険 ^*1 。

つまり、このコールバック関数は、どのインスタンスが登録したものなのかを、自分で知ることができません。それどころか、どのソケットなのかすらもわかりません。

…これで昨日は悩んだわけですが、今日、HTTPサーバーからファイルを取り寄せるを見て、やっと解法がわかりました。LunaのOVERLAPEDDATA構造体の先頭にWSAOVERLAPPED構造体を配置し、その後ろに自分自身へのポインタを配置します。

struct OVERLAPEDDATA
{
  WSAOVERLAPPED Overlap;
  LunaClientSocket * Client;
  // …略
};

WSASend/WSARecvをコールするときは、OVERLAPEDDATA構造体へのポインタを、WSAOVERLAPPEDへのポインタにキャストして渡せばいいだけです。コールバック関数は、受け取ったWSAOVERLAPPEDへのポインタを、OVERLAPEDDATA構造体へのポインタにキャストし直せば、OVERLAPEDDATA構造体経由でインスタンスへのポインタを取得することができます。もちろん、渡したポインタと受け取ったポインタが同じ場所を指している、というのが大前提ですけどね。

ところで、まだ一度も動作確認してないんですが…

Winsock2そのものと、LunaClient(or Server)Socketを管理・制御するための専用クラスを作成しました。管理下にあるソケット全てを一斉にクローズしたり、Winsock2の開始とシャットダウンを管理したり、まあそんな感じのことをします。吉里吉里プラグインとして使用中のソケットを監視制御するのに必要となるでしょう。特に、プラグインのアンリンク時にはしっかり解放してやらないと。

libiconvに関する良い資料が見つからず、手こずりました。以下、Borland C++ Compilerで使うときのメモ。

1. GNU FTPミラーサーバ(core.ring.gr.jp)等からlibiconv-1.9.1.bin.woe32.zipをダウンロード。
2. iconv.dllとcharset.dllを取り出す。charset.dllは要らないかも？
3. implibでインポートライブラリを作成。implib -a iconv.lib iconv.dllimplib -a charset.lib charset.dll

プログラムする上での注意点。

• iconv_openの引数の順序に注意。
• iconv_openで取得した変換ディスクリプタは、cd == (iconv_t)(-1)で比較して必ずエラーチェックすること。
• iconvの引数 char ** inbuf と char ** outbuf は、ポインタへのポインタ。変換が進むと、進んだ分だけポインタ inbuf と outbuf がインクリメントされる。どれだけ変換された（ポインタが進んだ）かは、それぞれ inbytesleft、outbytesleft でわかる。これらも書き換えられる。
• つまり、iconv関数を実行すると、cd以外の引数は全て書き換わっている可能性があるということ。
• iconvの戻り値は、非可逆変換（一方通行の変換---戻せない）した文字数。完全な一対一の変換なら0が返る。
• errnoにセットされる可能性のあるEILSEQマクロは、環境によっては定義されていない。定義されていない場合、iconv.hはEILSEQを@EILSEQ@ でdefineしてしまうので、EILSEQを使用したコードはコンパイル時にエラーとなる。
• 用が済んだらiconv_closeで変換ディスクリプタを解放すること。

なぜiconvなんかを弄っているかというと、文字の符号化変換モジュールを作成するためです。このモジュールは、吉里吉里が内部で持っているワイド文字列（16ビット体系かな？）と、符号化されたオクテット列との相互変換を行います。

前々から欲しいと思っていた ^*1 、というのもありますが、ソケットを使う上でいずれ必要になる、というのが大きいです。例えば、文字列の送受信等で、通信相手が、自分とは異なる特定の符号化方法しかサポートしていない場合、符号化方法を変換してあげる必要がありますから。

…いや、そもそもソケットプラグインではオクテット列の送受信しか対応しない予定 ^*2 なので、文字列送受信には必須になるかもしれません。

libiconvって、LGPLなんですよね。吉里吉里のプラグインは、できれば吉里吉里独自のライセンスか、BSDライセンスか、あるいは「好きにしてくれ状態」で公開したいと考えているので、気をつけて扱わないとGPL汚染されてしまいます。まあ、動的リンクだから問題ないか。

文字の符号化方法を変換する機構を作成しました。perlみたいに、Encoder.encode(encname, text)、Encoder.decode(encname, octet)で変換できます。EUC-JPでもMacArabicでも何でも来やがれ、て感じですかね。

バイナリファイルを読み書きするためのクラスを作成しました。普通にdata = stream.read(SIZE)とかwritten = stream.write(octet, SIZE)みたいに扱えます。

こういうのを作っておけば、ソケットのテストが多少は楽になるでしょう。

なんか、バイナリファイルストリームにかかりっきりで、ソケットの作業が全然進んでません。連休中にクライアントくらいは、と思っていたのですが。うーむ。

lainを鑑賞しながらコーディング。奇妙なアニメですね、これ。奇妙なコードになったらこのアニメのせいにしよう。

TJS2文字列（UTF-16LE） → オクテット列（CP932） → クライアントソケット →SSPが反応。ここまではOK。

さて、送信終了後のCompleteCallbackSendをどうするか。うまくいかないんだ、これが（涙）

送信完了時コールバック関数自体は実行されているのですが、内部でキックしているはずのTJS関数が期待通りに動いてくれていない様子。FuncCall()自体は例外も出さず、戻り値も0なのですが、実行結果が反映されていません。うーむ。