summaryrefslogtreecommitdiff
path: root/elpa/req-package-20180605.1141/req-package-cycles.el
diff options
context:
space:
mode:
authormattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
committermattkae <mattkae@protonmail.com>2022-06-07 08:23:47 -0400
commitbd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch)
tree95b9933376770381bd8859782ae763be81c2d72b /elpa/req-package-20180605.1141/req-package-cycles.el
parentb07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff)
parentef160dea332af4b4fe5e2717b962936c67e5fe9e (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.el35
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