# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1717377787 14400
# Node ID 1e08f846255499c67c1439f3d68ba4b9de09fd0e
# Parent  a79d494b0e9c00e26180f5f7571cf6b7387a7bfc
add back vc.lisp

diff -r a79d494b0e9c -r 1e08f8462554 lisp/lib/vc/vc.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/lib/vc/vc.lisp	Sun Jun 02 21:23:07 2024 -0400
@@ -0,0 +1,45 @@
+;;; vc/vc.lisp --- VC API
+
+;; High-level API for working with VC objects.
+
+;;; Code:
+(in-package :vc)
+(defparameter *default-vc-kind* :hg)
+(defvar *repo-roots* nil)
+(defvar *repo-registry* (make-hash-table :test 'equal))
+
+(defun register-repo (repo)
+  "Register a repo, collecting information from the filesystem and
+creating a repo object which is stored in *REPO-REGISTRY*."
+  (setf (gethash (vc/proto::vc-repo-path repo) *repo-registry*) repo))
+
+(defun find-repo (name)
+  "Find a repo in *REPO-REGISTRY*."
+  (gethash name *repo-registry*))
+
+(defun make-hg-repo (path &key init update register)
+  (let ((repo (make-instance 'hg-repo :path path)))
+    (when register (register-repo repo))
+    (when init (vc-init repo))
+    (when update
+      (setf (vc/hg::vc-requires repo) (mapcar (lambda (s) (trim s)) (sb-unicode:lines (vc/proto::vc-run repo "debugrequires")))))
+    repo))
+
+(defun make-git-repo (path &key init register)
+  (let ((repo (make-instance 'git-repo :path path)))
+    (when register (register-repo repo))
+    (when init (vc-init repo))
+    repo))
+
+(defun make-repo (path &key (type *default-vc-kind*) init register)
+  (case type
+    (:hg (make-hg-repo path :init init :register register))
+    (:git (make-git-repo path :init init :register register))
+    (t (error "invalid repo type: ~A" type))))
+
+;; (defmacro with-hg ((&rest vc-opts) &body body))
+
+;; (defmacro with-git ((&rest vc-opts) &body body))
+
+;; (defmacro with-repos ((&rest repo-defs) &body body))
+