読者です 読者をやめる 読者になる 読者になる

逃避行

急にhttpdが書きたくなった.結局,Eventモジュールと格闘しながら4時間ほど費やして,httpdまで辿り着かず.大体わかった気がする.

Event.selectとかEvent.wrapが理解できなかったのですが,

  try 
    while true do
      ...
      let x = Event.select [Event.receive ch1;
                            Event.wrap ch2 (fun x -> raise Exit)] in
        ...
    done
  with
    Exit -> ()

とかやって,例外にしてループから抜ける使い方はどうでしょう.