diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/req-package-20180605.1141/req-package-cycles.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/req-package-20180605.1141/req-package-cycles.el')
-rw-r--r-- | elpa/req-package-20180605.1141/req-package-cycles.el | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/elpa/req-package-20180605.1141/req-package-cycles.el b/elpa/req-package-20180605.1141/req-package-cycles.el deleted file mode 100644 index 73d982e..0000000 --- a/elpa/req-package-20180605.1141/req-package-cycles.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; req-package-cycles.el --- summary: -;;; commentary: -;;; code: - -(require 'dash) - -(defvar req-package-cycles-count 0 - "Number of cycles detected.") - -(defun req-package-cycles-detect-traverse-impl (graph visited cur path) - "Traverse for cycles look up implementation" - (puthash cur t visited) - (if (not (-contains? path cur)) - (-each (gethash cur graph nil) - (lambda (dependent) - (req-package-cycles-detect-traverse-impl graph visited dependent (cons cur path)))) - (progn (setq req-package-cycles-count (+ req-package-cycles-count 1)) - (req-package--log-error "cycle detected: %s" (cons cur path))))) - -(defun req-package-cycles-detect-traverse (graph visited) - "Traverse for cycles look up" - (maphash (lambda (key value) - (if (null (gethash key visited nil)) - (req-package-cycles-detect-traverse-impl graph visited key nil))) - graph) - (if (not (eq 0 req-package-cycles-count)) - (message "%s cycle(s) detected. see M-x req-package--log-open-log" - req-package-cycles-count))) - -(defun req-package-cycles-detect (graph) - (setq req-package-cycles-count 0) - (req-package-cycles-detect-traverse graph (make-hash-table :size 200))) - -(provide 'req-package-cycles) -;;; req-package-cycles ends here |