Mailing list for all users of the OCaml language and system.
 help / color / mirror / Atom feed
From: "Daniel Bünzli" <daniel.buenzli@erratique.ch>
To: caml-list@inria.fr
Subject: [Caml-list] Cross-platform cpu count
Date: Fri, 2 Sep 2011 02:04:51 +0200	[thread overview]
Message-ID: <CALgo1QJh+q4b9HA4vbS4WSiWxGvhaSexh0i=z=OLQo=dxbuSAg@mail.gmail.com> (raw)

Hello,

Can anybody confirm me that the following code works on cygwin :

let cpu_count () =
  try match Sys.os_type with
  | "Win32" -> int_of_string (Sys.getenv "NUMBER_OF_PROCESSORS")
  | _ ->
      let i = Unix.open_process_in "getconf _NPROCESSORS_ONLN" in
      let close () = ignore (Unix.close_process_in i) in
      try Scanf.fscanf i "%d" (fun n -> close (); n) with e -> close (); raise e
  with
  | Not_found | Sys_error _ | Failure _ | Scanf.Scan_failure _
  | End_of_file | Unix.Unix_error (_, _, _) -> 1

Thanks,

Daniel

             reply	other threads:[~2011-09-02  0:04 UTC|newest]

Thread overview: 11+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-09-02  0:04 Daniel Bünzli [this message]
2011-09-02  0:38 ` malc
2011-09-02  0:47   ` Daniel Bünzli
2011-09-02  7:39   ` David Allsopp
2011-09-02 10:03     ` Daniel Bünzli
2011-09-02 12:51     ` malc
2011-09-02 13:05       ` David Allsopp
2011-09-02 13:42         ` malc
2011-09-02  7:51 ` Richard W.M. Jones
2011-09-02  8:19   ` David Allsopp
2011-09-02 14:58     ` Richard W.M. Jones

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='CALgo1QJh+q4b9HA4vbS4WSiWxGvhaSexh0i=z=OLQo=dxbuSAg@mail.gmail.com' \
    --to=daniel.buenzli@erratique.ch \
    --cc=caml-list@inria.fr \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox