0138-freebsd-sysctl.org

freebsd-sysctl

This library works on OSX because of its BSD roots, but fails on Linux with error: “The alien function ‘sysctlnametomib’ is undefined.”

It provides information about the system.

Here is a quick example:

POFTHEDAY> (freebsd-sysctl:sysctl-by-name "kern.hostname")
"poftheday"

POFTHEDAY> (freebsd-sysctl:sysctl-by-name "kern.ostype")
"Darwin"

POFTHEDAY> (freebsd-sysctl:sysctl-by-name "machdep.cpu.core_count")
6

Using this library and cl-spark, reviewed two weeks ago, we can build a simple tool to monitor the CPU’s temperature:

POFTHEDAY> (loop with num-probes = 30
                 with probes = ()
                 for current = (freebsd-sysctl:sysctl-by-name
                                "machdep.xcpm.cpu_thermal_level")
                 do (push current probes)
                    (setf probes
                          (subseq probes 0
                                  (min num-probes
                                       (length probes))))
                    (format t "~A ~A~%~%"
                            (cl-spark:spark
                             (reverse probes)
                             :min 30)
                            current)
                    (sleep 15))

█▇▇▇▇▇▇▆▆▅▄▄▃▃▃▃▃▃▃▃▃▃▃▃▄▄▄▄▄▄ 53
...
▃▂▃▃▃▂▂▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▄▅▆▇█ 93
...
▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▅▅▆▇██████▇▆▅▄ 66
...
▃▃▃▃▅▅▆▇██████▇▆▅▄▃▂▂▁▁▁▁▁▁▁▁▁ 21

To find out different keys supported by your system do sysctl -a in console.