ruby-list

大島です。

[ruby-list:22451]に添付したパッチでは、packでBignumを扱っていません
でした。やはりそれではまずいと思いまして、packでもBignumを扱えるよう
にしました。最後にそのパッチを添付しておきます。([ruby-list:22451]の
パッチは当てずに、直接にこのパッチを当ててください。)

From: Takayuki YAMAGUCHI <tyamaguchi@geocities.co.jp>
Subject: [ruby-list:22461] Re: pack/unpack 'w' (BER comperssed integer)
Date: Thu, 11 May 2000 19:22:52 +0900

> At 12:56 +0900 2000.5.11, Ryunosuke Ohshima wrote:
> >Namazuのインデックスの読み出しに、BER圧縮整数値の変換が必要になりま
> >した。Perlではpack/unpackの'w'テンプレートによってこの変換が実装され
> >ているので、試しにRubyに実装してみました。
> 
> 有り難うございます_o_
> ＃いきなり押し付けてしまって申し訳なかったです<pack 'w'

いえいえ、この実装は楽しかったです。もともとは下のようなメソッドを書
いていて、僕は事足れりと思っていました。ですが、やまぐちさんにメール
をいただいて、ちょっと実装してみる気になったところ、僕でもなんとかで
きてしまいました。rubyのソース自体が読みやすいおかげだと思います。

  def unpack_w(wstring)
    results = Array.new()
    result = 0
    wstring.each_byte() do |tmpbyte|
      if tmpbyte < 128
	result += tmpbyte
	results.push(result)
	result = 0
      else
	result += (tmpbyte - 128)
	result *= 128
      end
    end
    results
  end

> >ところでBERって何の略なのでしょうか？perlとpnamazuのソースを参考にし
> >て実装したもので、BER圧縮整数値自体についての明確な文献は見つけられ
> >ませんでした。
> 
> 現実逃避ついでに調べてみました
> Basic Encoding Rulesの略で、ASN.1の符号化規則の一つだそうです。
> 
> http://www.intap.or.jp/oiia/cont1/p0302.html{0recid=10760.html
> あたりに簡単な説明があります。

ありがとうございます。ISOが定めている規格でしたか。売り物だから、Web
では直接の情報がみつからなかったのか。

> P.S.rbnamazuの方、よろしくお願いします＞大島さん

どれだけご期待に添えるかわかりませんが、できる部分はやってみます。もっ
とも、単語毎の得点を取り出して、ページの得点を算出する部分しか出来て
いないです。まだバギーですし。

大島 龍之介	ryu@jaist.ac.jp

Attachments (1)

ruby_pack.patch (2.64 KB, text/x-diff)

diff -ru ruby_orig/bignum.c ruby/bignum.c
--- ruby_orig/bignum.c	Thu May 11 22:47:30 2000
+++ ruby/bignum.c	Thu May 11 22:51:05 2000
@@ -944,7 +944,7 @@
     return rb_big_modulo(x, y, 0);
 }
 
-static VALUE
+VALUE
 rb_big_divmod(x, y)
     VALUE x, y;
 {
diff -ru ruby_orig/intern.h ruby/intern.h
--- ruby_orig/intern.h	Thu May 11 22:47:30 2000
+++ ruby/intern.h	Thu May 11 22:51:05 2000
@@ -68,6 +68,7 @@
 VALUE rb_big_plus _((VALUE, VALUE));
 VALUE rb_big_minus _((VALUE, VALUE));
 VALUE rb_big_mul _((VALUE, VALUE));
+VALUE rb_big_divmod _((VALUE, VALUE));
 VALUE rb_big_pow _((VALUE, VALUE));
 VALUE rb_big_and _((VALUE, VALUE));
 VALUE rb_big_or _((VALUE, VALUE));
diff -ru ruby_orig/pack.c ruby/pack.c
--- ruby_orig/pack.c	Thu May 11 22:47:30 2000
+++ ruby/pack.c	Thu May 11 23:33:04 2000
@@ -843,6 +843,53 @@
 	    }
 	    break;
 
+	  case 'w':
+	    while (len-- > 0) {
+		unsigned long ul;
+		VALUE buf = rb_str_new(0, 0);
+		char c, *bufs, *bufe;
+
+		from = NEXTFROM;
+
+		if (TYPE(from) == T_BIGNUM) {
+		    VALUE big128 = rb_uint2big(128);
+		    while (TYPE(from) == T_BIGNUM) {
+			from = rb_big_divmod(from, big128);
+			c = NUM2INT(RARRAY(from)->ptr[1]) | 0x80; /* mod */
+			rb_str_cat(buf, &c, sizeof(char));
+			from = RARRAY(from)->ptr[0]; /* div */
+		    }
+		}
+
+		if (NIL_P(from)) ul = 0;
+		else {
+		    ul = NUM2ULONG(from);
+		}
+
+		while (ul) {
+		    c = ((ul & 0x7f) | 0x80);
+		    rb_str_cat(buf, &c, sizeof(char));
+		    ul >>=  7;
+		}
+
+		if (RSTRING(buf)->len) {
+		    bufs = RSTRING(buf)->ptr;
+		    bufe = bufs + RSTRING(buf)->len - 1;
+		    *bufs &= 0x7f; /* clear continue bit */
+		    while (bufs < bufe) { /* reverse */
+			c = *bufs;
+			*bufs++ = *bufe;
+			*bufe-- = c;
+		    }
+		    rb_str_cat(res, RSTRING(buf)->ptr, RSTRING(buf)->len);
+		}
+		else {
+		    c = 0;
+		    rb_str_cat(res, &c, sizeof(char));
+		}
+	    }
+	    break;
+
 	  default:
 	    break;
 	}
@@ -1569,6 +1616,37 @@
 			rb_str_cat2(str, t);
 		    }
 		    rb_ary_push(ary, str);
+		}
+	    }
+	    break;
+
+	  case 'w':
+	    {
+		unsigned long ul = 0;
+		unsigned long ulmask = 0xfe << ((sizeof(unsigned long) - 1) * 8);
+
+		while (len > 0 && s < send) {
+		    ul <<= 7;
+		    ul |= (*s & 0x7f);
+		    if (!(*s++ & 0x80)) {
+			rb_ary_push(ary, rb_uint2inum(ul));
+			len--;
+			ul = 0;
+		    }
+		    else if (ul & ulmask) {
+			VALUE big = rb_uint2big(ul);
+			VALUE big128 = rb_uint2big(128);
+			while (s < send) {
+			    big = rb_big_mul(big, big128);
+			    big = rb_big_plus(big, rb_uint2big(*s & 0x7f));
+			    if (!(*s++ & 0x80)) {
+				rb_ary_push(ary, big);
+				len--;
+				ul = 0;
+				break;
+			    }
+			}
+		    }
 		}
 	    }
 	    break;

Thread

Prev Next

In This Thread

Prev Next

[#22221] eRuby PNG patch — OZAWA Sakuro <crouton@...>

[#22224] text buffer — Minero Aoki <aamine@...>

[#22228] Re: #define const — toyofuku@...

[#22229] license of Ruby — TAKAHASHI Masayoshi <maki@...>

[#22238] Agancy? — Wakou Aoyama <wakou@...>

[#22242] <<< hoge.rd (rd2 bug) — gotoken@... (GOTO Kentaro)

[#22260] thread and Gtk.main — Yasushi Shoji <yashi@...>

[#22267] runit — Masatoshi SEKI <m_seki@...>

[#22268] irb on 1.4.? — "Kikutani, Makoto" <kikutani@...>

[#22275] host.conf は参照しないの？ — Uechi Yasumasa <uechi@...>

[#22276] Access Control List — Masatoshi SEKI <m_seki@...>

[#22284] escape in here document (1.4.4) — "Kikutani, Makoto" <kikutani@...>

[#22288] ruby-mysql と mod_ruby の組合せでエラー — Sakae Kobayashi <sakae@...>

[#22297] [PATCH] hide other block for rd-mode.el — nobu.nakada@...

[#22311] update uri.rb — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#22317] $0hoge, $1hoge — MOROHOSHI Akihiko <moro@...>

[#22323] Be FileType and Attribute library — tenmei@... (Noriaki Harada)

[#22325] comp.lang.ruby — matz@... (Yukihiro Matsumoto)

[#22331] undefined method — Masaki Suketa <CQN02273@...>

[#22346] mod_ruby installation — Akihiro Yamauchi <aygoofy@...>

[#22347] (RD) Verbatim — gotoken@... (GOTO Kentaro)

[#22361] rexp excluding Japanese — "Kikutani, Makoto" <kikutani@...>

[#22363] cgi.rb is too slow — WATANABE Hirofumi <eban@...>

[#22369] lists generated by rd2man — kjana@... (YANAGAWA Kazuhisa)

[#22374] about Gtk::RadioMenuItem — goto@...

[#22383] tmail-0.8.6 on ruby-1.4.4 — rubikitch <rubikitch@...>

[#22384] tmail — rubikitch <rubikitch@...>

[#22392] mod_ruby and suexec — Kenji Horikoshi <k-horix@...>

[#22397] new RD site — rubikitch <rubikitch@...>

[#22403] rd-mode.el — rubikitch <rubikitch@...>

[#22405] Release Schedule — ARIMA Yasuhiro <fit0298@...>

[#22409] postgres security — Noboru Saitou <noborus@...>

[#22422] media watch 2000.05.08 — Noritsugu Nakamura <nnakamur@...>

[#22431] /\c[/ — Wakou Aoyama <wakou@...>

[#22432] Wake on LAN with Ruby. — "K.Kodama" <kdm@...>

[#22434] Re: win OLE / eRuby — "NAKAMURA, Hiroshi" <nakahiro@...>

[#22436] RDindex 1.0.1 release — rubikitch <rubikitch@...>

[#22447] Re: Welcome to our (ruby mailing list) You are added automatically — "Kahori Takeuchi" <EB89012@...>

[#22448] Re: win OLE / eRuby — "Kahori Takeuchi" <EB89012@...>

[#22451] pack/unpack 'w' (BER comperssed integer) — Ryunosuke Ohshima <ryu@...>

[#22458] IO.foreach — Hiroshi SATO <hiroshi@...>

[#22483] p option of Regexp — Shin-ichiro Hara <sinara@...>

[#22489] M17N/I18N for Ruby — TAKAHASHI Masayoshi <maki@...>

[#22494] [Q] blade internal design — Hideto ISHIBASHI <hideto-i@...4u.or.jp>

[#22498] Re: M17N/I18N for Ruby — TAKAHASHI Masayoshi <maki@...>

[#22529] TCPServer.open() — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#22538] — "Kozuka Masahiro" <kozuka@...>

[#22539] Array.concat on ruby-1.5.3 — Tokita Kousui <ktokita@...>

[#22557] — "Kozuka Masahiro" <kozuka@...>

[#22559] eruby を windows98 で make(rubymw.dll), 実行時エラー発生 — Hiroshi Saito <HiroshiSaito@...>

[#22582] tmail0.8.8 — rubikitch <rubikitch@...>

[#22583] TMail::Mail RD document — rubikitch <rubikitch@...>

[#22585] =~ — NAWATE Masahiko <agul@...>

[#22593] Re: =~ — NAWATE Masahiko <agul@...>

[#22620] ftpup-1.3.3 — Shugo Maeda <shugo@...>

[#22624] Ruby Hotlinks — SUGIHARA Hiroshi <maili31s@...>

[#22668] CGI での添付ファイル付きメール送信 — Yukihiko Eda <eda@...>

[#22669] about net/telnet.rb — goto@...

[#22670] def foo= が呼ばれない — ARIMA Yasuhiro <fit0298@...>

[#22671] assert with iterator — rubikitch <rubikitch@...>

[#22685] runit — rubikitch <rubikitch@...>

[#22688] charset について — Shinya TOMOBE <shinya.tomobe@...>

[#22694] iterator? — Wakou Aoyama <wakou@...>

[#22728] — Miyazaki Shuhei <miyashu@...>

[#22737] link — Koyama Hideo <fa8h-kym@...>

[#22739] mod_ruby での __FILE__ — Shinya TOMOBE <shinya.tomobe@...>

[#22740] Re: #define const — toyofuku@...

[#22741] Re: iterator? — VLIW <cdrcarco@...>

[#22762] media watch 2000.05.18 — Noritsugu Nakamura <nnakamur@...>

[#22765] postgres-0.6.0 — Noboru Saitou <noborus@...>

[#22771] static instance — nobu.nakada@...

[#22789] OpenDesign 気になった点 — Noritsugu Nakamura <nnakamur@...>

[#22792] ruby 1.4.5 ? — Minero Aoki <aamine@...>

[#22793] ruby/tk の SUNOS でのコンパイル方法について — 山根 修一 <s-yamane@...>

[#22794] Ruby/KAKASI のありか — src <src@...>

[#22807] String#each_char — Wakou Aoyama <wakou@...>

[#22819] Re: メーリングリスト（ ruby-list ）との gateway — Yukihiro Matsumoto <matz@...>

[#22828] zlib — TAKAHASHI Masayoshi <maki@...>

[#22839] 脱会します — "T.Kanemaru" <kanemaru@...>

[#22844] またもや rd-mode.el — rubikitch <rubikitch@...>

[#22739] mod_ruby での FILE — Shinya TOMOBE <shinya.tomobe@...>

[#22793] ruby/tk の SUNOS でのコンパイル方法について — 山根　修一 <s-yamane@...>