[ruby-dev:11119] Re: SIGINT on windows

青木です。

うちの環境は、PC-98、Windows 95、Visual C++ 6.0+SP5 です。
NT とか 2000 とか 98 では試していません。

[e-mail] wrote:
>   となると、やっぱり signal thread で完了を待ってコンテキストを
> 戻してやらないとダメですか? でも SuspendThred() されるまでどう
> やって待とう。

安直な方法だと、
　SuspendThread(hThread); result = ResumeThread(hThread);
とやって、result が 2 以上であればサスペンドしているとわかります
ので、あとはループで検知すれば・・・
 
> > もちろん、sighandle() は呼ばれてます。
>   win32_main_context() に DebugBreak() を仕込んでみても引っかか
> らなかったんですが。

うちでは、printf() 使ってデバッグしてますが、それでちゃんと
sighandle() ２回呼ばれていることを確認してます。

>   一応目は通したものの、かなり大がかりな感じなので…。あれを持っ
> て来るなら素直に cygwin 版使えばいいじゃん、とか思ったりして。

ですね。
 
> > このあたりどう解決されるのか興味があります(^^;;
>   どう解決できるのか私も知りたいです(;_;)

ほんと興味の尽きないところなのですが(;-;)

以下、Windows 95 上での 1.6.1 の動作での詳細。

1)ReadFile() で待機。
2)Ctrl-C で sighandle() が呼ばれる。
3)win32_main_context() が呼ばれる。
4)win32_main_context() の SuspendThread() でメインスレッドが
　止まる。
5)win32_main_context() の SetThreadContext()でメインスレッドが
　動き出す。4) の SuspendThread() が無効になっている。カーネル
　モードにでもなっているのでは。ちなみに、SetThreadContext()
　した以降 SuspendThread() するコード加えても、エラーにはならないが
　止まらないので、ユーザーモードでないことしか考えられない。
6)win32_main_context() の ResumeThread() 以前にメインスレッドは
　動いてる。多分、ResumeThread()しておかないと、ユーザーモードに
　戻ったとき止まってしまうと思うが、このケースでは ResumuThread()
　が意味なくなっている。
7)win32_call_handler() が呼ばれる。
7)win32_call_handler() の handler() が呼ばれる。
8)win32_call_handler() の SetThreadContext() を呼んだ直後から、
　OS 全体の画面更新がストップする。キー操作は受け付けているので、
　ENTER キーや Ctrl-Z とかで ReadFile() から抜けることは可能。
　Ruby のプロセスが終わらない限り、画面更新のストップは続く。
　ちなみに、もう一回、Ctrl-C したりすると完全に止まる。
　Ctrl-Alt-Del で復旧は可能。

1) の ReadFile() での待機状態じゃない場合は、OS 全体の画面更新が
ストップすることはないようですが、２回目の Ctrl-C で固まったり
します。

win32_call_handler() ではなくて、win32_main_context() で
SetThreadContext() をしてみた場合は、ReadFile() 待機中でも
なんとか大丈夫にできましたが、ReadFile() 待機中じゃない場合の
Ctrl-C で、タイミング的に例外とか出たりしました。たぶん、私の
ミスが原因と思いますが不明です(^^: 以下、それに使った実験用
パッチ(1.6.1 からの差分）です。SuspendThread()で止めてないのは
上記の理由によります。

*** win32.c0	Wed Sep 27 07:36:34 2000
--- win32.c	Mon Oct 02 15:00:00 2000
***************
*** 2565,2575 ****
      SuspendThread(GetCurrentThread());
  }
  
  static void win32_call_handler(int arg, void (*handler)(int), CONTEXT
ctx)
  {
      handler(arg);
!     ctx.ContextFlags = CONTEXT_FULL | CONTEXT_FLOATING_POINT;
!     SetThreadContext(rb_MainThreadHandle, &ctx);
  }
  
  static int catch_interrupt(unsigned long msec)
--- 2565,2584 ----
      SuspendThread(GetCurrentThread());
  }
  
+ static volatile HANDLE hEvent_win32_call_hander1 = NULL;
+ static volatile HANDLE hEvent_win32_call_hander2 = NULL;
+ #if 0
  static void win32_call_handler(int arg, void (*handler)(int), CONTEXT
ctx)
+ #else
+ static void win32_call_handler(int arg, void (*handler)(int))
+ #endif
  {
      handler(arg);
! 	ResetEvent(hEvent_win32_call_hander2);
! 	SetEvent(hEvent_win32_call_hander1);
! 	WaitForSingleObject(hEvent_win32_call_hander2,INFINITE);
! //    ctx.ContextFlags = CONTEXT_FULL | CONTEXT_FLOATING_POINT;
! //    SetThreadContext(rb_MainThreadHandle, &ctx);
  }
  
  static int catch_interrupt(unsigned long msec)
***************
*** 2586,2597 ****
--- 2595,2615 ----
  
  int win32_main_context(int arg, void (*handler)(int))
  {
+ 	CONTEXT ctx_orig;
+ 
      if (!win32_thread_exclusive()) return FALSE;
  
+ #if 0
      if (!catch_interrupt(0)) {
  	SetEvent(rb_InterruptEvent);
  	return FALSE;
      }
+ #endif
+ 
+ 	if(hEvent_win32_call_hander1==NULL)
+ 		hEvent_win32_call_hander1 = CreateEvent(NULL,FALSE,FALSE,NULL);
+ 	if(hEvent_win32_call_hander2==NULL)
+ 		hEvent_win32_call_hander2 = CreateEvent(NULL,FALSE,FALSE,NULL);
  
      {
  	CONTEXT ctx;
***************
*** 2599,2608 ****
--- 2617,2631 ----
  	ZeroMemory(&ctx, sizeof(CONTEXT));
  	ctx.ContextFlags = CONTEXT_FULL | CONTEXT_FLOATING_POINT;
  	GetThreadContext(rb_MainThreadHandle, &ctx);
+ 	ctx_orig = ctx;
  #ifdef _M_IX86
  	{
+ #if 0
  	    DWORD *esp = (DWORD *)(ctx.Esp - sizeof(CONTEXT));
  	    *(CONTEXT *)esp = ctx;
+ #else
+ 	    DWORD *esp = (DWORD *)ctx.Esp;
+ #endif
  	    *--esp = (DWORD)handler;
  	    *--esp = arg;
  	    *--esp = ctx.Eip;
***************
*** 2616,2622 ****
--- 2639,2652 ----
  	ctx.ContextFlags = CONTEXT_CONTROL;
  	SetThreadContext(rb_MainThreadHandle, &ctx);
      }
+ 	ResetEvent(hEvent_win32_call_hander1);
      ResumeThread(rb_MainThreadHandle);
+ 	WaitForSingleObject(hEvent_win32_call_hander1,INFINITE);
+ #undef Sleep
+ 	Sleep(0); // 安全ではないけど。
+     ctx_orig.ContextFlags = CONTEXT_FULL | CONTEXT_FLOATING_POINT;
+     SetThreadContext(rb_MainThreadHandle, &ctx_orig);
+ 	SetEvent(hEvent_win32_call_hander2);
  
      return TRUE;
  }

Sleep(0) は他のスレッドに動作を譲る働きをしますが、Sleep() 自体が
マクロで定義されてますし(^^;

# 私としてはかなりうんざりしてて、SIGINT 関連にもう手を出すのは
# 止めようと思ってます(^^;;

--
青木大輔 <[e-mail]>