如何获取 Quicklisp 提供的每个系统的所有依赖项列表?
Posted
技术标签:
【中文标题】如何获取 Quicklisp 提供的每个系统的所有依赖项列表?【英文标题】:How to get a list of all dependencies withing each system provided by Quicklisp? 【发布时间】:2021-04-08 14:18:36 【问题描述】:我知道如何列出 Quicklisp 提供的所有系统
(ql:system-list)
我需要获得一种我想为 Guix 打包的最依赖的系统。是否有任何 ASD 或 Quicklisp 工具可以提供该功能?
【问题讨论】:
【参考方案1】:所有关于系统关系的信息quicklisp 都在两个文件releases.txt 和systems.txt 中。 systems.txt 会告诉你依赖关系,而releases.txt 会将项目名称(如“alexandria”)映射到它提供的系统。
它们都是简单的以空格分隔的记录文件,因此应该很容易解析并获得您需要的信息。
要获取 Lisp 中的示例依赖信息,请查看 ql:dependency-tree
的来源。
【讨论】:
【参考方案2】:我需要的一些可行的解决方案,感谢 Xach 指出 systems.txt
文件
(defparameter *quicklisp-systems-path*
(merge-pathnames
(make-pathname :directory '(:relative "dists" "quicklisp")
:name "systems" :type "txt")
ql:*quicklisp-home*))
(defun quicklisp-systems ()
"Return a list of all systems listed in Quicklisp's sistems.txt"
(with-open-file
(stream *quicklisp-systems-path*
:direction :input
:element-type :default
:external-format :default
:if-does-not-exist nil)
(loop
:for line := (read-line stream nil)
:while line
:for line-list := (split-sequence:split-sequence #\Space line)
:if (not (find "#" line-list :test #'equal))
:append (cdr line-list))))
(defun quicklisp-system-occurrences (list)
"Return a list of conces for each element and it's accurrences of LIST.
ref: https://codereview.stackexchange.com/questions/215682"
(let ((table (make-hash-table :test #'equal)))
(loop
:for x :in list
:do (incf (gethash x table 0)))
(loop
:for k :being :the hash-key :of table
:using (hash-value v)
:collect (cons k v))))
一些结果
CL-USER> (subseq (sort (occurrences (get-systems)) #'> :key #'cdr) 0 50)
(("asdf" . 2441) ("alexandria" . 781) ("cl-ppcre" . 350)
("cl-glfw-opengl-core" . 346) ("cffi" . 337) ("fiveam" . 309)
("bordeaux-threads" . 228) ("closer-mop" . 194) ("split-sequence" . 185)
("iterate" . 180) ("uiop" . 158) ("prove" . 153) ("prove-asdf" . 146)
("hu.dwim.asdf" . 146) ("babel" . 136) ("local-time" . 132)
("flexi-streams" . 131) ("drakma" . 121) ("trivial-garbage" . 113)
("cl-fad" . 103) ("usocket" . 93) ("trivial-features" . 90)
("named-readtables" . 90) ("documentation-utils" . 83)
("trivial-gray-streams" . 75) ("ironclad" . 73) ("cffi-grovel" . 65)
("cl-json" . 62) ("anaphora" . 62) ("hunchentoot" . 60) ("hu.dwim.util" . 57)
("lift" . 56) ("cxml" . 55) ("log4cl" . 53) ("cl-base64" . 52) ("trivia" . 49)
("parse-number" . 46) ("cl-interpol" . 46) ("let-plus" . 46) ("yason" . 46)
("quri" . 43) ("parachute" . 41) ("lisp-unit" . 41) ("hu.dwim.stefil" . 40)
("puri" . 39) ("trivial-utf-8" . 38) ("swank" . 38) ("esrap" . 35)
("qtools-ui-base" . 35) ("cl-opengl" . 34))
【讨论】:
以上是关于如何获取 Quicklisp 提供的每个系统的所有依赖项列表?的主要内容,如果未能解决你的问题,请参考以下文章
如何让 Emacs/Slime/SBCL 识别 quicklisp 包