Version française
Home     About     Download     Resources     Contact us    

This site is updated infrequently. For up-to-date information, please visit the new OCaml website at

Browse thread
[Caml-list] unbuffered input
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: -- (:)
From: Alan Schmitt <alan.schmitt@p...>
Subject: Re: [Caml-list] unbuffered input: a solution
* Alan Schmitt ( wrote:
> Hi,
> I've been looking at this for about one hour, and I seem to get stuck: 
> how can I do unbuffered input in caml ? I want a program to block until 
> a char is entered. I tried input_char and (without 
> and with, to no avail. I do not know if it is caml, the 
> libc, or the terminal that is buffering.
> Any hint on how to do this ?

Thanks to Owen Gunden and the unison code, I found the following 

let term = Unix.tcgetattr Unix.stdin in
    {term with Unix.c_icanon = false; 
               Unix.c_echo = false;
               Unix.c_vmin = 1;};
  while true do
    let c = input_char stdin in
    Printf.printf "read %c\n" c;
    flush stdout
  (* restore the terminal in its initial state *)
  Unix.tcsetattr Unix.stdin Unix.TCSANOW term
| e -> Unix.tcsetattr Unix.stdin Unix.TCSANOW term; raise e

Is there no simpler solution ?

And by the way, I see that unison does a
Sys.catch_break true
to transform the break signal into an exception, but I did not need it 
here (doing ctrl-c does restore the terminal in a good state). I'm 
curious as to why this is the case.

Alan Schmitt

The hacker: someone who figured things out and made something cool happen.

To unsubscribe, mail Archives:
Bug reports: FAQ:
Beginner's list: