+ sysinfo

CHANGES.txt

@@ -1,3 +1,7 @@
+? - ?
+* New bindings :
+  * sysinfo
+
 0.1.1 - 18 May 2014
 * New bindings :
   * gettid

TODO

@@ -4,7 +4,6 @@ TODO
 * comments: mark "emulated" (windows) functions
 * unsetenv winapi? see http://old.nabble.com/-patch--(msvc)-use-more-modern-facilities-for-setenv()-unsetenv()-td15877005.html
 * investigate F_FULLFSYNC fcntl and fsync on Mac OS
-* sysinfo (see Jane Street Core)
 * nanosleep
 * fdtruncate win32
 * waitid
@@ -21,3 +20,4 @@ DONE
 * sysconf: get system configuration constants. In particular, PAGESIZE,
   _SC_PHYS_PAGES, _SC_AVPHYS_PAGES, _SC_NPROCESSORS_CONF, _SC_NPROCESSORS_ONLN 
   (see Jane Street Core)
+* sysinfo (see Jane Street Core)

_oasis

@@ -50,7 +50,8 @@ Library extunix
             resource.c, mman.c, time.c, pts.c, execinfo.c, malloc.c,
             endian.c, read_cred.c, fexecve.c, sendmsg.c,
             memalign.c, endianba.c, pread_pwrite_ba.c, bigarray.c,
-            splice.c, sysconf.c, common.c, common.h, sockopt.c, poll.c
+            splice.c, sysconf.c, common.c, common.h, sockopt.c, poll.c,
+            sysinfo.c
   BuildDepends: unix, bigarray
 
 Executable test

_tags

@@ -1,5 +1,5 @@
 # OASIS_START
-# DO NOT EDIT (digest: f35edc7ccbfcaebebbf7b4d53cdf09c8)
+# DO NOT EDIT (digest: 56c6634b9a089bd4b4ff136817cdc3de)
 # Ignore VCS directories, you can use the same kind of rule outside
 # OASIS_START/STOP if you want to exclude directories that contains
 # useless stuff for the build process
@@ -49,6 +49,7 @@
 "src/common.c": oasis_library_extunix_ccopt
 "src/sockopt.c": oasis_library_extunix_ccopt
 "src/poll.c": oasis_library_extunix_ccopt
+"src/sysinfo.c": oasis_library_extunix_ccopt
 <src/extunix.{cma,cmxa}>: use_libextunix_stubs
 <src/*.ml{,i}>: pkg_bigarray
 <src/*.ml{,i}>: pkg_unix
@@ -118,6 +119,8 @@
 "src/sockopt.c": pkg_unix
 "src/poll.c": pkg_bigarray
 "src/poll.c": pkg_unix
+"src/sysinfo.c": pkg_bigarray
+"src/sysinfo.c": pkg_unix
 # Executable test
 <test/test.{native,byte}>: pkg_bigarray
 <test/test.{native,byte}>: pkg_oUnit

myocamlbuild.ml

@@ -1,5 +1,5 @@
 (* OASIS_START *)
-(* DO NOT EDIT (digest: f8a3591f192da624420db0fd2a660b51) *)
+(* DO NOT EDIT (digest: c5fb1530597d04549be1fa1af02340ef) *)
 module OASISGettext = struct
 (* # 22 "src/oasis/OASISGettext.ml" *)
 
@@ -39,10 +39,10 @@ module OASISExpr = struct
   open OASISGettext
 
 
-  type test = string 
+  type test = string
 
 
-  type flag = string 
+  type flag = string
 
 
   type t =
@@ -52,10 +52,10 @@ module OASISExpr = struct
     | EOr of t * t
     | EFlag of flag
     | ETest of test * string
-
 
 
-  type 'a choices = (t * 'a) list 
+
+  type 'a choices = (t * 'a) list
 
 
   let eval var_get t =
@@ -430,10 +430,10 @@ module MyOCamlbuildBase = struct
   module OC = Ocamlbuild_pack.Ocaml_compiler
 
 
-  type dir = string 
-  type file = string 
-  type name = string 
-  type tag = string 
+  type dir = string
+  type file = string
+  type name = string
+  type tag = string
 
 
 (* # 62 "src/plugins/ocamlbuild/MyOCamlbuildBase.ml" *)
@@ -448,7 +448,7 @@ module MyOCamlbuildBase = struct
          * directory.
          *)
         includes:  (dir * dir list) list;
-      } 
+      }
 
 
   let env_filename =