[ruby-dev:4364] Re: module Precision

ごとけんです

In message "[ruby-dev:4317] Re: module Precision"
    on 99/01/21, 石塚圭樹 <[e-mail]> writes:
>けいじゅ＠日本ラショナルソフトウェアです.

>>[ruby-dev:4030] はそれなりに煮つめた議論の成果なので
>>あれでいいですよね?? > 関心のあるみなさん
>
>えーと. 良く覚えていませんが, 私もそれなりの結論が出ていたと思います.
>あとは, 実装するだけかしら...

ということで実装しました．
こんなところに手をいれたのは初めてなので不安ですけど．
# ruby 1.3.1 に間に合うかなぁ…

追加点を以下に列挙します．

組み込みクラス

  Integer

    インクルードしているいるモジュール:

       Precision

    クラスメソッド:

      induced_from(num)
	num を Integer に変換した結果を返します．

  Float

    インクルードしているいるモジュール:

       Precision

    クラスメソッド:

      induced_from(num)
	num を Float に変換した結果を返します．

組み込みモジュール

  Precision

    精度をもった具象数値クラスのためのMixin．このモジュールを
    インクルードするクラスは精度変換のためのクラスメソッド
    induced_from を定義している必要があります．

    メソッド:

      prec(klass)
	klass で指定されたクラスに self を変換します．

      prec_i
	self を Integer に変換します．prec(Integer) と等価です．

      prec_f
	self を Float に変換します．prec(Float) と等価です．


それと，SingleFloat という単精度浮動小数点数を実装したら，
Numeric の下に組み込んでもらえますか??

-- gotoken

diff -Nu0r ruby-1.3-orig/MANIFEST ruby-1.3/MANIFEST
--- ruby-1.3-orig/MANIFEST	Tue Dec 22 18:01:48 1998
+++ ruby-1.3/MANIFEST	Tue Jan 26 01:53:23 1999
@@ -52,0 +53 @@
+prec.c
diff -Nu0r ruby-1.3-orig/Makefile.in ruby-1.3/Makefile.in
--- ruby-1.3-orig/Makefile.in	Thu Dec 24 13:30:11 1998
+++ ruby-1.3/Makefile.in	Tue Jan 26 01:56:56 1999
@@ -57,0 +58 @@
+		prec.o \
@@ -215,0 +217 @@
+prec.o: prec.c ruby.h config.h defines.h intern.h
diff -Nu0r ruby-1.3-orig/inits.c ruby-1.3/inits.c
--- ruby-1.3-orig/inits.c	Tue Oct  6 12:28:10 1998
+++ ruby-1.3/inits.c	Tue Jan 26 01:57:28 1999
@@ -33,0 +34 @@
+void Init_Precision _((void));
@@ -53,0 +55 @@
+    Init_Precision();
diff -Nu0r ruby-1.3-orig/numeric.c ruby-1.3/numeric.c
--- ruby-1.3-orig/numeric.c	Wed Dec 16 16:30:32 1998
+++ ruby-1.3/numeric.c	Tue Jan 26 01:48:33 1999
@@ -780,0 +781,21 @@
+rb_fix_induced_from(klass, x)
+    VALUE klass, x;
+{
+    return rb_funcall(x, rb_intern("to_i"), 0);
+}
+
+static VALUE
+rb_int_induced_from(klass, x)
+    VALUE klass, x;
+{
+    return rb_funcall(x, rb_intern("to_i"), 0);
+}
+
+static VALUE
+rb_flo_induced_from(klass, x)
+    VALUE klass, x;
+{
+    return rb_funcall(x, rb_intern("to_f"), 0);
+}
+
+static VALUE
@@ -1382,0 +1404 @@
+    rb_include_module(rb_cInteger, rb_mPrecision);
@@ -1387,0 +1410,3 @@
+    rb_include_module(rb_cFixnum, rb_mPrecision);
+    rb_define_singleton_method(rb_cFixnum, "induced_from", rb_fix_induced_from, 1);
+    rb_define_singleton_method(rb_cInteger, "induced_from", rb_int_induced_from, 1);
@@ -1438,0 +1464,3 @@
+
+    rb_define_singleton_method(rb_cFloat, "induced_from", rb_flo_induced_from, 1);
+    rb_include_module(rb_cFloat, rb_mPrecision);
diff -Nu0r ruby-1.3-orig/prec.c ruby-1.3/prec.c
--- ruby-1.3-orig/prec.c	Thu Jan  1 09:00:00 1970
+++ ruby-1.3/prec.c	Tue Jan 26 02:40:41 1999
@@ -0,0 +1,47 @@
+/************************************************
+
+  prec.c -
+
+************************************************/
+
+#include "ruby.h"
+
+VALUE rb_mPrecision;
+
+static ID prc_if;
+
+static VALUE
+prec_prec(x, klass)
+    VALUE x, klass;
+{
+    return rb_funcall(klass, prc_if, 1, x);
+}
+
+static VALUE
+prec_prec_i(x)
+    VALUE x;
+{
+    VALUE klass = rb_cInteger;
+
+    return rb_funcall(klass, prc_if, 1, x);
+}
+
+static VALUE
+prec_prec_f(x)
+    VALUE x;
+{
+    VALUE klass = rb_cFloat;
+
+    return rb_funcall(klass, prc_if, 1, x);
+}
+
+void
+Init_Precision()
+{
+    rb_mPrecision = rb_define_module("Precision");
+    rb_define_method(rb_mPrecision, "prec", prec_prec, 1);
+    rb_define_method(rb_mPrecision, "prec_i", prec_prec_i, 0);
+    rb_define_method(rb_mPrecision, "prec_f", prec_prec_f, 0);
+
+    prc_if = rb_intern("induced_from");
+}
diff -Nu0r ruby-1.3-orig/ruby.h ruby-1.3/ruby.h
--- ruby-1.3-orig/ruby.h	Wed Dec 16 16:30:33 1998
+++ ruby-1.3/ruby.h	Tue Jan 26 01:18:39 1999
@@ -449,0 +450 @@
+EXTERN VALUE rb_mPrecision;