blob: 907baa944a9d56e902e7061dfdbf127218c9e50b (
plain)
1
2
3
4
5
6
7
8
|
type channel
external main : unit -> unit = "ivy_TclmainLoop"
external ext_channelSetUp : Unix.file_descr -> string -> channel = "ivy_TclchannelSetUp"
let set_up_channel fd delete read =
ext_channelSetUp fd (Ivy.cb_register read)
external close_channel : channel -> unit = "ivy_TclchannelClose"
|
