<?xml version="1.0" encoding="ISO-8859-1"?>

<!DOCTYPE message PUBLIC
  "-//MLarc//DTD MLarc output files//EN"
  "../../mlarc.dtd"[
  <!ATTLIST message
    listname CDATA #REQUIRED
    title CDATA #REQUIRED
  >
]>

  <?xml-stylesheet href="../../mlarc.xsl" type="text/xsl"?>


<message 
  url="2003/01/8d002668cc150c0c58d3c343dbd39a6e"
  from="Issac Trotts &lt;ijtrotts@u...&gt;"
  author="Issac Trotts"
  date="2003-01-21T20:26:01"
  subject="Re: [Caml-list] uname for Ocaml"
  prev="2003/01/3876bfc8907bed74eae34a1e6f10c95e"
  next="2003/01/6ccb28289ee64d32905dfd95daa0f506"
  prev-in-thread="2003/01/0e9c2bc35f3c3fbbe7e967dccafbddfc"
  next-in-thread="2003/01/6ccb28289ee64d32905dfd95daa0f506"
  prev-thread="2003/01/ff00f860be700a943d78413e07a43f74"
  next-thread="2003/01/4a9754e53ff07723caf21b4496d1d267"
  root="../../"
  period="month"
  listname="caml-list"
  title="Archives of the Caml mailing list">

<thread subject="[Caml-list] uname for Ocaml">
<msg 
  url="2003/01/0e9c2bc35f3c3fbbe7e967dccafbddfc"
  from="Basile STARYNKEVITCH &lt;basile@s...&gt;"
  author="Basile STARYNKEVITCH"
  date="2003-01-21T15:23:15"
  subject="[Caml-list] uname for Ocaml">
<msg 
  url="2003/01/8d002668cc150c0c58d3c343dbd39a6e"
  from="Issac Trotts &lt;ijtrotts@u...&gt;"
  author="Issac Trotts"
  date="2003-01-21T20:26:01"
  subject="Re: [Caml-list] uname for Ocaml">
<msg 
  url="2003/01/6ccb28289ee64d32905dfd95daa0f506"
  from="Basile STARYNKEVITCH &lt;basile@s...&gt;"
  author="Basile STARYNKEVITCH"
  date="2003-01-21T20:53:17"
  subject="Re: [Caml-list] uname for Ocaml">
<msg 
  url="2003/01/b0cc1fe837514fbfc9cf209458fc068a"
  from="Issac Trotts &lt;ijtrotts@u...&gt;"
  author="Issac Trotts"
  date="2003-01-21T22:38:13"
  subject="Re: [Caml-list] uname for Ocaml">
</msg>
</msg>
</msg>
<msg 
  url="2003/01/3ec900eef42b08b0fd4f98e4b1164ef2"
  from="michael-grunewald@w..."
  author="michael-grunewald@w..."
  date="2003-01-23T10:27:55"
  subject="[Caml-list] Re: uname for Ocaml">
<msg 
  url="2003/01/eb3e199755827e6ec36840e2b70fec49"
  from="Michal Moskal &lt;malekith@p...&gt;"
  author="Michal Moskal"
  date="2003-01-24T12:02:46"
  subject="Re: [Caml-list] Re: uname for Ocaml">
</msg>
</msg>
</msg>
</thread>

<contents>
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 _ -&gt; ());
    close_in inc;
    close_out outc;
    Buffer.contents buf;;

Issac


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

</contents>

</message>

