[ruby-dev:1060] Re: Postgres module

まつもと ゆきひろです

ruby-devに引っ越しました．

In message "[ruby-list:5646] Re: Postgres module"
    on 97/12/12, Eiji-usagi-MATSUmoto <[e-mail]> writes:

|うさぎです

|んで,
|
| ・ 配列を返すメソッドがあるのだから,それを呼び出して
| ・ array.cを参考にして,eachを実装し,
| ・ dbm.cにあるように,Enumerableをincludeした.
|
|だけなんですが,こんなのでいいんでしょうか?

まあ，それでも良いと思うんですが，せっかくですから無駄な配列
を作らずに

  static VALUE
  pgresult_each(obj)
      VALUE obj;
  {
      PGresult *result;
      int nt, nf, i, j;

      result = get_pgresult(obj);
      nt = PQntuples(result);
      nf = PQnfields(result);
      for (i=0; i<nt; i++) {
          VALUE row = ary_new2(nf);
          for (j=0; j<nf; j++) {
              ary_push(row, str_new2(PQgetvalue(result, i, j)));
          }
          rb_yield(row);
      };

      return Qnil;
  }

なんてのがよろしいのでは？ 効率はそんなに変わらないみたいで
すけどね．

そうそう以下のようなarefも欲しいなあ

  static VALUE
  pgresult_aref(argc, argv, obj)
      int argc;
      VALUE *argv;
      VALUE obj;
  {
      PGresult *result;
      VALUE a1, a2, val;
      int i, j, nf;

      switch (rb_scan_args(argc, argv, "11", &a1, &a2)) {
        case 1:
          val = ary_new();
          i = NUM2INT(a1);
          nf = PQnfields(result);
          VALUE row = ary_new2(nf);
          for (j=0; j<nf; j++) {
              ary_push(row, str_new2(PQgetvalue(result, i, j)));
          }
          return val;

        case 2:
          i = NUM2INT(a1);
          j = NUM2INT(a2);
          return str_new2(PQgetvalue(result, i, j));

        default:
          return Qnil;		/* not reached */
      }
  }

  void
  Init_postgres()
  {
      ...
      rb_define_method(cPGresult, "[]", pgresult_aref, -1);
      ...
  }

# すいません．まったく試してません(コンパイルすら)．

                                まつもと ゆきひろ /:|)