An alternative would be to use

  #load "unix.cma"

  let uname() =                                                      
    let (inc, outc) = Unix.open_process "uname" in  
    let name = input_line inc in                  
    close_in inc;
    close_out outc;
    name;;

Here's a more general way to capture the stdout of a Unix call:

  let syscall cmd =                                    
    let (inc, outc) = Unix.open_process cmd in  
    let buf = Buffer.create 16 in                       
    (try while true do Buffer.add_channel buf inc 1 done with _ -> ());
    close_in inc;
    close_out outc;
    Buffer.contents buf;;

Issac


On Tue, Jan 21, 2003 at 04:23:03PM +0100, Basile STARYNKEVITCH wrote:
> Dear All,
> 
> If you need to call uname(2) from some Ocaml program you can steal my
> tiny code in util.ml util.mli util_ml.c on
> 
> http://www2.poesia-filter.org:8000/cgi-bin/cvsweb.cgi/PoesiaSoft/PoesiaMonIcap/
> 
> I actually wish that uname(2) will be incorporated in the Unix module.
> 
> regards
> -- 
> 
> Basile STARYNKEVITCH         http://starynkevitch.net/Basile/ 
> email: basile<at>starynkevitch<dot>net 
> alias: basile<at>tunes<dot>org 
> 8, rue de la Fa?encerie, 92340 Bourg La Reine, France
> -------------------
> To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
> Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners

-- 
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners