在 Linux 上获取 Common Lisp 进程 ID

Question

我想知道是否有办法从 Common Lisp 的 REPL 中获取 Linux 的 PID（进程 ID）。也就是说，我想从进程本身的REPL中知道SBCL或Allegro进程的ID。

Answer 1

Common Lisp 规范中没有任何内容可以实现这一点。进程 ID 过于依赖实现。

在 SBCL 中，SB-POSIX 包为大多数 POSIX 系统调用提供 Lisp 接口，因此您可以使用 (sb-posix:getpid)。

在 Allegro CL 中，操作系统接口函数位于 EXCL.OSI 包中，因此您可以使用 (excl.ose:getpid)

Answer 2

有一种（基本上）可移植的方式来做到这一点。 CL 提供读取文件的功能，可以观察到当前进程的 pid 在 /proc/self/status 中（/proc/self 也是进程 pid 的符号链接，但我认为没有可移植的读取链接）。

具体而言，/proc/self/status 是一个文本文件，其中包含如下一行：

Pid: 439

所以你可以解析文件来提取它。

但是一旦你有了 pid，没有系统调用或/proc 怪异，你就无能为力了

Answer 3

最终解决方案（主要由 @Dan Robertson 和 @coredump 提供 - 谢谢你们！）

实际上@Dan Robertson 给出了完整的答案——我回想起来。 这个答案只是他所说的执行。所以给他积分！

(ql:quickload "CL-PPCRE") ;; for regex parsing

(defun get-this-pid ()
  "Return PID of this current lisp process."
  (with-open-file (in #P"/proc/self/status")
    (loop for line = (read-line in nil)
      while line
      when (ppcre:scan "^Pid" line)
        do (return (car
            (ppcre:all-matches-as-strings "\\d+" 
                              line))))))

;; to get current process id, call:
(get-this-pid) ;
;; returns for me at the moment using sbcl "12646"
;; this is correct as closing of all other sbcl processes
;; and doing "pidof sbcl" in the shell showed.

正如@Don Robertson 所指出的，文件/proc/self/status 显示了打开它的程序的“PID”编号（每个程序对它的看法不同）。谢谢 Don，因为这解决了查找程序 PID 的问题（如果机器上独立运行多个 lisp 程序，shell 中的pidof sbcl 会给出几个数字。 调用外部程序已经过时了，如果我们从 cl 中打开这个文件，就像@coredump 指出的那样。

其他程序的PID号

;; Thanks to @coredump - who suggested to use 
;; `ppcre:split :whitespace-char-class` for capturing arbitrary numbers
;; in the answer string - I added a test for integer-string-p to clean
;; non-numberic values after split.

(ql:quickload "CL-PPCRE")

(defun integer-string-p (string)
  "Does string constist only of '01234567890' characters?"
  (reduce (lambda (x y) (and x y))
      (mapcar (lambda (c) (member c (coerce "1234567890" 'list)))
          (coerce string 'list))))

(defun extract-integers-from-string (s)
  "Return integer-words of s."
  (let ((l (ppcre:split :whitespace-char-class s)))
    (remove-if-not #'integer-string-p l)))

(defun pid-numbers (program-name)
  "Return PID numbers of a program in current machine."
  (let ((pid-line (with-output-to-string (out)
            (external-program:run "pidof" (list program-name)
                      :output out))))
    (extract-integers-from-string pid-line)))

;; call it
(pid-numbers "sbcl")
(pid-numbers "firefox")

;; * (pid-numbers "sbcl")
;; ("16636" "12346")
;; * (pid-numbers "firefox") 
;; ("24931" "19388" "19122" "10800" "10745") ; yeah I have many open :D