@@ -568,11 +568,11 @@ dir (conc (current-directory) "/" dir)))) (define (get-cpu-load) (car (common:get-cpu-load))) -;; (let* ((load-res (cmd-run->list "uptime")) +;; (let* ((load-res (process:cmd-run->list "uptime")) ;; (load-rx (regexp "load average:\\s+(\\d+)")) ;; (cpu-load #f)) ;; (for-each (lambda (l) ;; (let ((match (string-search load-rx l))) ;; (if match @@ -623,21 +623,21 @@ (define (common:wait-for-normalized-load maxload #!key (msg #f)) (let ((num-cpus (common:get-num-cpus))) (common:wait-for-cpuload maxload num-cpus 15 msg: msg))) (define (get-uname . params) - (let* ((uname-res (cmd-run->list (conc "uname " (if (null? params) "-a" (car params))))) + (let* ((uname-res (process:cmd-run->list (conc "uname " (if (null? params) "-a" (car params))))) (uname #f)) (if (null? (car uname-res)) "unknown" (caar uname-res)))) ;; for reasons I don't understand multiple calls to real-path in parallel threads ;; must be protected by mutexes ;; (define (common:real-path inpath) - ;; (cmd-run-with-stderr->list "readlink" "-f" inpath)) ;; cmd . params) + ;; (process:cmd-run-with-stderr->list "readlink" "-f" inpath)) ;; cmd . params) ;; (let-values ;; (((inp oup pid) (process "readlink" (list "-f" inpath)))) ;; (with-input-from-port inp ;; (let loop ((inl (read-line)) ;; (res #f)) @@ -657,11 +657,11 @@ (define (common:get-disk-space-used fpath) (with-input-from-pipe (conc "/usr/bin/du -s " fpath) read)) (define (get-df path) - (let* ((df-results (cmd-run->list (conc "df " path))) + (let* ((df-results (process:cmd-run->list (conc "df " path))) (space-rx (regexp "([0-9]+)\\s+([0-9]+)%")) (freespc #f)) ;; (write df-results) (for-each (lambda (l) (let ((match (string-search space-rx l)))