PerlQt移植ヒストリ（第2回）

付属のチュートリアルを使用して、ビルドしたてのPerlQtを早速実行して見た。

$ perl -W -Iblib/arch -Iblib/lib -I$QTDIR/lib -Itutorials-2.0/t1 \
tutorials-2.0/t1/t1
Can't locate object method "new" via package "Qt::Application" (perhaps you 
forgot to load "Qt::Application"?) at tutorials-2.0/t1/t1 line 3.

「ひょっとしたら、"Qt::Application" をロードし忘れた？」と言われても困る。そのようなPMファイルは存在しないのだから。

デバッグコードを挿入して原因を調べたところ、以下の関数に問題があることを発見した。

void pig_autoload_methods(const char *pig0, pig_classinfo *pig1) {
    char *pigmethod;
    if(!_pig_autoloaded_methods)
        _pig_autoloaded_methods = newHV();
    hv_store(_pig_autoloaded_methods,
            (char *)pig0, strlen(pig0), newSViv((IV)pig1), 0);
    pigmethod = new char [strlen(pig0) + 11];
    sprintf(pigmethod, "%s::AUTOLOAD", pig0);
    newXS((char *)pigmethod, (XS((*)))PIG_AUTOLOAD, (char *)__FILE__);
    delete [] pigmethod;
}

この関数は各パッケージのAUTOLOADサブルーチンを定義するものだ。
しかし、肝心のパッケージを作成している処理が見つからない。
これではPerlに「ロードし忘れた？」と言われても仕方が無い。

色々と調べて見たが、パッケージを作成できるC言語の関数は見つからなかった。
そ こで、Perlスクリプトによってパッケージを作成する以下の方法を考えた。

void pig_autoload_methods(const char *pig0, pig_classinfo *pig1) {
    char *pigmethod;
    if(!_pig_autoloaded_methods)
        _pig_autoloaded_methods = newHV();
    hv_store(_pig_autoloaded_methods,
            (char *)pig0, strlen(pig0), newSViv((IV)pig1), 0);
    pigmethod = new char [strlen(pig0) + 11];
#if 0 /* 以下を差し替え */
    sprintf(pigmethod, "%s::AUTOLOAD", pig0);
#else
    sprintf(pigmethod, "%s::autoload", pig0);
    static char def_pkg[] = "\
package %s; \
sub AUTOLOAD \
{ \
    return undef if ($AUTOLOAD eq \"%s\"); \
    &%s; \
} \
1; \
";
    int bytes = sizeof (def_pkg) + strlen(pig0) + strlen(pigmethod) * 2;
    char *pkg = new char [bytes];
    sprintf(pkg, def_pkg, pig0, pigmethod, pigmethod);
    perl_eval_pv(pkg, 1);
    delete [] pkg;
#endif
    newXS((char *)pigmethod, (XS((*)))PIG_AUTOLOAD, (char *)__FILE__);
    delete [] pigmethod;
}

上記の修正により、Perlに「ロードし忘れた？」と言われずに済んだ。
ただし、表示される画面はチュートリアルもサンプルも以下のようにZaurusらしくない。

ここまで来るのに、実際には前回から1週間分の通勤時間と休日の数時間を必要とした。しかし、まだまだ先は長そうだ。

ここで培ったノウハウを以下に記載した。