system-info: implement system-info.freebsd via sysctl

[factor.git] / basis / unix / sysctl / sysctl.factor

diff --git a/basis/unix/sysctl/sysctl.factor b/basis/unix/sysctl/sysctl.factor
new file mode 100644 (file)
index 0000000..12494f0
--- /dev/null
+++ b/basis/unix/sysctl/sysctl.factor
@@ -0,0 +1,43 @@
+! Copyright (C) 2008 Doug Coleman, John Benediktsson.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.c-types alien.data alien.strings alien.syntax
+byte-arrays io.encodings.utf8 kernel libc sequences
+specialized-arrays ;
+IN: unix.sysctl
+
+SPECIALIZED-ARRAY: int
+
+LIBRARY: libc
+FUNCTION: int sysctl ( int* name, uint namelen, void* oldp, size_t* oldlenp, void* newp, size_t newlen )
+FUNCTION: int sysctlbyname ( c-string name, void* oldp, size_t* oldlenp, void* newp, size_t newlen )
+
+: (sysctl-query) ( name namelen oldp oldlenp -- oldp )
+    over [ f 0 sysctl io-error ] dip ;
+
+: (sysctl-name-query) ( name oldp oldlenp -- oldp )
+    over [ f 0 sysctlbyname io-error ] dip ;
+
+: sysctl-query ( seq n -- byte-array )
+    [ [ int >c-array ] [ length ] bi ] dip
+    [ <byte-array> ] [ uint <ref> ] bi (sysctl-query) ;
+
+: sysctl-name-query ( name n -- byte-array )
+    [ <byte-array> ] [ uint <ref> ] bi (sysctl-name-query) ;
+
+: sysctl-query-string ( seq -- n )
+    4096 sysctl-query utf8 alien>string ;
+
+: sysctl-name-query-string ( str -- n )
+    4096 sysctl-name-query utf8 alien>string ;
+
+: sysctl-query-uint ( seq -- n )
+    4 sysctl-query uint deref ;
+
+: sysctl-name-query-uint ( str -- n )
+    4 sysctl-name-query uint deref ;
+
+: sysctl-query-ulonglong ( seq -- n )
+    8 sysctl-query ulonglong deref ;
+
+: sysctl-name-query-ulonglong ( str -- n )
+    8 sysctl-name-query ulonglong deref ;