From: shugo@... (MAEDA Shugo)
Date: 1998-10-10T00:25:27+09:00
Subject: [ruby-list:9956] Re: ruby-jed SEGV

--Multipart_Sat_Oct_10_00:25:22_1998-1
Content-Type: text/plain; charset=ISO-2022-JP

前田です。

In message "[ruby-list:9892] Re: ruby-jed SEGV"
Kikutani Makoto <kikutani@sprintmail.com> wrote:

|ところで、前のバージョンからあったんですが、xjedでマウスを
|doubleクリックすると落ちてしまいます。

うーむ、なぜ落ちるのか見当も付きません。
Ruby-Jedでない場合は落ちないんですよね?

|あと、ついでに聞いてしまいますが、window_info とか xform_region 
|とかのjed関数は、今はrubyから使えませんよね？

こんな感じでどうでしょう。


--Multipart_Sat_Oct_10_00:25:22_1998-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="ruby-jed.diff2"
Content-Transfer-Encoding: 7bit

--- rbuffer.c.orig	Sat Oct 10 00:09:54 1998
+++ rbuffer.c	Sat Oct 10 00:16:48 1998
@@ -1027,6 +1027,14 @@
     return Qnil;
 }
 
+static VALUE buffunc_xform_region(VALUE obj, VALUE what)
+{
+    int n = FIX2INT(what);
+    transform_region(&n);
+
+    return Qnil;
+}
+
 static VALUE curbuf_getter()
 {
     return CBuf->obj;
@@ -1283,6 +1291,8 @@
 			      buffunc_goto_mark, 1);
     rb_define_module_function(mBufFunc, "move_mark",
 			      buffunc_move_mark, 1);
+    rb_define_module_function(mBufFunc, "xform_region",
+			      buffunc_xform_region, 1);
     rb_include_module(cObject, mBufFunc);
 
     rb_buf_list = hash_new();
--- rwindow.c.orig	Sat Oct 10 00:12:25 1998
+++ rwindow.c	Sat Oct 10 00:20:58 1998
@@ -43,6 +43,17 @@
     return INT2FIX(num_windows());
 }
 
+static VALUE winfunc_window_info(VALUE obj, VALUE what)
+{
+    int n = FIX2INT(what);
+    VALUE result = INT2NUM(window_size_intrinsic(&n));
+    if (SLang_Error) {
+	SLang_Error = 0;
+	ArgError("unknown option");
+    }
+    return result;
+}
+
 void Init_rb_window()
 {
     mWinFunc = rb_define_module("WindowFunctions");
@@ -60,5 +71,7 @@
 			      winfunc_window_line, 0);
     rb_define_module_function(mWinFunc, "count_windows",
 			      winfunc_count_windows, 0);
+    rb_define_module_function(mWinFunc, "window_info",
+			      winfunc_window_info, 1);
     rb_include_module(cObject, mWinFunc);
 }

--Multipart_Sat_Oct_10_00:25:22_1998-1
Content-Type: text/plain; charset=ISO-2022-JP


Window関連のインターフェイスってRubyぽくないですね。
全部書き直そうかなあ。
# もっと時間が欲しい。

-- 
前田 修吾 <shugo@aianet.ne.jp>

--Multipart_Sat_Oct_10_00:25:22_1998-1--