昨日に引き続き…じゃあ全コネクション分のチャネルを管理すれば良いのでは？とおもい思いっきり手抜き（スレッド間の排他無し）ながらも下記のコードで試してみました。chsリストにチャネルを放り込んでます。 open Unix open Event let rec loop f = f (); …

なんとかそれらしい動きをするようになりました、が…どうもすっきりしないコードになってしまった…概要はこんなかんじ。 接続受付用のchannel(A)と、クライアントと通信している子スレッド群からの報告を受け取るchannel(B)を用意。 その他、すべての子スレ…